dotfiles

commit 52372d4c6b114c62d3a10b315a4456b1ced1441b
parent fba20ef6cb1c0dda3b2f28a33e28e996094d60c1
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Mon, 19 Jun 2023 08:53:24 +0200

Add revert function for palette showcase

Also rename theme commands.

Diffstat:
M
.emacs.d/eighters-theme.el
 | 
39
++++++++++++++++++++++-----------------

1 file changed, 22 insertions(+), 17 deletions(-)
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el
@@ -91,28 +91,33 @@
        (eighters-color 'bg hue-sym 'dimmer) (eighters--brightest-bg hue 19.75))))
   (load-theme 'eighters t))
 
-(defun eighters-show-palette ()
+(defun eighters-showcase--insert (&rest _)
+  (erase-buffer)
+  (pcase-dolist (`(,sym ,color)
+                 eighters-palette)
+    (pcase-let* ((`(,r ,g ,b) (color-name-to-rgb color))
+                 (`(,h ,s ,l) (color-rgb-to-hsl r g b)))
+      (let (bg fg face)
+        (if (string-prefix-p "fg" (symbol-name sym))
+            (setq fg color
+                  bg "#000")
+          (setq bg color
+                fg "#fff"))
+        (setq face `(:foreground ,fg :background ,bg :extend t))
+        (insert
+         (propertize (format "%-16s\t(%.3f %.3f %.3f) (%.3f %.3f %.3f)\t\t%.3f\n"
+                             sym r g b h s l (modus-themes-contrast fg bg))
+                     'face face))))))
+
+(defun eighters-showcase ()
   (interactive)
   (let ((buf (get-buffer-create "*Eighters palette*")))
     (with-current-buffer buf
-      (pcase-dolist (`(,sym ,color)
-                     eighters-palette)
-        (pcase-let* ((`(,r ,g ,b) (color-name-to-rgb color))
-                     (`(,h ,s ,l) (color-rgb-to-hsl r g b)))
-          (let (bg fg face)
-            (if (string-prefix-p "fg" (symbol-name sym))
-                (setq fg color
-                      bg "#000")
-              (setq bg color
-                    fg "#fff"))
-            (setq face `(:foreground ,fg :background ,bg :extend t))
-            (insert
-             (propertize (format "%-16s\t(%.3f %.3f %.3f) (%.3f %.3f %.3f)\t\t%.3f\n"
-                                 sym r g b h s l (modus-themes-contrast fg bg))
-                         'face face)))))
+      (eighters-showcase--insert)
+      (setq-local revert-buffer-function 'eighters-showcase--insert)
       (pop-to-buffer buf))))
 
-(defun eighters-dump-palette ()
+(defun eighters-serialize ()
   (interactive)
   (let ((blacks '(bg bg-hl-dimmer bg-hl-dim bg-hl))
         (colors '(red green yellow blue magenta cyan))