From a187752c824b47052d33d3bc12749b5a7d2e8191 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 1 Jun 2023 19:35:59 -0700 Subject: 🤡 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Change-Id: I06b104d79deac199f9cd9cdae705e333d23cc852 --- emacs/elisp/my-cheeseboard.el | 55 ------------------------------------------- 1 file changed, 55 deletions(-) delete mode 100644 emacs/elisp/my-cheeseboard.el (limited to 'emacs/elisp/my-cheeseboard.el') diff --git a/emacs/elisp/my-cheeseboard.el b/emacs/elisp/my-cheeseboard.el deleted file mode 100644 index 9713e14..0000000 --- a/emacs/elisp/my-cheeseboard.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; my-cheeseboard.el --- summary -*- lexical-binding: t -*- -;; Author: Franck Cuny - -;;; Commentary: - -;; commentary: -;; As everybody knows, the best pizza in the world is at -;; cheeseboard[0]. I like to check during the week the pizzas for the -;; week and see if there are any we would like to have. This module -;; gets the list of pizzas for the week and display them in a buffer. -;; -;; [0] https://cheeseboardcollective.coop/ - -;;; Code: - -(require 'dom) - -(defconst my/cheeseboard-buffer "*cheeseboard-menu*" - "Name of the buffer for displaying the week's menu.") - -(defconst my/cheeseboard-url "https://cheeseboardcollective.coop/pizza/" - "URL to fetch to get the list of pizzas for the week.") - -(defun my/cheeseboard-menu () - "Display the list of pizzas for the week." - (interactive) - (let* ((dom (with-current-buffer (url-retrieve-synchronously my/cheeseboard-url) - (libxml-parse-html-region (point-min) (point-max)))) - ;; a class named `pizza-list' contains all the items for the - ;; week. they are wrapped in a `article' tag. - (menus (dom-by-tag (dom-by-class dom "pizza-list") 'article)) - (inhibit-read-only t) - (buffer-undo-list t)) - (pop-to-buffer my/cheeseboard-buffer) - (erase-buffer) - (insert (format "if you want to look at the menu on the website => %s\n\n" my/cheeseboard-url)) - (dolist (menu menus) - (my/pizza-of-the-day menu)) - (special-mode))) - -(defun my/pizza-of-the-day (menu) - "Print the pizzas for the day from the MENU." - (let* ((date (car (dom-strings (dom-by-tag (dom-by-class menu "date") 'p)))) - (pizza (dom-by-tag (dom-by-class menu "menu") 'p))) - (if (string= "The pizzeria is closed today." (nth 0 (dom-strings pizza))) - (insert (format "%s: cheeseboard is closed :(\n\n" (propertize date 'face 'italic))) - (insert (format "%s: 🍕 %s\n(note: %s, %s)\n\n" - (propertize date 'face 'italic) - (propertize (replace-regexp-in-string "\n" "" (nth 2 (dom-strings pizza))) 'face 'highlight) - (nth 0 (dom-strings pizza)) - (nth 1 (dom-strings pizza))))))) - -(provide 'my-cheeseboard) - -;;; my-cheeseboard.el ends here -- cgit 1.4.1