From 75f35eb3376eef6e56d49852ddfb7bf1e4270137 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 7 Oct 2021 01:25:13 +0100
Subject: themes: trying to set ansi-color faces (not working)

---
 lib/themes/jao-light-theme.el | 40 ++++++++++++++++++++--------------------
 lib/themes/jao-themes.el      |  2 ++
 2 files changed, 22 insertions(+), 20 deletions(-)

(limited to 'lib')

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index c099462..828eb20 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -86,18 +86,18 @@
           (mode-line-buffer-id (~ mode-line) nit)
           (mode-line-emphasis it)
           (mode-line-highlight (c green nil)))
-  (:x-faces (ansi-color-blue (c "steelblue4"))
-            (ansi-color-bright-blue (c "steelblue3"))
-            (ansi-color-cyan (c "cyan4"))
-            (ansi-color-bright-cyan (c "cyan4"))
-            (ansi-color-green (c "darkseagreen4"))
-            (ansi-color-bright-green (c "darkseagreen3"))
-            (ansi-color-magenta (c "lightpink4"))
-            (ansi-color-bright-magenta (c "lightpink3"))
-            (ansi-color-red (c "salmon4"))
-            (ansi-color-bright-red (c "salmon3"))
-            (ansi-color-yellow (c "lightgoldenrod3"))
-            (ansi-color-bright-yellow (c "lightyellow4"))
+  (:x-faces (ansi-color-blue (c "steelblue4" "steelblue4"))
+            (ansi-color-bright-blue (c "steelblue3" "steelblue3"))
+            (ansi-color-cyan (c "cyan4" "cyan4"))
+            (ansi-color-bright-cyan (c "cyan4" "cyan4"))
+            (ansi-color-green (c "darkseagreen4" "darkseagreen4"))
+            (ansi-color-bright-green (c "darkseagreen3" "darkseagreen3"))
+            (ansi-color-red (c "salmon4" "salmon4"))
+            (ansi-color-bright-red (c "salmon3" "salmon3"))
+            (ansi-color-magenta (~ ansi-color-red))
+            (ansi-color-bright-magenta (~ ansi-color-bright-red))
+            (ansi-color-yellow (c "lightgoldenrod3" "lightgoldenrod3"))
+            (ansi-color-bright-yellow (c "lightyellow4" "lightyellow4"))
             (bold bf)
             (compilation-info (c "#223142" nil) nbf)
             (company-scrollbar-bg (c nil "grey95"))
@@ -114,12 +114,12 @@
             (fill-column-indicator (c "grey80"))
             (fringe (c "grey70" nil))
             (gnus-button (p link) nul)
-            (gnus-cite-1 (c "darkslategray"))
-            (gnus-cite-2 (c "slate gray"))
-            (gnus-cite-3 (c "slate gray"))
-            (gnus-cite-4 (c "slate gray"))
+            (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") st)
+            (gnus-summary-cancelled (c "sienna3" nil) st)
             (haskell-type-face (p f12))
             (header-line (c nil "#efebe7"))
             (lui-track-bar (p dimm) :height 0.2 nul nil ex)
@@ -129,7 +129,7 @@
                        :box (:line-width -1 :color "grey90"))
             (mode-line-inactive (c "grey40" dimm-background-4)
                                 :box (:line-width -1 :color "grey90"))
-            (mode-line-buffer-id (~ default) (c dark-blue-2) nit)
+            (mode-line-buffer-id (~ default) (c dark-blue-2 nil) nit)
             (mode-line-emphasis (c green nil))
             (mode-line-highlight (c green nil))
             (org-link (p link) (ul "grey80"))
@@ -138,11 +138,11 @@
             (outline-minor-3 (c link light-grey) nit nbf ex)
             (outline-minor-4 (c nil light-grey) it nbf ex)
             (outline-minor-5 (c nil light-grey) nbf ex)
-            (scroll-bar (c "grey80"))
+            (scroll-bar (c "grey80" nil))
             (show-paren-match (c nil "grey85"))
             (success (p f00))
             (vertical-border (c "grey70" nil))
-            (warning (c "burlywood4"))))
+            (warning (c "burlywood4" nil))))
 
 ;; (enable-theme 'jao-light)
 ;; (jao-minibuffer-adjust-mode-line-faces)
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index 683bd6f..5ed1295 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -18,6 +18,8 @@
 
 ;;; Code:
 
+(require 'ansi-color)
+
 ;;; palette
 (defvar jao-themes--face-family "Inconsolata")
 (defvar jao-themes--fg "black")
-- 
cgit v1.2.3