Add more Gnus faces to eighters theme

1 files changed, 33 insertions, 4 deletions

diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el
index c5baf1b..b5d0aac 100644
--- a/.emacs.d/eighters-theme.el
+++ b/.emacs.d/eighters-theme.el
@@ -55,11 +55,11 @@
     (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-subtle "#b2dcff")
+    (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-subtle "#b2f7ff")
+    (fg-cyan "cadetblue2")      (fg-cyan-dim "cadetblue3")  (fg-cyan-subtle "#b2f7ff")
     (bg-cyan "#00292d")         (bg-cyan-dim "#001719")     (bg-cyan-dimmer "#000d0f")
     (fg "#fff") (fg-dim "#bbb") (fg-dimmer "#888")))
 
@@ -71,6 +71,10 @@
 
 (defface eighters-button nil
   "Face for elements that can be \"pushed\" with RET.")
+(defface eighters-date nil
+  "Face for text that describes dates.")
+(defface eighters-identity nil
+  "Face for names of persons")
 (defface eighters-markup nil
   "Face for text that describes \"structure\" rather than content.")
 (defface eighters-title-1 nil
@@ -96,6 +100,8 @@
   'eighters
 ;;; Theme faces.
   `(eighters-button ((t (:background ,bg-hl-dimmer :box (:color ,bg-hl :style released-button) :inherit eighters-ui))))
+  `(eighters-date ((t (:foreground ,fg-magenta))))
+  `(eighters-identity ((t (:foreground ,fg-red))))
   `(eighters-markup ((t (:foreground ,fg-dim))))
   `(eighters-title-1 ((t (:foreground ,fg-cyan-subtle :weight bold :height 1.28 :inherit variable-pitch))))
   `(eighters-title-2 ((t (:foreground ,fg-green-subtle :weight bold :height 1.20 :inherit variable-pitch))))
@@ -161,12 +167,35 @@
   `(gnus-group-mail-low-empty ((t (:foreground ,fg-dimmer))))
   `(gnus-group-news-3 ((t (:foreground ,fg-magenta :weight bold))))
   `(gnus-group-news-3-empty ((t (:foreground ,fg-magenta-dim))))
+  `(gnus-button ((t (:inherit link))))
+  `(gnus-cite-1 ((t (:foreground ,fg-cyan-dim))))
+  `(gnus-cite-2 ((t (:foreground ,fg-green-dim))))
+  `(gnus-cite-3 ((t (:foreground ,fg-yellow-dim))))
+  `(gnus-cite-4 ((t (:foreground ,fg-red-dim))))
+  `(gnus-cite-5 ((t (:foreground ,fg-magenta-dim))))
+  `(gnus-cite-6 ((t (:foreground ,fg-blue-dim))))
+  `(gnus-cite-7 ((t (:foreground ,fg-cyan-dim))))
+  `(gnus-cite-8 ((t (:foreground ,fg-green-dim))))
+  `(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-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-newsgroups ((t (:inherit (warning gnus-header)))))
+  `(gnus-header-subject ((t (:inherit (eighters-title-1 gnus-header)))))
   `(gnus-server-closed ((t (:inherit shadow))))
   `(gnus-server-cloud ((t (:foreground ,fg-dimmer))))
   `(gnus-server-cloud-host ((t (:foreground ,fg-dim :underline t))))
   `(gnus-server-denied ((t (:inherit error))))
   `(gnus-server-offline ((t (:inherit error))))
   `(gnus-server-opened ((t (:inherit success))))
+  `(gnus-signature ((t (:inherit font-lock-comment-face))))
+  `(gnus-summary-cancelled ((t (:strike-through t :inherit shadow))))
+  `(gnus-summary-normal-ancient ((t (:foreground ,fg-dim))))
+  `(gnus-summary-normal-read ((t (:foreground ,fg-dim :slant italic))))
+  `(gnus-summary-normal-ticked ((t (:foreground ,fg-yellow-dim))))
+  `(gnus-summary-selected ((t (:inherit highlight))))
   `(header-line ((t (:background ,bg-hl :inherit eighters-ui))))
   `(help-key-binding ((t (:background ,bg-hl-dimmer :foreground ,fg-magenta :inherit fixed-pitch-serif))))
   `(highlight ((t (:background ,bg-hl-dim))))
@@ -259,9 +288,9 @@
   `(magit-branch-local ((t (:foreground ,fg-blue))))
   `(magit-branch-remote ((t (:foreground ,fg-green-dim))))
   `(magit-branch-remote-head ((t (:inverse-video t :inherit magit-branch-remote))))
-  `(magit-log-date ((t (:foreground ,fg-magenta))))
+  `(magit-log-date ((t (:inherit eighters-date))))
   `(magit-hash ((t (:inherit shadow))))
-  `(magit-log-author ((t (:foreground ,fg-red-dim))))
+  `(magit-log-author ((t (:inherit eighters-identity))))
   `(magit-log-graph ((t (:inherit eighters-markup))))
   ;; FIXME: Teach magit-section overlays to de-prioritize their
   ;; :background so that tags can have one.