themes spring cleaning

1 files changed, 33 insertions, 14 deletions

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index e8fe039..369fb38 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -1,3 +1,21 @@
+;;; jao-light-theme.el --- a light theme  -*- lexical-binding: t; -*-
+
+;; Author: jao <mail@jao.io>
+;; Keywords: themes
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; 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")
@@ -9,9 +27,9 @@
           (pale-yellow "#fff8e5")
           (paler-yellow "#fffff8")
           (green "#005555")
+          (slate "dark slate gray")
           (light-green "darkolivegreen4")
           (greyish "#626262")
-          ;; (blueish "midnightblue")
           (blueish "deepskyblue4")
           (blue "#819cd6")
           (blue2 "#51afef")
@@ -27,12 +45,12 @@
   (:palette (fg unspecified "black")
             (bg unspecified "white")
             ;; (bg unspecified "#fffff8")
-            (box "grey80" "antiquewhite3")
-            (button ((c link) nit))
+            (box "grey90" "grey88")
+            (button ((c "grey10" dimm-background-4) bx nit))
             (hilite ((c nil dimm-background)))
             (strike-through ((c 1)) (st))
             (italic (it))
-            (link ((c dark-blue-2) nul nbf))
+            (link ((c dark-blue-2) (ul "grey80") nbf))
             (visited-link ((c dark-blue-1) nul nbf))
             (tab-sel ((~ mode-line)))
             (tab-unsel ((~ mode-line-inactive)))
@@ -54,9 +72,9 @@
             (outline-3 ((c link) it nbf))
             (outline-4 ((c nil) it nbf))
             (outline-5 ((c nil)))
-            (f00 ((c green)))
-            (f01 ((c dark-blue-1)))
-            (f02 ((c blueish)))
+            (f00 ((c slate)))
+            (f01 ((c dark-blue-2)))
+            (f02 ((c green)))
             (f10 ((p f00)))
             (f11 ((p f01)))
             (f12 ((p f02))))
@@ -78,7 +96,11 @@
             (diff-hl-delete (c "white" "wheat1"))
             (fill-column-indicator (c "grey80"))
             (fringe (c "grey70" nil))
-            (gnus-button (p link))
+            (gnus-button (p link) nul)
+            (gnus-cite-1 (c "darkslategray"))
+            (gnus-cite-2 (c "darkslategray"))
+            (gnus-cite-3 (c "slate gray"))
+            (gnus-cite-4 (c "slate gray"))
             (gnus-summary-selected (c green) nbf)
             (gnus-summary-cancelled (c "sienna3") st)
             (header-line (c nil "#efebe7"))
@@ -95,16 +117,13 @@
             (mode-line-buffer-id (~ mode-line) (c dark-blue-2) nit)
             (mode-line-emphasis (c green nil))
             (mode-line-highlight (c green nil))
-            (org-link (p link) ul)
+            (org-link (p link) (ul "grey80"))
             (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)
-            (w3m-tab-selected-retrieving (~ w3m-tab-selected) (c 1))
-            (w3m-tab-background (c "white" "white") nul)))
+            (w3m-image (c slate "ghost white"))
+            (w3m-bold (c slate) nbf :height 1.1)))
 
 ;; (enable-theme 'jao-light)