From 906f87de8b37a59e752915e596486e31698f5f9f Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 27 Apr 2012 19:24:23 +0200
Subject: theme library tweaks

---
 themes/jao-mono-dark-theme.el | 63 +++++++++++++++++++++++--------------------
 1 file changed, 34 insertions(+), 29 deletions(-)

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

diff --git a/themes/jao-mono-dark-theme.el b/themes/jao-mono-dark-theme.el
index 043562b..5db2138 100644
--- a/themes/jao-mono-dark-theme.el
+++ b/themes/jao-mono-dark-theme.el
@@ -1,43 +1,44 @@
 (jao-define-custom-theme jao-mono-dark
-  (:palette (fg unspecified "grey60")
+  (:palette (fg unspecified "grey75")
             (bg unspecified "grey2")
-            (box "color-237" "grey30")
-            (button ((c 240) nul))
+            (box "color-237" "grey25")
+            (button ((c 240) nul) ((c "aquamarine4")))
             (hilite ((c nil 8)))
-            (strike-through ((c 237)))
-            (italic ((c 250) nul))
-            (link ((c 108) nul))
-            (visited-link ((c 107) nul))
+            (strike-through ((c 237)) (st))
+            (italic ((c 250) nul) (nit (c "lightyellow")))
+            (link ((c 108) nul) ((c "aquamarine3") nit nul))
+            (visited-link ((c 107) nul) ((c "aquamarine3") nul))
             (tab-sel ((c 252 232) nbf))
             (tab-unsel ((c 245 232) bx))
-            (comment ((c 244)))
-            (keyword ((c 151) nbf nul))
-            (function ((c 108) nul nbf))
-            (type ((c 72) nbf))
+            (comment ((c 29)))
+            (keyword ((c 151) nbf nul) ((c "darkseagreen2")))
+            (function ((c 108) nul nbf) ((c "aquamarine3")))
+            (type ((c 72) nbf) ((c "lightyellow3")))
             (variable-name ((c nil)))
-            (constant ((c 66)))
-            (string ((c 66)))
-            (warning ((c 144)))
-            (error ((c 95)))
+            (constant ((c 66)) ((p function)))
+            (string ((c 36)) ((c "aquamarine4")))
+            (warning ((c 144)) ((c "lightgoldenrod3")))
+            (error ((c 95)) ((c "goldenrod3")))
             (dimm ((c 240)))
             (gnus-mail ((c 248 nil)))
             (gnus-news ((c 248 nil)))
             (outline ((c 247)))
-            (f00 ((c 108)))
-            (f01 ((c 29))) ;; 30
-            (f02 ((c 102)))
-            (f10 ((p f00)))
-            (f11 ((p f01)))
+            (f00 ((c 29)) ((c "darkseagreen3")))
+            (f01 ((c 108)) ((c "aquamarine4")))
+            (f02 ((c 102)) ((c "lightyellow4")))
+            (f10 ((p f01)))
+            (f11 ((p f00)))
             (f12 ((p f02))))
   (:faces (bold (c nil nil) nul)
           (button (c 66))
-          (header-line (c 243 236))
-          (font-lock-doc-face (c 244))
+          (font-lock-doc-face (c 30))
           (gnus-button (c nil) nul)
+          (gnus-header-subject (p f01))
           (gnus-summary-selected (c 66 nil) nul nbf)
+          (match ul)
           (mm-uu-extract (c nil 234))
-          (mode-line (c 253 240) nbf nul)
-          (mode-line-inactive (c 245 235) nbf nul)
+          (mode-line (c 248 235) nbf nul)
+          (mode-line-inactive (c 243 235) nbf nul)
           (org-hide (c 0 nil))
           (rcirc-other-nick (c 108))
           (vertical-border (c 8 nil) :inherit nil)
@@ -45,16 +46,20 @@
           (w3m-tab-background (c 0 0))
           (w3m-tab-line (c 0 0))
           (widget-button (c 196)))
-  (:x-faces (gnus-button (c nil nil) nul)
+  (:x-faces (gnus-button (c "lightyellow4") nul)
             (gnus-summary-selected (c "grey40" nil) ul)
-            (mode-line (c 14 8) nbf nul bx)
-            (mode-line-inactive (c 3 8) nbf nul bx)
+            (header-line (c 243 235))
+            (jabber-roster-user-dnd (p warning))
+            (jabber-roster-user-error (p warning))
+            (jabber-title-small-face (~ jabber-tittle-medium-face))
+            (mode-line (c "grey75" "grey20") nbf nul bx)
+            (mode-line-inactive (c "grey40" "grey11") nbf nul bx)
             (org-hide (c 0 nil))
-            (font-lock-doc-face (c 10))
+            (font-lock-doc-face (c "darkseagreen"))
             (fringe (p dimm))
             (rcirc-other-nick (c 5))
             (vertical-border (c 8 nil) :inherit nil)
-            (w3m-image (c 100))
+            (w3m-image (c "lightyellow4"))
             (w3m-tab-background (c 0 0))
             (widget-button (c nil nil) nul))
   (:x-colors "#050505"
-- 
cgit v1.2.3