From a2faaa80e00fe2f00bcffabadbe9ad486e026723 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 21 Oct 2021 04:27:03 +0100
Subject: dark nits

---
 lib/themes/jao-dark-theme.el | 47 +++++++++++++++++++++++---------------------
 1 file changed, 25 insertions(+), 22 deletions(-)

(limited to 'lib/themes')

diff --git a/lib/themes/jao-dark-theme.el b/lib/themes/jao-dark-theme.el
index 98a1a6e..c15f8af 100644
--- a/lib/themes/jao-dark-theme.el
+++ b/lib/themes/jao-dark-theme.el
@@ -32,18 +32,19 @@
           (orange "#a6c1e0")
           (orange2 "#dd8844")
           (red "#e1c1ee" "#ff6655" "red")
-          (comments "lightblue4")
+          (comments "azure4" "lightblue4")
           (constants "honeydew4")
           (dimm-line-fg "#3f3f3f")
-          (dimm-line "#6f6f6f")
+          (dimm-line "#7f7f7f")
           (error "#e1c1ee")
           (functions "#7ebebd")
           (functions2 "#44b9b1")
-          (keywords "cadetblue3" "paleturquoise3")
+          (keywords "cadetblue3")
           (keywords2 "#51afef")
           (modeline-bg "#22242b")
           (modeline-bg-inactive "#24262d")
-          (region "#41454b")
+          ;;(region "#41454b")
+          (region "#31353b")
           (strings "honeydew3")
           (success "#5b94ab")
           (warning "#cfcf9c")
@@ -51,11 +52,11 @@
   (:palette (fg "#c6c6c6")
             (bg "#1f2024")
             (box "grey25")
-            (button ((p f01) bx nul))
+            (button ((p f12) bx nul))
             (hilite ((c nil region) ex))
             (strike-through (st))
             (italic (it))
-            (link ((ul dark-yellow))) ;; (ul dimm-line)
+            (link ((ul dark-blue))) ;; (ul dimm-line)
             (visited-link ((ul dark-blue)))
             (tab-sel ((c 252 232) nbf))
             (tab-unsel ((c 245 232)))
@@ -72,27 +73,30 @@
             (dimm ((c dimm-line)))
             (gnus-mail ((c nil)))
             (gnus-news ((c nil)))
-            (outline-1 ((c strings) bf))
-            (outline-2 ((c functions) bf))
-            (outline-3 ((c keywords2) bf))
-            (outline-4 ((c functions2) bf))
+            (outline-1 ((c strings) nbf))
+            (outline-2 ((c functions) nbf))
+            (outline-3 ((c blue) nbf))
+            (outline-4 ((c functions2) nbf))
             (outline-5 ((c nil)))
-            (f00 ((c "cadetblue3")))
-            (f01 ((c "lightblue4")))
+            (f00 ((c "lightskyblue3")))
+            (f01 ((c "lightskyblue4")))
             (f02 ((c "lightblue3")))
-            (f10 ((c "cadetblue4")))
-            (f11 ((c "cadetblue")))
-            (f12 ((c "darkseagreen4"))))
+            (f10 ((c "lightblue4")))
+            (f11 ((c "lightblue2")))
+            (f12 ((c "azure3"))))
   (:faces (bold (c nil nil) nul)
           (mode-line (c 248 235) nbf nul)
           (mode-line-inactive (c 243 235) nbf nul))
   (:x-faces (clojure-keyword-face (c "powder blue"))
-            (company-scrollbar-bg (c nil "#383941"))
-            (company-scrollbar-fg (c nil "#484951"))
+            (corfu-background (c "white" "grey20"))
+            (corfu-bar (c nil "grey20")) ;; moving part of the bar
+            (corfu-border (~ corfu-background)) ;; background of the bar
+            (corfu-current (c "white" "grey50") nbf nit nul)
+            (corfu-echo (~ default))
             (cursor (c warning2 warning2))
-            (diff-hl-change (c dimm-line-fg green))
-            (diff-hl-delete (c dimm-line-fg orange2))
-            (diff-hl-insert (c dimm-line-fg dark-blue))
+            (diff-hl-change (c green))
+            (diff-hl-delete (c orange2) bf)
+            (diff-hl-insert (c dark-blue))
             (fill-column-indicator (c "black") :inherit nil)
             (font-lock-doc-face (~ font-lock-comment-face) it)
             (fringe (p dimm))
@@ -110,7 +114,6 @@
             (gnus-summary-cancelled  (c "dark slate gray" nil) st)
             (gnus-summary-selected (p warning) nul nbf)
             (header-line (p hilite))
-            (link (ul dark-blue))
             (magit-diff-context-highlight (p hilite) ex)
             (mode-line (c "grey60" modeline-bg)
                        :box (:line-width 1 :color "#282b33"))
@@ -126,7 +129,7 @@
             (variable-pitch (c nil nil))
             (vertical-border (c "black") :inherit nil)
             (vertico-group-separator (p dimm) :strike-through "#6f6f6f")
-            (w3m-image (c green) bx it)
+            (w3m-image (c green) nbx it)
             (w3m-bold (c yellow))))
 
 ;; (enable-theme 'jao-dark)
-- 
cgit v1.2.3