Tweak "dim" foregrounds

(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

1 files changed, 17 insertions, 14 deletions

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))))