diff options
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/eighters-theme.el | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el index 3f27325..8f070ae 100644 --- a/.emacs.d/eighters-theme.el +++ b/.emacs.d/eighters-theme.el @@ -66,9 +66,24 @@ (defun eighters-show-palette () (interactive) - (list-colors-display - (mapcar 'cadr eighters-palette) - "*Eighters palette*")) + (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))))) + (pop-to-buffer buf)))) (defun eighters-dump-palette () (interactive) |