themes: sometimes you miss the most basic faces

1 files changed, 22 insertions, 8 deletions

diff --git a/themes/jao-dark-forest-theme.el b/themes/jao-dark-forest-theme.el
index bee319b..42aaaac 100644
--- a/themes/jao-dark-forest-theme.el
+++ b/themes/jao-dark-forest-theme.el
@@ -1,11 +1,17 @@
 (jao-define-custom-theme jao-dark-forest
   (:names (zenburn-fg-05 "#989890")
           (zenburn-fg-1 "#656555")
+          (zenburn-fg-15 "#6f6f69")
+          (zenburn-fg-2 "#696969")
+          (zenburn-fg-3 "#595959")
           (zenburn-yellow "#F0DFAF")
           (zenburn-yellow-1 "#E0CF9F")
           (zenburn-yellow-2 "#D0BF8F")
+          (zenburn-yellow-3 "#C0AF7F")
+          (zenburn-yellow-4 "#B09F6F")
           (zenburn-green "#7F9F7F")
           (zenburn-green+1 "#8FB28F")
+          (zenburn-green+2 "#9FC29F")
           (zenburn-green-5 "#2F4F2F")
           (zenburn-green-4 "#3F5F3F")
           (zenburn-green-3 "#4F6F4F")
@@ -20,6 +26,7 @@
           (spaceline-bg "#1F1F1F")
           (dimm-line-fg "#3f3f3f")
           (box-line-fg "#303030")
+          (comment-fg "honeydew4")
           (zenburn-bg-05 "#212121"))
   (:palette (fg unspecified "dark grey")
             (bg unspecified "#1f1f1f")
@@ -32,15 +39,16 @@
             (visited-link ((c zenburn-green-2) nit nul))
             (tab-sel ((c 252 232) nbf))
             (tab-unsel ((c 245 232)))
-            (comment ((c 102) it) ((c "grey45")))
+            (comment ((c 102) it) ((c comment-fg)))
             (keyword ((c 151) nbf nul nit) ((c zenburn-green+1)))
             (function ((c 115) nul nbf) ((c zenburn-green-1)))
             (type ((c 72) nbf) ((c "honeydew3")))
             (variable-name ((c nil)))
             (constant ((c 72)) ((c zenburn-red-3) nbf nit nul))
-            (string ((c 36)) ((c zenburn-red-2)))
-            (warning ((c 144)) ((c zenburn-red-1)))
-            (error ((c 95)) ((c zenburn-orange)))
+            (string ((c 36)) ((c "wheat3"))) ;; "slate gray" "medium aquamarine"
+            (error ((c 144)) ((c zenburn-red-1)))
+            (warning ((c 95)) ((c zenburn-orange)))
+            (success ((c zenburn-green+2)))
             (dimm ((c 59)) ((c "#6f6f6f")))
             (gnus-mail ((c zenburn-fg-05)))
             (gnus-news ((c zenburn-fg-05)))
@@ -74,22 +82,28 @@
             (company-scrollbar-fg (c nil "#484951"))
             (diff-hl-change (c dimm-line-fg "#313131"))
             (diff-hl-delete (c dimm-line-fg zenburn-red-3))
-            (diff-hl-insert (c dimm-line-fg "#414141"))
+            (diff-hl-insert (c dimm-line-fg "lemonchiffon4"))
             (fill-column-indicator (c box-line-fg) :inherit nil)
-            (font-lock-doc-face (c "lightcyan3") it)
+            (font-lock-doc-face (~ font-lock-comment-face) it)
             (fringe (p dimm))
             (gnus-button (c "lightyellow3") nul)
             (gnus-cite-1 (c zenburn-fg-05))
             (gnus-cite-2 (c zenburn-fg-1))
             (gnus-cite-3 (c zenburn-fg-1))
             (gnus-cite-4 (c zenburn-fg-1))
+            (gnus-group-mail-3 (c nil nil)) ;; "#252525"
+            (gnus-group-mail-3-empty (c zenburn-fg-2))
+            (gnus-group-news-3 (~ gnus-group-mail-3))
+            (gnus-group-news-3-empty (~ gnus-group-mail-3-empty))
             (gnus-summary-cancelled  (c "dark slate gray" nil) st)
             (gnus-summary-selected (p warning) nul nbf)
             (header-line (p hilite))
+            (lui-track-bar (c nil "#303030") :height 0.1 ex)
+            (magit-diff-context-highlight (c nil "grey20") ex)
             (mode-line (c "grey60" "#2b2b2b")
-                       :box (:line-width 1 :color "grey18"))
+                       :box (:line-width 1 :color "grey28"))
             (mode-line-inactive (c "grey35" zenburn-bg-05)
-                                :box (:line-width 1 :color "grey17"))
+                                :box (:line-width 1 :color "grey20"))
             (mode-line-buffer-id (c zenburn-green-2))
             (org-hide (c 0 nil))
             (scroll-bar (c box-line-fg))