From 6f6d49b8b561d8732b23b494e572a1ffd0e8f305 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 8 Feb 2021 21:30:35 +0000
Subject: nits

---
 lib/themes/jao-light-theme.el | 13 +++++++------
 lib/themes/jao-themes.el      |  3 ++-
 2 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'lib')

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index e339aa0..469ad39 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -56,7 +56,7 @@
             (tab-unsel ((~ mode-line-inactive)))
             (comment ((c greyish) it))
             (keyword ((c dark-blue-2) nbf))
-            (type ((c blueish) nbf))
+            (type ((c nil) nbf))
             (function ((c green nil) nbf))
             (variable-name ((c "black")))
             (constant ((c 23)))
@@ -67,9 +67,9 @@
             (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 link) it nbf))
+            (outline-1 (~ bold) ((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)))
@@ -85,7 +85,7 @@
           (mode-line-buffer-id (~ mode-line) nit)
           (mode-line-emphasis it)
           (mode-line-highlight (c green nil)))
-  (:x-faces (bold bf)
+  (:x-faces (bold :family "Source Code Pro Semibold" :height 100)
             (compilation-info (c "#223142" nil) nbf)
             (company-scrollbar-bg (c nil "grey95"))
             (company-scrollbar-fg (c nil "grey90"))
@@ -103,6 +103,7 @@
             (gnus-cite-4 (c "slate gray"))
             (gnus-summary-selected (c green) nbf)
             (gnus-summary-cancelled (c "sienna3") st)
+            (haskell-type-face (p f12))
             (header-line (c nil "#efebe7"))
             (ivy-highlight-face (c nil pale-yellow))
             (ivy-current-match (c nil pale-yellow))
@@ -123,7 +124,7 @@
             (vertical-border (c "grey70" nil))
             (warning (c "burlywood4"))
             (w3m-image (c slate "ghost white"))
-            (w3m-bold (c slate) nbf :height 100)))
+            (w3m-bold (~ bold))))
 
 ;; (enable-theme 'jao-light)
 
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index c340b84..e9cb6e0 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -675,7 +675,8 @@
             (google-translate-translation-face bf)
             (gui-button-face (~ button))
             (gui-element (~ gui-button-face)))
-          `((header-line (~ mode-line-inactive))
+          `((haskell-constructor-face (~ haskell-type-face))
+            (header-line (~ mode-line-inactive))
             (help-argument-name)
             (helm-selection (p hilite))
             (helm-separator (p dimm))
-- 
cgit v1.2.3