From 80e5aba8e4f30d907966aa5a35e709000b37be12 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 24 Jun 2020 02:59:32 +0100
Subject: theme tweaks

---
 themes/jao-light-theme.el | 86 +++++++++++++++++++++--------------------------
 1 file changed, 38 insertions(+), 48 deletions(-)

(limited to 'themes/jao-light-theme.el')

diff --git a/themes/jao-light-theme.el b/themes/jao-light-theme.el
index f76a958..8d1afe4 100644
--- a/themes/jao-light-theme.el
+++ b/themes/jao-light-theme.el
@@ -1,82 +1,67 @@
 (jao-define-custom-theme jao-light
   (:names (dimm-background "#f4f4f4")
           (dimm-background-2 "#f0f0f0")
-          (string-green "#00552a")
+          (link "#00552a")
           (yellow "#fdf6e3")
           (pale-yellow "#fff8e5")
           (green "#005555")
+          (light-green "darkseagreen4")
           (greyish "#626262")
           (blueish "#1414aa")
           (blue "#819cd6")
+          (blue2 "#51afef")
           (pale-blue "azure2")
           (dark-blue "#616c96")
           (dark-blue-1 "#2257A0")
-          (blue2 "#51afef")
+          (dark-blue-2 "#023770")
           (keywords "lightsteelblue4")
           (keywords2 "#2257A0")
           (functions "#005555")
-          (red "sienna3")
+          (red "salmon3")
           (red2 "sienna4"))
   (:palette (fg unspecified "black")
             (bg unspecified "white")
             (box "grey80" "antiquewhite3")
-            (button ((c 13 nil) nbf nul) ((c string-green) nit))
-            (hilite ((c nil "grey90")) ((c nil dimm-background)))
+            (button ((c link) nit))
+            (hilite ((c nil dimm-background)))
             (strike-through ((c 1)) (st))
-            (italic (it))
-            (link ((c 22) nul nbf nit) ((c string-green) nul nbf))
-            (visited-link ((c 3) nul nbf))
+            (italic ((it)))
+            (link ((c dark-blue-2) nul nbf))
+            (visited-link ((c dark-blue-1) nul nbf))
             (tab-sel ((~ mode-line)))
             (tab-unsel ((~ mode-line-inactive)))
-            (comment ((c greyish) it :family "Inconsolata LGC" :height 90)
-                     ((c greyish) it))
-            (keyword ((c keywords2 nil) nbf))
-            (type ((c 59) nbf nul nit) ((c "#223142") nbf))
+            (comment ((c greyish) it))
+            (keyword ((c dark-blue-2) nbf))
+            (type ((c light-green) nbf))
             (function ((c green nil) nbf))
-            (variable-name ((c 0)) ((c "black")))
+            (variable-name ((c "black")))
             (constant ((c 23)))
-            (string ((c 58)) ((c string-green)))
-            (warning ((c 9)) ((c "orangered4")))
-            (error ((c 1) (c red)))
-            (dimm ((c 102)) ((c "lemonchiffon4")))
-            (gnus-mail ((c 232)) ((c "black")))
-            (gnus-news ((c 232)) ((c "black")))
+            (string ((c link)))
+            (warning ((c red2)))
+            (error ((c red)))
+            (dimm ((c "lemonchiffon4")))
+            (gnus-mail ((c "black")))
+            (gnus-news ((c "black")))
             (outline ((c "black") nbf))
             (outline-1 ((c dark-blue-1) it bf))
             (outline-2 ((c functions) it nbf))
-            (outline-3 ((c string-green) it nbf))
+            (outline-3 ((c link) it nbf))
             (outline-4 ((c nil) it nbf))
             (outline-5 ((c nil)))
-            (f00 ((c green)) ((c 23))) ;; 14
-            (f01 ((c 31)) ((c 24)))
-            (f02 ((c 37)) ((c green))) ;; 8
+            (f00 ((c green)))
+            (f01 ((c 24)))
+            (f02 ((c light-green)))
             (f10 ((p f00)))
             (f11 ((p f01)))
             (f12 ((p f02))))
-  (:faces (bold bf)
-          (button (c 13 nil) nbf nul)
-          (company-tooltip-common (c 1 6) nbf)
-          (company-tooltip-common-selection (~ company-tooltip-selection)
-                                            (c nil 6) bf)
-          (company-tooltip-selection (~ company-tooltip) bf nul)
-          (compilation-info (c nil nil) bf)
-          (diary (c 14) bf)
-          (gnus-summary-selected (c 240 nil) nul)
-          (gnus-summary-cancelled (c nil 230) nul)
-          (gnus-summary-normal-unread (c 0 nil))
-          (header-line (c nil 15) nul)
-          (italic it)
-          (mode-line (c 0 "grey90") nbf nul)
-          (mode-line-inactive (c 11 "grey90") nbf nul)
-          (org-hide (c 15 15))
-          (vertical-border (c 252 nil) :inherit nil)
-          (w3m-tab-selected (c 9 nil) bf)
-          (w3m-link-numbering (c 12))
-          (w3m-bold (c nil nil) bf)
-          (w3m-image (c 94))
-          (w3m-tab-background (c 12 15)))
+  (:faces (mode-line (c nil dimm-background) ;; "ghost white"
+                     :box (:line-width 1 :color "grey80"))
+          (mode-line-inactive (c "grey40" dimm-background-2)
+                              :box (:line-width 1 :color "grey85"))
+          (mode-line-buffer-id (~ mode-line) nit)
+          (mode-line-emphasis it)
+          (mode-line-highlight (c green nil)))
   (:x-faces (bold (c "#223142") bf)
-            (gnus-button (p f01) it)
             (compilation-info (c "#223142" nil) nbf)
             (company-scrollbar-bg (c nil "grey95"))
             (company-scrollbar-fg (c nil "grey90"))
@@ -87,9 +72,12 @@
             (diff-hl-delete (c "white" "wheat1"))
             (fill-column-indicator (c "grey80"))
             (fringe (c "grey70" nil))
+            (gnus-button (p link))
             (gnus-summary-selected (c green) nbf)
             (gnus-summary-cancelled (c "sienna3") st)
             (header-line (c nil "#efebe7"))
+            (ivy-highlight-face (c nil pale-yellow))
+            (ivy-current-match (c nil pale-yellow))
             (lui-track-bar (p dimm) :height 0.2 nul nil ex)
             (magit-diff-context-highlight (c nil yellow) ex)
             (magit-diff-hunk-heading-highlight (c nil yellow) it bf)
@@ -97,11 +85,13 @@
                        :box (:line-width 1 :color "grey80"))
             (mode-line-inactive (c "grey40" dimm-background-2)
                                 :box (:line-width 1 :color "grey85"))
-            (mode-line-buffer-id (c nil) nbf nit)
-            (mode-line-emphasis it)
+            (mode-line-buffer-id (~ mode-line) nit)
+            (mode-line-emphasis (c green nil))
             (mode-line-highlight (c green nil))
             (scroll-bar (c "grey80"))
+            (success (p f00))
             (vertical-border (c "grey70" nil))
+            (warning (c "burlywood4"))
             (w3m-image (c "midnightblue" "azure2"))
             (w3m-bold (c "darkslategray") bf)
             (w3m-tab-selected (c "orangered4" "white") bf)
-- 
cgit v1.2.3