From 96919919074553e138d4eb85fdbf2d1558a55307 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 3 Oct 2020 16:41:15 +0100
Subject: new theme: greenish

---
 themes/jao-doomish-theme.el  |   1 +
 themes/jao-greenish-theme.el | 112 +++++++++++++++++++++++++++++++++++++++++++
 themes/jao-themes.el         |   1 +
 3 files changed, 114 insertions(+)
 create mode 100644 themes/jao-greenish-theme.el

(limited to 'themes')

diff --git a/themes/jao-doomish-theme.el b/themes/jao-doomish-theme.el
index 7645e17..5ac666c 100644
--- a/themes/jao-doomish-theme.el
+++ b/themes/jao-doomish-theme.el
@@ -128,6 +128,7 @@
             (org-code (c yellow))
             (scroll-bar (c bg))
             (term-color-blue (c nil nil) it)
+            (vterm-color-blue (c light-blue nil))
             (show-paren-match (c "darkseagreen1" "#5f5f5f"))
             (variable-pitch (c nil nil))
             (vertical-border (c "black") :inherit nil)
diff --git a/themes/jao-greenish-theme.el b/themes/jao-greenish-theme.el
new file mode 100644
index 0000000..aea7ce3
--- /dev/null
+++ b/themes/jao-greenish-theme.el
@@ -0,0 +1,112 @@
+(jao-define-custom-theme jao-greenish
+  (:names (bg "#282b33" nil nil)
+          (bg-alt "#1f2024" nil nil)
+          (comments "#5699AF" "#6e7899")
+          (constants "#a6c1e0")
+          (dark-blue "#616c96")
+          (dimm-line-fg "#3f3f3f")
+          (dimm-line "#6f6f6f")
+          (error "#e1c1ee")
+          (fg "#c6c6c6")
+          (fg-0.5 "#a6a6a6")
+          (fg-1 "#868686")
+          (fg-2 "#666666")
+          (functions "#7ebebd")
+          (functions2 "#44b9b1")
+          (blue "#819cd6")
+          (green "#5b94ab")
+          (keywords "paleturquoise3" "aquamarine3")
+          (keywords2 "#51afef")
+          (modeline-bg "#22242b")
+          (modeline-bg-inactive "#24262d")
+          (orange "#a6c1e0")
+          (orange2 "#dd8844")
+          (red "#e1c1ee" "#ff6655" "red")
+          (region "#41454b")
+          (strings "lightskyblue4")
+          (success "#5b94ab" "#99bb66")
+          (warning "#cfcf9c")
+          (warning2 "#ECBE7B")
+          (yellow "antiquewhite3" "#ECBE7B" "#cfcf9c")
+          (dark-yellow "antiquewhite4"))
+  (:palette (fg unspecified "#c6c6c6")
+            (bg unspecified "#1f2024") ;; bg-alt
+            (box "#2d2d2d" "grey25")
+            (button ((p f01) bx nul))
+            (hilite ((c nil region) ex))
+            (strike-through (st))
+            (italic (it))
+            (link ((c yellow) (ul dimm-line)))
+            (visited-link ((c dark-yellow) ul))
+            (tab-sel ((c 252 232) nbf))
+            (tab-unsel ((c 245 232)))
+            (comment ((c fg-0.5) it))
+            (keyword ((c keywords)))
+            (function ((c functions)))
+            (type ((c strings)))
+            (variable-name ((c nil)))
+            (constant ((c fg-1)))
+            (string ((c strings)))
+            (error ((c warning2)))
+            (warning ((c warning)))
+            (success ((c green)))
+            (dimm ((c dimm-line)))
+            (gnus-mail ((c nil)))
+            (gnus-news ((c nil)))
+            (outline-1 ((c keywords) bf))
+            (outline-2 ((c functions) bf))
+            (outline-3 ((c keywords2) bf))
+            (outline-4 ((c functions2) bf))
+            (outline-5 ((c nil)))
+            (f00 ((c "lightcyan3")))
+            (f01 ((c "darkslategray3")))
+            (f02 ((c "lightblue3")))
+            (f10 ((c "cadetblue4")))
+            (f11 ((c "lightskyblue2")))
+            (f12 ((c "lightskyblue3"))))
+  (: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"))
+            (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))
+            (fill-column-indicator (c "black") :inherit nil)
+            (font-lock-doc-face (~ font-lock-comment-face) it)
+            (fringe (p dimm))
+            (gnus-button (c "lightyellow3") nul)
+            (gnus-cite-1 (c fg-0.5))
+            (gnus-cite-2 (c fg-1))
+            (gnus-cite-3 (c fg-2))
+            (gnus-cite-4 (c fg-2))
+            (gnus-group-mail-3 (c nil))
+            (gnus-group-mail-3-empty (c fg-0.5))
+            (gnus-group-news-3 (~ gnus-group-mail-3))
+            (gnus-group-news-3-empty (~ gnus-group-mail-3-empty))
+            (gnus-summary-cancelled  (c "dark slate gray" nil) st)
+            (gnus-summary-selected (p warning) nul nbf)
+            (header-line (p hilite))
+            (magit-diff-context-highlight (p hilite) ex)
+            (mode-line (c "grey60" modeline-bg)
+                       :box (:line-width 1 :color "#282b33")) ;; "#22242b"
+            (mode-line-inactive (c "grey35" modeline-bg-inactive)
+                                :box (:line-width 1 :color "#282b33")) ;; "#24262d"
+            (mode-line-buffer-id (c nil) bf)
+            (org-hide (c 0 nil))
+            (org-code (c yellow))
+            (scroll-bar (c bg))
+            (term-color-blue (c nil nil) it)
+            (vterm-color-blue (c blue nil))
+            (show-paren-match (c "darkseagreen1" "#5f5f5f"))
+            (variable-pitch (c nil nil))
+            (vertical-border (c "black") :inherit nil)
+            (w3m-image (c green) bx it)
+            (w3m-tab-background (c nil nil))
+            (w3m-tab-line (c 0 0) ul)
+            (widget-button (c nil nil) nul)))
+
+;; (enable-theme 'jao-greenish)
+
+(provide 'jao-greenish-theme)
diff --git a/themes/jao-themes.el b/themes/jao-themes.el
index c4effcf..f3ac644 100644
--- a/themes/jao-themes.el
+++ b/themes/jao-themes.el
@@ -146,6 +146,7 @@
                     (if (listp val)
                         (jao-themes--parse-face-body val)
                       val)))))
+           (ul `(:underline ,(jao-themes--color (cadr s))))
            (~ (cdr (assq (cadr s) *jao--parsed-faces*)))
            (t (list s))))
         ((atom s)
-- 
cgit v1.2.3