From f077073c1dbcf38407a524450afa5ec65844acc6 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@imladris>
Date: Tue, 20 May 2014 02:01:57 +0200
Subject: themes tweaks

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

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

diff --git a/themes/jao-light-theme.el b/themes/jao-light-theme.el
index 4f51309..fefcbed 100644
--- a/themes/jao-light-theme.el
+++ b/themes/jao-light-theme.el
@@ -1,52 +1,56 @@
 (jao-define-custom-theme jao-light
   (:palette (fg unspecified "black")
             (bg unspecified "white")
-            (box "magenta" "antiquewhite3")
+            (box "grey80" "antiquewhite3")
             (button ((c 13 nil) nbf nul) (~ mode-line-inactive))
-            (hilite ((c nil 15))) ;; 5
+            (hilite ((c nil "grey89")) ((c nil 15))) ;; 5
             (strike-through ((c 1)) (st))
-            (italic ((c nil) it :family "Inconsolata LGC" :height 90))
+;;            (italic ((c nil) it :family "DejaVu Sans Mono" :height 90))
+            (italic ((c "darkslategray4")))
             (link (ul nbf nit) ((c 29) nul nbf))
             (visited-link ((c 24) nul nbf))
             (tab-sel ((~ mode-line)))
             (tab-unsel ((~ mode-line-inactive)))
             ;; (comment ((c nil) it :family "Inconsolata LGC" :height 80))
             (comment ((c 237) it))
-            (keyword ((c 24 nil) nbf))
-;;            (keyword ((c 237 nil) bf))
+;;            (keyword ((c 24 nil) nbf))
+            (keyword ((c 30 nil) bf))
             (type ((c 25) nbf nul) ((c 14) nbf))
-            (function ((c 31 nil) nbf) ((c 30 nil) nbf))
+            (function ((c 30 nil) nbf) ((c 30 nil) nbf))
 ;;            (function ((c 31 nil) nbf) ((c 0 nil) nbf it ul))
             (variable-name ((c 0)))
-            (constant ((c 14)))
-            (string ((c 13)) ((c 29)))
+            (constant ((c 22)))
+            (string ((c 66)) ((c 29)))
             (warning ((c 9)))
             (error ((c 1)))
-            (dimm ((c "grey69")) ((c 12)))
-            (gnus-mail ((c 0)))
-            (gnus-news ((c 0)))
+            (dimm ((c 109)) ((c 12)))
+            (gnus-mail ((c 232)) ((c 0)))
+            (gnus-news ((c 232)) ((c 0)))
             (outline ((c 0)))
-            (f00 ((c 8))) ;; 14
-            (f01 ((c 14)))
-            (f02 ((c 10))) ;; 8
+            (f00 ((c 30))) ;; 14
+            (f01 ((c 30)))
+            (f02 ((c 31))) ;; 8
+            ;; (f00 ((c 8))) ;; 14
+            ;; (f01 ((c 14)))
+            ;; (f02 ((c 10))) ;; 8
             (f10 ((p f00)))
             (f11 ((p f01)))
             (f12 ((p f02))))
-  (:faces (bold (c 256) bf)
+  (:faces (bold bf)
           (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 13 nil) nul)
+          (gnus-summary-selected (c 240 nil) 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 "grey80" nil) :inherit nil)
+          (vertical-border (c 250 nil) :inherit nil)
           (w3m-tab-selected (c 9 nil) bf)
           (w3m-link-numbering (c 12))
           (w3m-bold (c nil nil) bf)
-- 
cgit v1.2.3