diff options
| author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2023-06-19 08:53:24 +0200 |
|---|---|---|
| committer | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2023-06-21 20:31:15 +0200 |
| commit | 52372d4c6b114c62d3a10b315a4456b1ced1441b (patch) | |
| tree | dd960c2d6c1a1ebe52e9819e2497b5edaf9cc1ea | |
| parent | fba20ef6cb1c0dda3b2f28a33e28e996094d60c1 (diff) | |
| download | dotfiles-52372d4c6b114c62d3a10b315a4456b1ced1441b.tar.xz | |
Add revert function for palette showcase
Also rename theme commands.
| -rw-r--r-- | .emacs.d/eighters-theme.el | 39 |
1 files changed, 22 insertions, 17 deletions
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el index 8a9970b..c2d6430 100644 --- 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)) |