diff options
| -rw-r--r-- | .emacs.d/eighters-theme.el | 38 |
1 files changed, 23 insertions, 15 deletions
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el index f974beb..31577ad 100644 --- a/.emacs.d/eighters-theme.el +++ b/.emacs.d/eighters-theme.el @@ -1,6 +1,7 @@ ;; -*- lexical-binding: t -*- (require 'color) +(require-theme 'modus-themes) (deftheme eighters "Eighters gonna eight.") @@ -10,28 +11,35 @@ 'color-rgb-to-hex `(,@(color-hsl-to-rgb h s l) 2))) -(defun eighters-decline-hue (name rgb) - (pcase-let* ((`(,r ,g ,b) rgb) - (`(,h ,s _) (color-rgb-to-hsl r g b))) - (list - `(,(intern (concat "fg-" name "-dimmer")) - ,(eighters-hsl-to-hex h s 0.4)) - `(,(intern (concat "bg-" name)) - ,(eighters-hsl-to-hex h 1.0 0.20)) - `(,(intern (concat "bg-" name "-dim")) - ,(eighters-hsl-to-hex h 1.0 0.13)) - `(,(intern (concat "bg-" name "-dimmer")) - ,(eighters-hsl-to-hex h 1.0 0.1))))) +(defun eighters-decline-hue-bg (name light-step) + (interactive + (list (read-color "Color to decline? ") + (read-number "Light step? (1–100) "))) + (pcase-let* ((`(,r ,g ,b) (color-name-to-rgb name)) + (`(,h _ _) (color-rgb-to-hsl r g b))) + (let ((variants (seq-map + (lambda (l) + (cons l (eighters-hsl-to-hex h 1.0 (/ l 100.0)))) + (number-sequence 0 100 light-step))) + (buf (format "*%s variants" name))) + (with-current-buffer (get-buffer-create buf) + (pcase-dolist (`(,l . ,hex) variants) + (insert + (propertize + (format "%s %3s\t%.3f\n" + hex l (modus-themes-contrast "#fff" hex)) + 'face `(:background ,hex :extend t))))) + (pop-to-buffer buf)))) (defvar eighters-palette `((bg "#000") (bg-hl-dimmer "#0f0f0f") (bg-hl-dim "#181818") (bg-hl "#222") (fg-red "brown2") (fg-red-dim "brown") - (bg-red "#660000") (bg-red-dim "#330000") (bg-red-dimmer "#220000") + (bg-red "#560000") (bg-red-dim "#2d0000") (bg-red-dimmer "#1e0000") (fg-green "chartreuse2") (fg-green-dim "#60ae13") (fg-yellow "gold") (fg-yellow-dim "gold3") (bg-yellow "#705e00") (bg-yellow-dim "#5b4d00") (bg-yellow-dimmer "#473c00") (fg-blue "steelblue1") - (bg-blue "#005399") (bg-blue-dim "#002547") (bg-blue-dimmer "#001b33") + (bg-blue "#002647") (bg-blue-dim "#001323") (bg-blue-dimmer "#000b14") (fg-magenta "violet") (fg-magenta-dim "#e64be6") (bg-magenta "#660065") (bg-magenta-dim "#420042") (bg-magenta-dimmer "#330032") (fg-cyan "cadetblue1") (bg-cyan "#063237") @@ -93,7 +101,7 @@ `(help-key-binding ((t (:background ,bg-hl-dimmer :foreground ,fg-magenta :inherit fixed-pitch-serif)))) `(highlight ((t (:background ,bg-hl-dim)))) `(lazy-highlight ((t (:background ,bg-cyan)))) - `(region ((t (:background ,bg-blue-dimmer)))) + `(region ((t (:background ,bg-blue-dim)))) `(escape-glyph ((t (:foreground ,fg-red-dim)))) `(minibuffer-prompt ((t (:foreground ,fg-blue :weight bold)))) `(font-lock-builtin-face ((t (:foreground ,fg-blue)))) |