From aec9be353b0c0539fe20877451ba46fff0d88660 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Tue, 10 Jan 2023 09:06:57 +0100 Subject: Tweak "dim" foregrounds MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit (pcase-dolist (`(,sym ,color) eighters-palette) (when (string-match-p "\\`fg-[a-z]*\\'" (symbol-name sym)) (when-let* ((sym-dim (intern (concat (symbol-name sym) "-dim"))) (dim-cdr (alist-get sym-dim eighters-palette)) (new-color (eighters-hsl-to-hex (car (apply 'color-rgb-to-hsl (color-name-to-rgb color))) 0.4 0.66))) (message "%s → %s" sym-dim new-color) (setcar dim-cdr new-color)))) Followup changes: * make strings the same color as constants (though dimmer) to make types stand out more; (Unfortunate side-effect: constants within strings stand out less. Hm) * only use variable-pitch for Gnus header names; keep empty gnus-header because its docstring says all gnus-header faces must inherit from it 🫡 * ARGH YES OH RIGHT HAD FORGOTTEN ABOUT MM-UU-EXTRACT UGH MY EYES --- .emacs.d/eighters-theme.el | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el index a41940a..f61a494 100644 --- a/.emacs.d/eighters-theme.el +++ b/.emacs.d/eighters-theme.el @@ -46,21 +46,22 @@ ;; bg-h-dimmer is c such that CR(c) = max(CR[H, <20]) ;; ;; fg-h-subtle is (h, 100%, 85%) +;; fg-h-dim is (h, 40%, 66%) (defvar eighters-palette `((bg "#000") (bg-hl-dimmer "#0f0f0f") (bg-hl-dim "#181818") (bg-hl "#222") - (fg-red "brown2") (fg-red-dim "brown") (fg-red-subtle "#ffb2b2") - (bg-red "#560000") (bg-red-dim "#2d0000") (bg-red-dimmer "#1e0000") - (fg-green "chartreuse2") (fg-green-dim "#60ae13") (fg-green-subtle "#d8ffb2") - (bg-green "#142800") (bg-green-dim "#0a1400") (bg-green-dimmer "#070f00") - (fg-yellow "gold") (fg-yellow-dim "gold3") (fg-yellow-subtle "#fff3b2") - (bg-yellow "#2d2600") (bg-yellow-dim "#141100") (bg-yellow-dimmer "#0f0c00") - (fg-blue "steelblue1") (fg-blue-dim "steelblue3") (fg-blue-subtle "#b2dcff") - (bg-blue "#002647") (bg-blue-dim "#001323") (bg-blue-dimmer "#000b14") - (fg-magenta "violet") (fg-magenta-dim "#e64be6") (fg-magenta-subtle "#ffb2ff") - (bg-magenta "#470047") (bg-magenta-dim "#280028") (bg-magenta-dimmer "#190019") - (fg-cyan "cadetblue2") (fg-cyan-dim "cadetblue3") (fg-cyan-subtle "#b2f7ff") - (bg-cyan "#00292d") (bg-cyan-dim "#001719") (bg-cyan-dimmer "#000d0f") + (fg-red "brown2") (fg-red-dim "#ca8585") (fg-red-subtle "#ffb2b2") + (bg-red "#560000") (bg-red-dim "#2d0000") (bg-red-dimmer "#1e0000") + (fg-green "chartreuse2") (fg-green-dim "#a8ca85") (fg-green-subtle "#d8ffb2") + (bg-green "#142800") (bg-green-dim "#0a1400") (bg-green-dimmer "#070f00") + (fg-yellow "gold") (fg-yellow-dim "#cac085") (fg-yellow-subtle "#fff3b2") + (bg-yellow "#2d2600") (bg-yellow-dim "#141100") (bg-yellow-dimmer "#0f0c00") + (fg-blue "steelblue1") (fg-blue-dim "#85abca") (fg-blue-subtle "#b2dcff") + (bg-blue "#002647") (bg-blue-dim "#001323") (bg-blue-dimmer "#000b14") + (fg-magenta "violet") (fg-magenta-dim "#ca85ca") (fg-magenta-subtle "#ffb2ff") + (bg-magenta "#470047") (bg-magenta-dim "#280028") (bg-magenta-dimmer "#190019") + (fg-cyan "cadetblue2") (fg-cyan-dim "#85c4ca") (fg-cyan-subtle "#b2f7ff") + (bg-cyan "#00292d") (bg-cyan-dim "#001719") (bg-cyan-dimmer "#000d0f") (fg "#fff") (fg-dim "#bbb") (fg-dimmer "#888"))) (defun eighters-show-palette () @@ -157,7 +158,7 @@ `(font-lock-preprocessor-face ((t (:foreground ,fg-blue)))) `(font-lock-regexp-grouping-backslash ((t (:foreground ,fg-yellow-dim)))) `(font-lock-regexp-grouping-construct ((t (:foreground ,fg-yellow :weight bold)))) - `(font-lock-string-face ((t (:foreground ,fg-green-dim)))) + `(font-lock-string-face ((t (:foreground ,fg-magenta-dim)))) `(font-lock-type-face ((t (:foreground ,fg-green)))) `(font-lock-variable-name-face ((t (:foreground ,fg-yellow)))) `(font-lock-warning-face ((t (:inherit warning)))) @@ -182,9 +183,10 @@ `(gnus-cite-9 ((t (:foreground ,fg-yellow-dim)))) `(gnus-cite-10 ((t (:foreground ,fg-red-dim)))) `(gnus-cite-11 ((t (:foreground ,fg-magenta-dim)))) + `(gnus-header ((t ()))) `(gnus-header-content ((t (:inherit gnus-header)))) `(gnus-header-from ((t (:inherit (eighters-identity gnus-header))))) - `(gnus-header-name ((t (:foreground ,fg-green-dim :inherit gnus-header)))) + `(gnus-header-name ((t (:inherit (font-lock-type-face eighters-ui gnus-header))))) `(gnus-header-newsgroups ((t (:inherit (warning gnus-header))))) `(gnus-header-subject ((t (:inherit (eighters-title-1 gnus-header))))) `(gnus-server-closed ((t (:inherit shadow)))) @@ -216,6 +218,7 @@ `(Man-overstrike ((t (:foreground ,fg-cyan :inherit bold)))) `(match ((t (:background ,bg-blue)))) `(minibuffer-prompt ((t (:background ,bg-blue :foreground ,fg-blue-subtle :weight bold)))) + `(mm-uu-extract ((t (:background ,bg-green-dimmer)))) `(mode-line ((t (:background ,bg-hl :box (:color ,fg) :inherit eighters-ui)))) `(mode-line-inactive ((t (:background ,bg-hl-dimmer :foreground ,fg-dimmer :box (:color ,bg-hl-dimmer) :inherit eighters-ui)))) `(outline-1 ((t (:inherit eighters-title-1)))) -- cgit v1.2.3