From 78e9e7ca8199ba1341bea7e664678fa8d02f8402 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 2 Oct 2021 01:56:46 +0100
Subject: themes: ansi colors faces

---
 lib/themes/jao-light-theme.el | 14 +++++++++++++-
 lib/themes/jao-themes.el      | 10 +---------
 2 files changed, 14 insertions(+), 10 deletions(-)

(limited to 'lib')

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 1ecff6a..60f5fc4 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -86,7 +86,19 @@
           (mode-line-buffer-id (~ mode-line) nit)
           (mode-line-emphasis it)
           (mode-line-highlight (c green nil)))
-  (:x-faces (bold bf)
+  (:x-faces (ansi-color-bright-blue (c "steelblue3"))
+            (ansi-color-bright-cyan (c "cyan4"))
+            (ansi-color-bright-green (c "darkseagreen3"))
+            (ansi-color-bright-magenta (c "lightpink3"))
+            (ansi-color-bright-red (c "salmon3"))
+            (ansi-color-bright-yellow (c "lightyellow4"))
+            (ansi-color-blue (c "steelblue4"))
+            (ansi-color-cyan (c "cyan4"))
+            (ansi-color-green (c "darkseagreen4"))
+            (ansi-color-magenta (c "lightpink4"))
+            (ansi-color-red (c "salmon4"))
+            (ansi-color-yellow (c "lightgoldenrod3"))
+            (bold bf)
             (compilation-info (c "#223142" nil) nbf)
             (company-scrollbar-bg (c nil "grey95"))
             (company-scrollbar-fg (c nil "grey90"))
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index 96e8398..86273df 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -18,8 +18,6 @@
 
 ;;; Code:
 
-(require 'ansi-color)
-
 ;;; palette
 (defvar jao-themes--face-family "Inconsolata")
 (defvar jao-themes--fg "black")
@@ -1176,14 +1174,8 @@
          (palette (cdr (assoc :palette args)))
          (faces (or (cdr (assoc :faces args)) (list)))
          (x-faces (cdr (assoc :x-faces args)))
-         (x-colors (cdr (assoc :x-colors args)))
-         (a-colors (cdr (assoc :ansi-colors args)))
-         (ansi-colors (when a-colors
-                        (apply 'vector (butlast a-colors
-                                                (- (length a-colors) 8))))))
+         (x-colors (cdr (assoc :x-colors args))))
     `(progn
-       (setq ansi-color-names-vector ,ansi-colors)
-       (ansi-color-map-update 'ansi-color-names-vector ,ansi-colors)
        (custom-make-theme-feature ',name)
        (deftheme ,name)
        (let ((*jao-themes--color-names* ',(cdr (assoc :names args))))
-- 
cgit v1.2.3