1 files changed, 58 insertions, 57 deletions
diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 3cfba2b..edcb951 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -17,64 +17,64 @@
 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 (jao-define-custom-theme jao-light
-  (:names (dimm-background "#f4f4f4")
-          (dimm-background-2 "#f0f0f0")
-          (dimm-background-3 "#f6f6f6")
-          (dimm-background-4 "#fafafa")
-          (yellowish-background "#fffff8")
-          (link "#00552a")
-          (yellow "#fdf6e3")
-          (pale-yellow "#fff8e5")
-          (paler-yellow "#fffff8")
-          (green "#005555")
-          (slate "dark slate gray")
-          (light-green "darkolivegreen4")
-          (greyish "#626262")
-          (blueish "deepskyblue4")
-          (blue "#819cd6")
-          (blue2 "#51afef")
-          (pale-blue "azure2")
-          (dark-blue "#616c96")
-          (dark-blue-1 "#2257A0")
-          (dark-blue-2 "#023770")
-          (keywords "lightsteelblue4")
-          (keywords2 "#2257A0")
-          (light-grey "grey97")
-          (functions "#005555")
-          (red "salmon3")
-          (red2 "sienna4"))
+  (:names (bg1 "gray98")
+          (bg2 "gray95")
+          (bg3 "gray90")
+          (bg4 "gray85")
+          (bg5 "gray98")
+          (bg6 "gray99")
+          (bg7 "gray80")
+
+          (fg1  "black")
+          (fg2 "gray10")
+          (fg3 "gray20")
+          (fg4 "gray30")
+          (fg5 "gray40")
+
+          (hl "cornsilk1")
+          (dimm "lemonchiffon4")
+
+          (str  "gray10")
+
+          (search   "#e8e800")
+          (search2  "#ffffb4")
+
+          (warning "orange4")
+          (red "burlywood4")
+          (blue "#023770")
+          (green "#005555"))
   (:face-family "Roboto Mono")
   (:bold-weight 'medium)
   (:palette (fg "black")
             (bg "white")
-            (box "grey88")
-            (button (c "grey10" dimm-background-4) bx nit)
-            (hilite (c nil dimm-background))
-            (link (c dark-blue-2) (ul "grey80") nbf)
-            (visited-link (c dark-blue-1) nul nbf)
+            (box "gray80")
+            (button (c fg5 bg2) ul)
+            (hilite (c nil hl))
+            (link (c green) nbf (ul bg7))
+            (visited-link (ul bg7) nbf)
             (tab-sel (~ mode-line))
             (tab-unsel (~ mode-line-inactive))
-            (comment (c greyish) it)
-            (keyword (c dark-blue-2) nbf)
-            (type (c nil) nbf)
-            (function (c green nil) nbf)
-            (variable-name (c "black"))
-            (constant (c 23))
-            (string (c link))
-            (warning (c red2))
-            (error (c red))
-            (dimm (c "lemonchiffon4"))
+            (comment (c fg5) it)
+            (keyword (c blue) bf)
+            (type (c blue) nbf)
+            (function (c green))
+            (variable-name (c fg1))
+            (constant (c fg4))
+            (string (c str) it)
+            (warning (c warning))
+            (error (c red) bf)
+            (dimm (c dimm))
             (gnus-mail (c "black"))
             (gnus-news (c "black"))
-            (outline (c "black") nbf)
-            (outline-1 (c dark-blue-1) nit)
-            (outline-2 (c functions) nit nbf)
-            (outline-3 (c link) nit nbf)
-            (outline-4 (c nil) it nbf)
-            (outline-5 (c nil))
-            (f00 (c slate))
-            (f01 (c dark-blue-2))
-            (f02 (c green))
+            (outline (c "black") bf)
+            (outline-1 (c green) bf)
+            (outline-2 (c green) nbf)
+            (outline-3 (c blue) nul nbf)
+            (outline-4 (c blue) nul nbf)
+            (outline-5 (c blue) nul nbf)
+            (f00 (c green))
+            (f01 (c blue))
+            (f02 (c fg1))
             (f10 (p f00))
             (f11 (p f01))
             (f12 (p f02)))
@@ -90,18 +90,18 @@
             (diff-hl-delete (c "white" "wheat1"))
             (fill-column-indicator (c "grey80"))
             (fringe (c "grey70" nil))
-            (gnus-button (p f01) bf)
+            (gnus-button (c blue))
             (gnus-cite-1 (c "darkslategray" nil))
             (gnus-cite-2 (c "slate gray" nil))
             (gnus-cite-3 (c "slate gray" nil))
             (gnus-cite-4 (c "slate gray" nil))
             (gnus-summary-selected (c green) nbf)
             (gnus-summary-cancelled (c "sienna3" nil) st)
-            (header-line (c "grey30" dimm-background-2)
+            (header-line (c fg4 bg1)
                          :box (:line-width 1 :color "grey90"))
-            (magit-diff-context-highlight (c nil yellow) ex)
-            (magit-diff-hunk-heading-highlight (c nil yellow) it bf)
-            (mode-line (c "grey30" dimm-background-2)
+            (magit-diff-context-highlight (c nil hl) ex)
+            (magit-diff-hunk-heading-highlight (c nil hl) it bf)
+            (mode-line (c "grey30" bg2)
                        :box (:line-width -1 :color "grey90"))
             (mode-line-inactive (c "grey40" "white")
                                 :box (:line-width -1 :color "grey90"))
@@ -111,9 +111,10 @@
             (org-link (p link) (ul "grey80"))
             (scroll-bar (c "grey80" nil))
             (show-paren-match (c nil "grey85"))
-            (success (p f00))
+            (shr-text (c nil nil))
+            (shr-link (~ link) (ul fg5))
+            (shr-code (c blue nil))
             (vertical-border (c "grey70" nil))
-            (warning (c "burlywood4" nil))
             (widget-button (~ default) nit (ul "grey80"))))
 
 ;; (enable-theme 'jao-light)