diff options
author | jao <jao@gnu.org> | 2021-02-02 05:16:17 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-02-02 05:16:17 +0000 |
commit | 771abb84830678455de4625ac7f082d8100f0ea0 (patch) | |
tree | 0d303c2cb0861b949ca73a9705954f6a69c4f877 /themes | |
parent | 81eceb5507aa0659e9f0c9761e54e9102085c4ac (diff) | |
download | elibs-771abb84830678455de4625ac7f082d8100f0ea0.tar.gz elibs-771abb84830678455de4625ac7f082d8100f0ea0.tar.bz2 |
libs -> lib/
Diffstat (limited to 'themes')
-rw-r--r-- | themes/jao-dark-blue-theme.el | 100 | ||||
-rw-r--r-- | themes/jao-dark-forest-theme.el | 131 | ||||
-rw-r--r-- | themes/jao-dark-theme.el | 77 | ||||
-rw-r--r-- | themes/jao-doom-theme.el | 57 | ||||
-rw-r--r-- | themes/jao-doomish-theme.el | 152 | ||||
-rw-r--r-- | themes/jao-greenish-theme.el | 114 | ||||
-rw-r--r-- | themes/jao-light-theme.el | 111 | ||||
-rw-r--r-- | themes/jao-mono-dark-theme.el | 98 | ||||
-rw-r--r-- | themes/jao-themes.el | 1099 | ||||
-rw-r--r-- | themes/jao-zenburn-theme.el | 132 |
10 files changed, 0 insertions, 2071 deletions
diff --git a/themes/jao-dark-blue-theme.el b/themes/jao-dark-blue-theme.el deleted file mode 100644 index 800bc28..0000000 --- a/themes/jao-dark-blue-theme.el +++ /dev/null @@ -1,100 +0,0 @@ -(jao-define-custom-theme jao-dark-blue - (:palette (fg unspecified "grey77") - ;; (bg unspecified "#3f3f3f") - ;; (bg unspecified "#0e1111") - (bg unspecified "#192021") - (box "color-237" "grey25") - (button ((c 240) nul) - ;; ((c "lightskyblue2" "#3f3f4f")) - ((c "lightskyblue2" "#333436") nul)) - (hilite ((c nil "#303336"))) - (strike-through ((c 237)) (st)) - (italic ((c 137) it) (it (c "lightyellow3"))) - ;; (link ((c 108) nul) ((c "#F0DFAF") nit nul)) - ;; (visited-link ((c 36) nul) ((c "#E0CF9F") nul)) - (link ((c "antiquewhite3") nit nul)) - ;; (link ((c "lemonchiffon") nit nul)) - (visited-link ((c "burlywood3") nit nul)) - (tab-sel ((c 252 232) nbf)) - (tab-unsel ((c 245 232))) - (comment ((c 102) it) ((c "lightsteelblue4") it)) - ;; (keyword ((c 151) nbf nul nit) ((c "darkseagreen3"))) - ;; (function ((c 115) nul nbf) ((c "palegreen3"))) - (keyword ((c 151) nbf nul nit) ((c "lightblue3"))) - ;; (function ((c 115) nul nbf) ((c "lightskyblue3"))) - (function ((c 115) nul nbf) ((c "cadetblue3"))) - (type ((c 72) nbf) ((c "honeydew3"))) - (variable-name ((c nil))) - ;; (constant ((c 72)) ((c "lavenderblush4"))) - (constant ((c 72)) ((c "slategray3") nbf nit nul)) - ;; (string ((c 36)) ((c "thistle4"))) - (string ((c 36)) ((c "cadetblue"))) - (warning ((c 144)) ((c "#F0DFAF"))) - (error ((c 95)) ((c "goldenrod3"))) - ;; (dimm ((c 240))) - (dimm ((c 59)) ((c "#6f6f6f"))) - (gnus-mail ((c "gray70" nil))) - (gnus-news ((c "gray70" nil))) - ;; (outline ((c "aquamarine3"))) - (outline ((c nil))) - (f00 ((c 29)) ((c "slategray3"))) - (f01 ((c 108)) ((c "cadetblue"))) - (f02 ((c 102)) ((c "lightcyan4"))) ;; ((c "paleturquoise4")) - (f10 ((c "cornsilk3"))) - (f11 ((c "lemonchiffon3"))) - (f12 ((c "azure3")))) - (:faces (bold (c nil nil) nul) - (button (c 66)) - (font-lock-doc-face (c 30)) - (gnus-button (c nil) nul) - (gnus-header-subject (p f01)) - (gnus-summary-selected (c 250)) - ;; (gnus-summary-selected (c 66 nil) nul nbf) - (match ul) - (magit-log-tag-label (c 95 240) nbf) - (mm-uu-extract (c nil 234)) - (mode-line (c 248 235) nbf nul) - (mode-line-inactive (c 243 235) nbf nul) - (org-hide (c 0 nil)) - (rcirc-other-nick (c 108)) - (vertical-border (c 59 nil) :inherit nil) - (w3m-image (c 144)) - (w3m-tab-background (c 0 0) ul) - (w3m-tab-line (c 0 0) ul) - (widget-button (c 196)) - (widget-field (c 143 236))) - (:x-faces (company-scrollbar-bg (c nil "#383941")) - (company-scrollbar-fg (c nil "#484951")) - (diff-hl-change (c "#3f3f3f" "darkseagreen4")) - (diff-hl-delete (c "#3f3f3f" "goldenrod4")) - (diff-hl-insert (c "#3f3f3f" "cadetblue4")) - (fill-column-indicator (c "#303030") :inherit nil) - (font-lock-doc-face (c "lightcyan3") it) - (fringe (p dimm)) - (gnus-button (c "lightyellow3") nul) - (gnus-summary-cancelled (c "dark slate gray" nil) st) - (gnus-summary-selected (p warning) nul nbf) - (header-line (p hilite)) - (mode-line (c "grey60" "#2f2f2f")) - (mode-line-inactive (c "grey50" "#3f3f3f")) - (org-hide (c 0 nil)) - (show-paren-match (c "darkseagreen1" "#5f5f5f")) - (spaceline-read-only (c "lightgoldenrod2" "gray10") niv) - (spaceline-modified (c "burlywood3" "gray10") nbf nit) - (spaceline-unmodified (c "darkseagreen" "gray10") niv) - (variable-pitch (c nil nil)) - (vertical-border (c "#3f3f3f") :inherit nil) - (w3m-image (c "lightcyan2")) - (w3m-tab-background (c nil nil)) - (w3m-tab-line (c 0 0) ul) - (widget-button (c nil nil) nul)) - (:x-colors "lemonchiffon" - "sienna3" - "darkseagreen3" - "lightgoldenrod3" - "cadetblue4" - "lightcyan4" - "cadetblue3" - "black")) - -(provide 'jao-dark-blue-theme) diff --git a/themes/jao-dark-forest-theme.el b/themes/jao-dark-forest-theme.el deleted file mode 100644 index 42aaaac..0000000 --- a/themes/jao-dark-forest-theme.el +++ /dev/null @@ -1,131 +0,0 @@ -(jao-define-custom-theme jao-dark-forest - (:names (zenburn-fg-05 "#989890") - (zenburn-fg-1 "#656555") - (zenburn-fg-15 "#6f6f69") - (zenburn-fg-2 "#696969") - (zenburn-fg-3 "#595959") - (zenburn-yellow "#F0DFAF") - (zenburn-yellow-1 "#E0CF9F") - (zenburn-yellow-2 "#D0BF8F") - (zenburn-yellow-3 "#C0AF7F") - (zenburn-yellow-4 "#B09F6F") - (zenburn-green "#7F9F7F") - (zenburn-green+1 "#8FB28F") - (zenburn-green+2 "#9FC29F") - (zenburn-green-5 "#2F4F2F") - (zenburn-green-4 "#3F5F3F") - (zenburn-green-3 "#4F6F4F") - (zenburn-green-2 "#5F7F5F") - (zenburn-green-1 "#6F8F6F") - (zenburn-orange "#DFAF8F") - (zenburn-blue-5 "#366060") - (zenburn-red "#CC9393") - (zenburn-red-1 "#BC8383") - (zenburn-red-2 "#AC7373") - (zenburn-red-3 "#9C6363") - (spaceline-bg "#1F1F1F") - (dimm-line-fg "#3f3f3f") - (box-line-fg "#303030") - (comment-fg "honeydew4") - (zenburn-bg-05 "#212121")) - (:palette (fg unspecified "dark grey") - (bg unspecified "#1f1f1f") - (box zenburn-fg-05 "grey25") - (button ((c 240) nul) (bx nul)) - (hilite ((c nil "#2a2b2c") ex)) - (strike-through ((c 237)) (st)) - (italic ((c 137) it) (it)) - (link ((c zenburn-green) nit nul)) - (visited-link ((c zenburn-green-2) nit nul)) - (tab-sel ((c 252 232) nbf)) - (tab-unsel ((c 245 232))) - (comment ((c 102) it) ((c comment-fg))) - (keyword ((c 151) nbf nul nit) ((c zenburn-green+1))) - (function ((c 115) nul nbf) ((c zenburn-green-1))) - (type ((c 72) nbf) ((c "honeydew3"))) - (variable-name ((c nil))) - (constant ((c 72)) ((c zenburn-red-3) nbf nit nul)) - (string ((c 36)) ((c "wheat3"))) ;; "slate gray" "medium aquamarine" - (error ((c 144)) ((c zenburn-red-1))) - (warning ((c 95)) ((c zenburn-orange))) - (success ((c zenburn-green+2))) - (dimm ((c 59)) ((c "#6f6f6f"))) - (gnus-mail ((c zenburn-fg-05))) - (gnus-news ((c zenburn-fg-05))) - (outline ((c nil))) - (f00 ((c 29)) ((c "burlywood3"))) - (f01 ((c 108)) ((c "burlywood4"))) - (f02 ((c 102)) ((c "lemonchiffon4"))) ;; ((c "paleturquoise4")) - (f10 ((c "cornsilk3"))) - (f11 ((c "lemonchiffon3"))) - (f12 ((c "honeydew4")))) - (:faces (bold (c nil nil) nul) - (button (c 66)) - (font-lock-doc-face (c 30)) - (gnus-button (c nil) nul) - (gnus-header-subject (p f01)) - (gnus-summary-selected (c 250)) - (match ul) - (magit-log-tag-label (c 95 240) nbf) - (mm-uu-extract (c nil 234)) - (mode-line (c 248 235) nbf nul) - (mode-line-inactive (c 243 235) nbf nul) - (org-hide (c 0 nil)) - (rcirc-other-nick (c 108)) - (vertical-border (c 59 nil) :inherit nil) - (w3m-image (c 144)) - (w3m-tab-background (c 0 0) ul) - (w3m-tab-line (c 0 0) ul) - (widget-button (c 196)) - (widget-field (c 143 236))) - (:x-faces (company-scrollbar-bg (c nil "#383941")) - (company-scrollbar-fg (c nil "#484951")) - (diff-hl-change (c dimm-line-fg "#313131")) - (diff-hl-delete (c dimm-line-fg zenburn-red-3)) - (diff-hl-insert (c dimm-line-fg "lemonchiffon4")) - (fill-column-indicator (c box-line-fg) :inherit nil) - (font-lock-doc-face (~ font-lock-comment-face) it) - (fringe (p dimm)) - (gnus-button (c "lightyellow3") nul) - (gnus-cite-1 (c zenburn-fg-05)) - (gnus-cite-2 (c zenburn-fg-1)) - (gnus-cite-3 (c zenburn-fg-1)) - (gnus-cite-4 (c zenburn-fg-1)) - (gnus-group-mail-3 (c nil nil)) ;; "#252525" - (gnus-group-mail-3-empty (c zenburn-fg-2)) - (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)) - (lui-track-bar (c nil "#303030") :height 0.1 ex) - (magit-diff-context-highlight (c nil "grey20") ex) - (mode-line (c "grey60" "#2b2b2b") - :box (:line-width 1 :color "grey28")) - (mode-line-inactive (c "grey35" zenburn-bg-05) - :box (:line-width 1 :color "grey20")) - (mode-line-buffer-id (c zenburn-green-2)) - (org-hide (c 0 nil)) - (scroll-bar (c box-line-fg)) - (show-paren-match (c "darkseagreen1" "#5f5f5f")) - (spaceline-read-only (c "burlywood3" spaceline-bg) niv) - (spaceline-modified (c zenburn-orange spaceline-bg) nbf nit) - (spaceline-unmodified (c zenburn-green-3 spaceline-bg) niv) - (variable-pitch (c nil nil)) - (vertical-border (c dimm-line-fg) :inherit nil) - (w3m-image (c zenburn-fg-05) bx it) - (w3m-tab-background (c nil nil)) - (w3m-tab-line (c 0 0) ul) - (widget-button (c nil nil) nul)) - (:x-colors "lemonchiffon" - "sienna3" - "darkseagreen3" - "lightgoldenrod3" - "cadetblue4" - "lightcyan4" - "cadetblue3" - "black")) - -;; (enable-theme 'jao-dark-forest) - -(provide 'jao-dark-forest-theme) diff --git a/themes/jao-dark-theme.el b/themes/jao-dark-theme.el deleted file mode 100644 index 1c2725e..0000000 --- a/themes/jao-dark-theme.el +++ /dev/null @@ -1,77 +0,0 @@ -(jao-define-custom-theme jao-dark - (:palette (fg unspecified "grey60") - (bg unspecified "grey2") - (box "yellow" "grey30") - (button ((c 11) nul)) - (hilite ((c nil 8))) - (strike-through ((c 8))) - (italic ((c 101) nul) (it :family "DejaVu Sans Mono" :height 100)) - (link ((c 2) nul)) - (visited-link ((c 2) nul)) - (tab-sel ((c 9 8) nbf)) - (tab-unsel ((c 15 6) bx)) - (comment ((c 3)) ((c 3))) - (keyword ((c 12) nbf nul)) -;; (keyword ((c 151) nbf nul) (bf)) - (type ((c 11) nbf)) - (function ((c 108) nul nbf)) -;; (function ((c 13) nul bf)) - (variable-name ((c nil))) - (constant ((c 4))) - (string ((c 2))) - (warning ((c 144)) ((c 1))) - (error ((c 9))) - (dimm ((c 3))) - (gnus-mail ((c 15 nil))) - (gnus-news ((c 15 nil))) - (outline ((c 7))) - (f00 ((c 11))) - (f01 ((c 10))) - (f02 ((c 23)) ((c "cadetblue4"))) - (f10 ((p f00))) - (f11 ((p f01))) - (f12 ((p f02)))) - (:faces (bold (c nil nil) nul) - (font-lock-doc-face (c 10)) - (gnus-button (c nil nil) nul) - (gnus-summary-selected (c nil nil) ul nbf) - (mm-uu-extract (c nil 6)) - (mode-line (c 7 8) nbf nul) - (mode-line-inactive (c 8 16) nbf nul) - (org-hide (c 0 nil)) -;; (rcirc-other-nick (c 4) nbf) - (vertical-border (c 8 nil) :inherit nil) - (w3m-image (c 1)) - (w3m-tab-background (c 0 0)) - (w3m-tab-line (c 0 0)) - (widget-button (c nil nil) nul)) - (:x-faces (gnus-button (c nil nil) nul) - (gnus-summary-selected (c "grey40" nil) ul) - (mode-line (c 14 8) nbf nul bx) - (mode-line-inactive (c 3 8) nbf nul bx) - (org-hide (c 0 nil)) - (font-lock-doc-face (c 10)) - (fringe (p dimm)) - (rcirc-other-nick (c 5)) - (vertical-border (c 8 nil) :inherit nil) - (w3m-image (c 9)) - (w3m-tab-background (c 0 0)) - (widget-button (c nil nil) nul)) - (:x-colors "#050505" - "lightgoldenrod3" - "darkseagreen4" - "grey40" - "lightcyan4" - "paleturquoise4" - "grey7" - "grey60" - "grey20" - "sienna4" - "#44836e" - "#648f81" - "darkseagreen4" - "aquamarine4" - "azure4" - "grey60")) - -(provide 'jao-dark-theme) diff --git a/themes/jao-doom-theme.el b/themes/jao-doom-theme.el deleted file mode 100644 index 0f4b2df..0000000 --- a/themes/jao-doom-theme.el +++ /dev/null @@ -1,57 +0,0 @@ -(deftheme jao-doom - "Created 2019-12-13.") - -(defun jao-doom-color (c &optional alt) - (let ((c (assoc c doom-themes--colors))) (if alt (caddr c) (cadr c)))) -(defun jao-doom-face (f) - (mapcar (lambda (x) - (cond ((symbolp x) (or (jao-doom-color x) x)) - ((listp x) (jao-doom-face x)) - (t x))) - (if (listp f) f (cdr (assoc f doom-themes--faces))))) - -;; (enable-theme 'jao-doom) - -(custom-theme-set-faces - 'jao-doom - '(Info-quoted ((t (:inherit font-lock-variable-name-face)))) - '(custom-button ((t (:background "#282b33" :foreground "#819cd6" :box nil)))) - '(dictionary-reference-face ((t (:inherit (font-lock-keyword-face))))) - '(dictionary-word-definition-face ((t (:inherit default)))) - `(error ((t (:foreground ,(jao-doom-color 'orange))))) - `(diff-hl-change ((t (:inherit default :background "#313153")))) - '(diff-hl-delete ((t (:inherit default :background "#533133")))) - `(diff-hl-insert ((t (:inherit default :background "#315331")))) - '(fill-column-indicator ((t (:foreground "grey25")))) - `(gnus-summary-normal-read ((t (:foreground ,(jao-doom-color 'grey))))) - `(gnus-summary-normal-unread ((t ,(jao-doom-face 'default)))) - `(highlight ((t (;; :underline ,(jao-doom-color 'green t) - :background ,(jao-doom-color 'bg-alt))))) - `(gnus-summary-selected ((t (:inherit highlight)))) - '(lui-button-face ((t (:foreground "#7ebebd" :underline nil)))) - `(link-visited ((t (:foreground ,(jao-doom-color 'green))))) - '(magit-diff-context-highlight ((t (:background "#333344")))) - `(magit-diff-hunk-heading-highlight ((t (,@(jao-doom-face 'default) - :overline nil :underline t :extend t)))) - '(magit-diff-removed-highlight ((t (:foreground "tan" :bold nil)))) - '(magit-diff-added-highlight ((t (:foreground "antiquewhite" :bold nil)))) - `(mode-line ((t (:foreground "#999999" ;; ,(jao-doom-color 'modeline-fg-alt) - :background ,(jao-doom-color 'modeline-bg) - :box (:line-width 2 :color ,(jao-doom-color 'modeline-bg)))))) - `(mode-line-inactive ((t (:foreground ,(jao-doom-color 'modeline-fg-alt t) - :background ,(jao-doom-color 'modeline-bg-inactive) - :box (:line-width 2 :color ,(jao-doom-color 'modeline-bg-inactive)))))) ;; "#3a3a4a" - '(mpdel-tablist-album-face ((t (:inherit font-lock-doc-face)))) - '(mpdel-tablist-artist-face ((t (:inherit font-lock-keyword-face)))) - '(org-block-begin-line ((t (:inherit font-lock-comment-face :extend nil)))) - '(org-block-end-line ((t (:inherit org-block-begin-line :extend nil)))) - `(scroll-bar ((t (:foreground ,(jao-doom-color 'modeline-bg) - :background ,(jao-doom-color 'bg))))) - '(variable-pitch ((t (:inherit default)))) - '(w3m-form-button ((t (:inherit button))))) - -(custom-theme-set-variables - 'jao-doom - '(fci-rule-color "grey25")) - -(provide-theme 'jao-doom) diff --git a/themes/jao-doomish-theme.el b/themes/jao-doomish-theme.el deleted file mode 100644 index 5ac666c..0000000 --- a/themes/jao-doomish-theme.el +++ /dev/null @@ -1,152 +0,0 @@ -(jao-define-custom-theme jao-doomish - (:names (bg "#282b33" nil nil) - (bg-alt "#1f2024" nil nil) - (blue "#819cd6") - (blue2 "#51afef") - (comments "#6e7899" "#5699AF" "cyan") - (constants "#a6c1e0" "magenta") - (cyan "#7289bc" "#46D9FF" "brightcyan") - (dark-blue "#616c96") - (dark-blue-1 "#2257A0" "blue") - (dark-cyan "#6e7899" "#5699AF" "cyan") - (dimm-line-fg "#3f3f3f") - (doc-comments "#9299b2" "#80b2c3" "cyan") - (error "#e1c1ee") - (error2 "#ff6655") - (fg "#c6c6c6") - (fg-0.5 "#a6a6a6") - (fg-1 "#868686") - (fg-2 "#666666") - (light-purple "#c9d9ff") - (functions "#7ebebd") - (functions2 "#44b9b1") - (green "#5b94ab") - (green2 "#99bb66") - (green3 "#44b9b1") - (grey "#515462" "#3f3f3f" "brightblack") - (hidden "#282b33" "black" "black") - (highlight "#819cd6" "#51afef" "brightblue") - (keywords "#819cd6") - (keywords2 "#51afef") - (light-blue "#90a6db" "#ECBE7B" "yellow") - (magenta "#a6c1e0" "#c678dd" "magenta") - (methods "#7289bc" "#46D9FF" "brightcyan") - (modeline-bg "#22242b" "black" "black") - (modeline-bg-inactive "#24262d" nil nil) - (modeline-bg-inactive-l "#282b33" "#1e1e1e" "brightblack") - (modeline-bg-l "#24262d" "black" "black") - (modeline-fg-alt "#888395" "#525252" "brightblack") - (numbers "#a6c1e0" "#c678dd" "magenta") - (operators "#819cd6" "#51afef" "brightblue") - (orange "#a6c1e0") - (orange2 "#dd8844") - (red "#e1c1ee" "#ff6655" "red") - (region "#41454b") - (region2 "#262626") - (selection "#616c96" "#2257A0" "blue") - (strings "#5b94ab" "#99bb66" "green") - (success "#5b94ab" "#99bb66" "green") - (teal "#7ebebd" "#44b9b1" "brightgreen") - (types "lightsteelblue4") - (type2 "#a9a1e1") - (vc-added "#5b94ab" "#99bb66" "green") - (vc-deleted "#e1c1ee" "#ff6655" "red") - (vc-modified "#a6c1e0" "#dd8844" "brightred") - (vertical-bar "#141519" "#0f0f0f" "brightblack") - (violet "#b0a2e7" "#a9a1e1" "brightmagenta") - (warning "#cfcf9c") - (warning2 "#ECBE7B") - (yellow "#cfcf9c" "#ECBE7B" "yellow") - (zenburn-green-2 "#5F7F5F") - (zenburn-orange "#DFAF8F") - (zenburn-red-1 "#BC8383")) - (: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 blue) nit nul)) - (visited-link ((c green) nit nul)) - (tab-sel ((c 252 232) nbf)) - (tab-unsel ((c 245 232))) - (comment ((c comments))) - (keyword ((c keywords))) - (function ((c functions))) - (type ((c types))) - (variable-name ((c nil))) - (constant ((c constants) nbf nit nul)) - (string ((c strings))) ;; "wheat3" "slate gray" "medium aquamarine" - (error ((c warning2))) - (warning ((c warning))) - (success ((c green))) - (dimm ((c "#6f6f6f"))) - (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 "steelblue3"))) - (f01 ((c "lightsteelblue3"))) - (f02 ((c "skyblue4"))) - (f10 ((c "slategray3"))) - (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 (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 base8)) ;; "#252525" - (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 light-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-doomish) - -;; (base0 "#222228" "black" "black") -;; (base1 "#282b33" "#1e1e1e" "brightblack") -;; (base2 "#34373e" "#2e2e2e" "brightblack") -;; (base3 "#41454b" "#262626" "brightblack") -;; (base4 "#515462" "#3f3f3f" "brightblack") -;; (base5 "#888395" "#525252" "brightblack") -;; (base6 "#929292" "#6b6b6b" "brightblack") -;; (base7 "#727269" "#979797" "brightblack") -;; (base8 "#eceff4" "#dfdfdf" "white") - -(provide 'jao-doomish-theme) diff --git a/themes/jao-greenish-theme.el b/themes/jao-greenish-theme.el deleted file mode 100644 index 1bed7fb..0000000 --- a/themes/jao-greenish-theme.el +++ /dev/null @@ -1,114 +0,0 @@ -(jao-define-custom-theme jao-greenish - (:names (bg "#282b33" nil nil) - (bg-alt "#1f2024" nil nil) - (fg "#c6c6c6") - (fg-0.5 "#a6a6a6") - (fg-1 "#868686") - (fg-2 "#666666") - (blue "#819cd6") - (dark-blue "#616c96") - (green "#5b94ab") - (yellow "antiquewhite3") - (dark-yellow "antiquewhite4") - (orange "#a6c1e0") - (orange2 "#dd8844") - (red "#e1c1ee" "#ff6655" "red") - (comments "#5699AF" "#6e7899") - (constants "#a6c1e0") - (dimm-line-fg "#3f3f3f") - (dimm-line "#6f6f6f") - (error "#e1c1ee") - (functions "#7ebebd") - (functions2 "#44b9b1") - (keywords "paleturquoise3") - (keywords2 "#51afef") - (modeline-bg "#22242b") - (modeline-bg-inactive "#24262d") - (region "#41454b") - (strings "azure3" "lightskyblue4") - (success "#5b94ab" "#99bb66") - (warning "#cfcf9c") - (warning2 "#ECBE7B")) - (:palette (fg "#c6c6c6") - (bg "#1f2024") - (box "grey25") - (button ((p f01) bx nul)) - (hilite ((c nil region) ex)) - (strike-through (st)) - (italic (it)) - (link ((c blue))) ;; (ul dimm-line) - (visited-link ((c dark-blue))) - (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 blue))) - (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")) - (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)) - (fill-column-indicator (c "black") :inherit nil) - (font-lock-doc-face (~ font-lock-comment-face) it) - (fringe (p dimm)) - (gnus-button (c "lightyellow3")) - (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 yellow)) - (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-group-mail-low (p f10)) - (gnus-group-mail-low-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 yellow)) - (org-hide (c 0 nil)) - (org-code (c yellow)) - (scroll-bar (c bg)) - (term-color-blue (c nil nil) it) - (vterm-color-blue (c "steelblue4" 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))) - -;; (enable-theme 'jao-greenish) - -(provide 'jao-greenish-theme) diff --git a/themes/jao-light-theme.el b/themes/jao-light-theme.el deleted file mode 100644 index 13a416f..0000000 --- a/themes/jao-light-theme.el +++ /dev/null @@ -1,111 +0,0 @@ -(jao-define-custom-theme jao-light - (:names (dimm-background "#f4f4f4") - (dimm-background-2 "#f0f0f0") - (dimm-background-3 "#f6f6f6") - (dimm-background-4 "#fafafa") - (yellowish-background "#fffff8") - (link "#00552a") - (yellow "#fdf6e3") - (pale-yellow "#fff8e5") - (paler-yellow "#fffff8") - (green "#005555") - (light-green "darkolivegreen4") - (greyish "#626262") - ;; (blueish "midnightblue") - (blueish "deepskyblue4") - (blue "#819cd6") - (blue2 "#51afef") - (pale-blue "azure2") - (dark-blue "#616c96") - (dark-blue-1 "#2257A0") - (dark-blue-2 "#023770") - (keywords "lightsteelblue4") - (keywords2 "#2257A0") - (functions "#005555") - (red "salmon3") - (red2 "sienna4")) - (:palette (fg unspecified "black") - (bg unspecified "white") - ;; (bg unspecified "#fffff8") - (box "grey80" "antiquewhite3") - (button ((c link) nit)) - (hilite ((c nil dimm-background))) - (strike-through ((c 1)) (st)) - (italic (it)) - (link ((c dark-blue-2) nul nbf)) - (visited-link ((c dark-blue-1) nul nbf)) - (tab-sel ((~ mode-line))) - (tab-unsel ((~ mode-line-inactive))) - (comment ((c greyish) it)) - (keyword ((c dark-blue-2) nbf)) - (type ((c blueish) nbf)) - (function ((c green nil) nbf)) - (variable-name ((c "black"))) - (constant ((c 23))) - (string ((c link))) - (warning ((c red2))) - (error ((c red))) - (dimm ((c "lemonchiffon4"))) - (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-4 ((c nil) it nbf)) - (outline-5 ((c nil))) - (f00 ((c green))) - (f01 ((c dark-blue-1))) - (f02 ((c light-green))) - (f10 ((p f00))) - (f11 ((p f01))) - (f12 ((p f02)))) - (:faces (mode-line (c nil dimm-background) ;; "ghost white" - :box (:line-width 1 :color "grey80")) - (mode-line-inactive (c "grey40" dimm-background-2) - :box (:line-width 1 :color "grey85")) - (mode-line-buffer-id (~ mode-line) nit) - (mode-line-emphasis it) - (mode-line-highlight (c green nil))) - (:x-faces (bold bf) - (compilation-info (c "#223142" nil) nbf) - (company-scrollbar-bg (c nil "grey95")) - (company-scrollbar-fg (c nil "grey90")) - (cursor (c "sienna3" "sienna3")) - (diary (p error) nbf) - (diff-hl-change (c "white" pale-blue)) - (diff-hl-insert (c "white" "honeydew2")) - (diff-hl-delete (c "white" "wheat1")) - (fill-column-indicator (c "grey80")) - (fringe (c "grey70" nil)) - (gnus-button (p link)) - (gnus-summary-selected (c green) nbf) - (gnus-summary-cancelled (c "sienna3") st) - (header-line (c nil "#efebe7")) - (ivy-highlight-face (c nil pale-yellow)) - (ivy-current-match (c nil pale-yellow)) - (lui-track-bar (p dimm) :height 0.2 nul nil ex) - (magit-diff-context-highlight (c nil yellow) ex) - (magit-diff-hunk-heading-highlight (c nil yellow) it bf) - (mode-line (c "grey30" dimm-background-3) ;; "ghost white" - :box (:line-width 1 :color "grey90")) - (mode-line-inactive (c "grey40" dimm-background-4) - :height 1 - :box (:line-width 1 :color "grey90")) - (mode-line-buffer-id (~ mode-line) (c dark-blue-2) nit) - (mode-line-emphasis (c green nil)) - (mode-line-highlight (c green nil)) - (org-link (p link) ul) - (scroll-bar (c "grey80")) - (success (p f00)) - (vertical-border (c "grey70" nil)) - (warning (c "burlywood4")) - (w3m-image (c "midnightblue" "azure2")) - (w3m-bold (c "darkslategray") bf) - (w3m-tab-selected (c "orangered4" "white") bf) - (w3m-tab-selected-retrieving (~ w3m-tab-selected) (c 1)) - (w3m-tab-background (c "white" "white") nul))) - -;; (enable-theme 'jao-light) - -(provide 'jao-light-theme) diff --git a/themes/jao-mono-dark-theme.el b/themes/jao-mono-dark-theme.el deleted file mode 100644 index a5cf532..0000000 --- a/themes/jao-mono-dark-theme.el +++ /dev/null @@ -1,98 +0,0 @@ -(jao-define-custom-theme jao-mono-dark - (:palette (fg unspecified "grey77") - ;; (bg unspecified "#3f3f3f") - ;; (bg unspecified "#0e1111") - (bg unspecified "#192021") - (box "color-237" "grey25") - (button ((c 240) nul) - ;; ((c "lightskyblue2" "#3f3f4f")) - ((c "lightskyblue2" "#333436") nul)) - (hilite ((c nil "#303336"))) - (strike-through ((c 237)) (st)) - (italic ((c 137) it) (it (c "lightyellow3"))) - ;; (link ((c 108) nul) ((c "#F0DFAF") nit nul)) - ;; (visited-link ((c 36) nul) ((c "#E0CF9F") nul)) - (link ((c "antiquewhite3") nit nul)) - ;; (link ((c "lemonchiffon") nit nul)) - (visited-link ((c "burlywood3") nit nul)) - (tab-sel ((c 252 232) nbf)) - (tab-unsel ((c 245 232))) - (comment ((c 102) it) ((c "darkslategray4") it)) - ;; (keyword ((c 151) nbf nul nit) ((c "darkseagreen3"))) - ;; (function ((c 115) nul nbf) ((c "palegreen3"))) - (keyword ((c 151) nbf nul nit) ((c "lightblue3"))) - (function ((c 115) nul nbf) ((c "lightskyblue3"))) - (type ((c 72) nbf) ((c "honeydew3"))) - (variable-name ((c nil))) - (constant ((c 72)) ((c "mediumaquamarine") nbf nit nul)) - ;; (constant ((c 72)) ((c "lightblue3"))) - (string ((c 36)) ((c "darkslategray3"))) - ;; (string ((c 36)) ((c "light sea green"))) - (warning ((c 144)) ((c "#F0DFAF"))) - (error ((c 95)) ((c "goldenrod3"))) - ;; (dimm ((c 240))) - (dimm ((c 59)) ((c "#6f6f6f"))) - (gnus-mail ((c "gray70" nil))) - (gnus-news ((c "gray70" nil))) - ;; (outline ((c "aquamarine3"))) - (outline ((c nil))) - (f00 ((c 29)) ((c "darkseagreen"))) - (f01 ((c 108)) ((c "darkseagreen2"))) - (f02 ((c 102)) ((c "lightcyan4"))) ;; ((c "paleturquoise4")) - (f10 ((c "cornsilk3"))) - (f11 ((c "lemonchiffon3"))) - (f12 ((c "azure3")))) - (:faces (bold (c nil nil) nul) - (button (c 66)) - (font-lock-doc-face (c 30)) - (gnus-button (c nil) nul) - (gnus-header-subject (p f01)) - (gnus-summary-selected (c 250)) - ;; (gnus-summary-selected (c 66 nil) nul nbf) - (match ul) - (magit-log-tag-label (c 95 240) nbf) - (mm-uu-extract (c nil 234)) - (mode-line (c 248 235) nbf nul) - (mode-line-inactive (c 243 235) nbf nul) - (org-hide (c 0 nil)) - (rcirc-other-nick (c 108)) - (vertical-border (c 59 nil) :inherit nil) - (w3m-image (c 144)) - (w3m-tab-background (c 0 0) ul) - (w3m-tab-line (c 0 0) ul) - (widget-button (c 196)) - (widget-field (c 143 236))) - (:x-faces (company-scrollbar-bg (c nil "#383941")) - (company-scrollbar-fg (c nil "#484951")) - (diff-hl-change (c "#3f3f3f" "darkseagreen4")) - (diff-hl-delete (c "#3f3f3f" "goldenrod4")) - (diff-hl-insert (c "#3f3f3f" "cadetblue4")) - (font-lock-doc-face (c "lightcyan3") it) - (fringe (p dimm)) - (gnus-button (c "lightyellow3") nul) - (gnus-summary-cancelled (c "dark slate gray" nil) st) - (gnus-summary-selected (p warning) nul nbf) - (header-line (p hilite)) - (mode-line (c "grey60" "#2f2f2f")) - (mode-line-inactive (c "grey50" "#3f3f3f")) - (org-hide (c 0 nil)) - (show-paren-match (c "darkseagreen1" "#5f5f5f")) - (spaceline-read-only (c "lightgoldenrod2" "gray10") niv) - (spaceline-modified (c "burlywood3" "gray10") nbf nit) - (spaceline-unmodified (c "darkseagreen" "gray10") niv) - (variable-pitch (c nil nil)) - (vertical-border (c "#3f3f3f") :inherit nil) - (w3m-image (c "lightcyan2")) - (w3m-tab-background (c nil nil)) - (w3m-tab-line (c 0 0) ul) - (widget-button (c nil nil) nul)) - (:x-colors "lemonchiffon" - "sienna3" - "darkseagreen3" - "lightgoldenrod3" - "cadetblue4" - "lightcyan4" - "cadetblue3" - "black")) - -(provide 'jao-mono-dark-theme) diff --git a/themes/jao-themes.el b/themes/jao-themes.el deleted file mode 100644 index d3f110d..0000000 --- a/themes/jao-themes.el +++ /dev/null @@ -1,1099 +0,0 @@ -;;; palette -(defvar jao-themes--face-family "Inconsolata") -(defvar jao-themes--fg "black") -(defvar jao-themes--bg "white") -(defvar jao-themes--box "grey75") -(defvar jao-themes--hilite nil) -(defvar jao-themes--italic '(it)) -(defvar jao-themes--button '(ul)) -(defvar jao-themes--strike-through '(:strike-through t)) -(defvar jao-themes--outline '((c "darkslategrey"))) -(defvar jao-themes--outline-1 '((p outline))) -(defvar jao-themes--outline-2 '((p outline-1))) -(defvar jao-themes--outline-3 '((p outline-2))) -(defvar jao-themes--outline-4 '((p outline-3))) -(defvar jao-themes--outline-5 '((p outline-4))) -(defvar jao-themes--outline-6 '((p outline-5))) -(defvar jao-themes--outline-7 '((p outline-6))) -(defvar jao-themes--outline-8 '((p outline-7))) -(defvar jao-themes--link '((c "darkgoldenrod4"))) -(defvar jao-themes--visited-link '((c "darkolivegreen4") nul)) -(defvar jao-themes--gnus-mail '(dfg)) -(defvar jao-themes--gnus-news '(dfg)) -(defvar jao-themes--tab-sel '((c nil "grey90") bx)) -(defvar jao-themes--tab-unsel '((c "grey30" "grey85") nbf bx)) -(defvar jao-themes--comment '((c "grey30"))) -(defvar jao-themes--warning '((c "indianred3") nbf)) -(defvar jao-themes--error '((c "indianred3") bf)) -(defvar jao-themes--constant '((c "darkolivegreen") nbf)) -(defvar jao-themes--function '((c "darkolivegreen") nbf)) -(defvar jao-themes--keyword '((c "darkslategrey") nbf)) -(defvar jao-themes--string '((c "skyblue4"))) -(defvar jao-themes--type '((c "darkslategrey"))) -(defvar jao-themes--variable-name '((c "DodgerBlue4"))) -(defvar jao-themes--dimm '((c "grey30") nbf)) -(defvar jao-themes--f00 '((c "dodgerblue4"))) -(defvar jao-themes--f01 '((c "cadetblue4"))) -(defvar jao-themes--f02 '((c "darkslategrey"))) -(defvar jao-themes--f10 '((c "dodgerblue4"))) -(defvar jao-themes--f11 '((c "cadetblue4"))) -(defvar jao-themes--f12 '((c "darkslategrey"))) - -(defface jao-themes-hilite '((t :inherit default)) "") -(defface jao-themes-italic '((t :inherit default)) "") -(defface jao-themes-button '((t :inherit default)) "") -(defface jao-themes-strike-through '((t :inherite default)) "") -(defface jao-themes-outline '((t :inherite default)) "") -(defface jao-themes-outline-1 '((t :inherite default)) "") -(defface jao-themes-outline-2 '((t :inherite default)) "") -(defface jao-themes-outline-3 '((t :inherite default)) "") -(defface jao-themes-outline-4 '((t :inherite default)) "") -(defface jao-themes-outline-5 '((t :inherite default)) "") -(defface jao-themes-outline-6 '((t :inherite default)) "") -(defface jao-themes-outline-7 '((t :inherite default)) "") -(defface jao-themes-outline-8 '((t :inherite default)) "") -(defface jao-themes-link '((t :inherite default)) "") -(defface jao-themes-visited-link '((t :inherite default)) "") -(defface jao-themes-gnus-mail '((t :inherite default)) "") -(defface jao-themes-gnus-news '((t :inherite default)) "") -(defface jao-themes-tab-sel '((t :inherite default)) "") -(defface jao-themes-tab-unsel '((t :inherite default)) "") -(defface jao-themes-comment '((t :inherite default)) "") -(defface jao-themes-warning '((t :inherite default)) "") -(defface jao-themes-error '((t :inherite default)) "") -(defface jao-themes-constant '((t :inherite default)) "") -(defface jao-themes-function '((t :inherite default)) "") -(defface jao-themes-keyword '((t :inherite default)) "") -(defface jao-themes-string '((t :inherite default)) "") -(defface jao-themes-type '((t :inherite default)) "") -(defface jao-themes-variable-name '((t :inherite default)) "") -(defface jao-themes-dimm '((t :inherite default)) "") -(defface jao-themes-f00 '((t :inherite default)) "") -(defface jao-themes-f01 '((t :inherite default)) "") -(defface jao-themes-f02 '((t :inherite default)) "") -(defface jao-themes-f10 '((t :inherite default)) "") -(defface jao-themes-f11 '((t :inherite default)) "") -(defface jao-themes-f12 '((t :inherite default)) "") - -(defsubst jao-themes--palette-face (face) - (intern (format "jao-themes--%s" face))) - -(defun jao-themes--normalize-body (body) - (dolist (p '(:inverse-video :underline :inherit) body) - (unless (member p body) - (setq body (append body (list p nil)))))) - -(defun jao-themes--parse-face-body (f) - (cond ((null f) nil) - ((listp f) - (jao-themes--normalize-body - (apply 'append (mapcar 'jao-themes--parse-face-sym f)))))) - -(defvar jao-themes--default-cidxs - '("#000000" "#cd0000" "#00cd00" "#cdcd00" - "#0000cd" "#cd00cd" "#00cdcd" "#e5e5e5" - "#4d4d4d" "#ff0000" "#00ff00" "#ffff00" - "#0000ff" "#ff00ff" "#00ffff" "#ffffff" - "#000000" "#00002a" "#000055" "#000080" - "#0000aa" "#0000d4" "#002a00" "#002a2a" - "#002a55" "#002a80" "#002aaa" "#002ad4" - "#005500" "#00552a" "#005555" "#005580" - "#0055aa" "#0055d4" "#008000" "#00802a" - "#008055" "#008080" "#0080aa" "#0080d4" - "#00aa00" "#00aa2a" "#00aa55" "#00aa80" - "#00aaaa" "#00aad4" "#00d400" "#00d42a" - "#00d455" "#00d480" "#00d4aa" "#00d4d4" - "#2a0000" "#2a002a" "#2a0055" "#2a0080" - "#2a00aa" "#2a00d4" "#2a2a00" "#2a2a2a" - "#2a2a55" "#2a2a80" "#2a2aaa" "#2a2ad4" - "#2a5500" "#2a552a" "#2a5555" "#2a5580" - "#2a55aa" "#2a55d4" "#2a8000" "#2a802a" - "#2a8055" "#2a8080" "#2a80aa" "#2a80d4" - "#2aaa00" "#2aaa2a" "#2aaa55" "#2aaa80" - "#2aaaaa" "#2aaad4" "#2ad400" "#2ad42a" - "#2ad455" "#2ad480" "#2ad4aa" "#2ad4d4" - "#550000" "#55002a" "#550055" "#550080" - "#5500aa" "#5500d4" "#552a00" "#552a2a" - "#552a55" "#552a80" "#552aaa" "#552ad4" - "#555500" "#55552a" "#555555" "#555580" - "#5555aa" "#5555d4" "#558000" "#55802a" - "#558055" "#558080" "#5580aa" "#5580d4" - "#55aa00" "#55aa2a" "#55aa55" "#55aa80" - "#55aaaa" "#55aad4" "#55d400" "#55d42a" - "#55d455" "#55d480" "#55d4aa" "#55d4d4" - "#800000" "#80002a" "#800055" "#800080" - "#8000aa" "#8000d4" "#802a00" "#802a2a" - "#802a55" "#802a80" "#802aaa" "#802ad4" - "#805500" "#80552a" "#805555" "#805580" - "#8055aa" "#8055d4" "#808000" "#80802a" - "#808055" "#808080" "#8080aa" "#8080d4" - "#80aa00" "#80aa2a" "#80aa55" "#80aa80" - "#80aaaa" "#80aad4" "#80d400" "#80d42a" - "#80d455" "#80d480" "#80d4aa" "#80d4d4" - "#aa0000" "#aa002a" "#aa0055" "#aa0080" - "#aa00aa" "#aa00d4" "#aa2a00" "#aa2a2a" - "#aa2a55" "#aa2a80" "#aa2aaa" "#aa2ad4" - "#aa5500" "#aa552a" "#aa5555" "#aa5580" - "#aa55aa" "#aa55d4" "#aa8000" "#aa802a" - "#aa8055" "#aa8080" "#aa80aa" "#aa80d4" - "#aaaa00" "#aaaa2a" "#aaaa55" "#aaaa80" - "#aaaaaa" "#aaaad4" "#aad400" "#aad42a" - "#aad455" "#aad480" "#aad4aa" "#aad4d4" - "#d40000" "#d4002a" "#d40055" "#d40080" - "#d400aa" "#d400d4" "#d42a00" "#d42a2a" - "#d42a55" "#d42a80" "#d42aaa" "#d42ad4" - "#d45500" "#d4552a" "#d45555" "#d45580" - "#d455aa" "#d455d4" "#d48000" "#d4802a" - "#d48055" "#d48080" "#d480aa" "#d480d4" - "#d4aa00" "#d4aa2a" "#d4aa55" "#d4aa80" - "#d4aaaa" "#d4aad4" "#d4d400" "#d4d42a" - "#d4d455" "#d4d480" "#d4d4aa" "#d4d4d4" - "#080808" "#121212" "#1c1c1c" "#262626" - "#303030" "#3a3a3a" "#444444" "#4e4e4e" - "#585858" "#626262" "#6c6c6c" "#767676" - "#808080" "#8a8a8a" "#949494" "#9e9e9e" - "#a8a8a8" "#b2b2b2" "#bcbcbc" "#c6c6c6" - "#d0d0d0" "#dadada" "#e4e4e4" "#eeeeee")) - -(defvar jao-themes--cidxs nil) -(defvar jao-themes--x-colors nil) - -(defvar *jao-themes--color-names* nil) -(defvar *jao--parsed-faces* nil) - -(defun jao-themes--color (clr) - (cond ((stringp clr) clr) - ((numberp clr) (or (nth clr jao-themes--cidxs) - (nth clr jao-themes--default-cidxs) - (format "color-%s" clr))) - ((symbolp clr) (or (cadr (assoc clr *jao-themes--color-names*)) - 'unspecified)) - (t 'unspecified))) - -(defun jao-themes--parse-face-sym (s) - (cond ((listp s) - (cl-case (car s) - (c `(:foreground ,(jao-themes--color (cadr s)) - :background ,(jao-themes--color (caddr s)))) - (p (let ((var (jao-themes--palette-face (cadr s)))) - (when (boundp var) - (let ((val (symbol-value var))) - (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) - (cl-case s - (~ '(:inherit)) - (dbg `(:background ,jao-themes--bg)) - (dfg `(:foreground ,jao-themes--fg)) - (link (jao-themes--parse-face-body jao-themes--link)) - (vlink (jao-themes--parse-face-body jao-themes--visited-link)) - (bf '(:bold t :weight bold)) - (nbf '(:bold t :weight normal)) - (it '(:italic t :slant italic)) - (nit '(:italic nil :slant normal)) - (iv '(:inverse-video t)) - (niv '(:inverse-video nil)) - (ul '(:underline t)) - (nul '(:underline nil)) - (st '(:strike-through t)) - (ex '(:extend t)) - (nex '(:extend nil)) - (bx `(:box (:line-width -1 :color ,jao-themes--box))) - (t (list s)))))) - -(defun jao-themes--make-faces (fs &optional cidxs) - (let ((*jao--parsed-faces* nil) - (jao-themes--cidxs (or cidxs jao-themes--default-cidxs)) - (result nil)) - (dolist (f (sort (jao-themes--dfs fs) 'jao--cmp-faces) (reverse result)) - (let ((body (jao-themes--parse-face-body (cdr f)))) - (push (cons (car f) body) *jao--parsed-faces*) - (push (list (car f) body) result))))) - -(defun jao-themes-parse-face (f) - `(,(car f) ((t ,(jao-themes--parse-face-body (cdr f)))))) - -(defun jao-themes-parse-faces (fs) - (let ((*jao--parsed-faces* nil)) - (mapcar (lambda (f) - (let ((fp (jao-themes--parse-face-body (cdr f)))) - (push (cons (car f) fp) *jao--parsed-faces*) - `(,(car f) ((t ,fp))))) - fs))) - - -(defun jao--cmp-faces (a b) - (let ((ai (cadr (assq '~ a))) - (bi (cadr (assq '~ b)))) - (cond ((and ai (not bi)) nil) - ((and bi (not ai)) t) - ((eq (car a) bi) t) - ((eq (car b) ai) nil) - (t (string< (symbol-name (car a)) - (symbol-name (car b))))))) - -(defun jao-themes--dfs (fs) - (let ((dfs - (append - `((jao-themes-hilite (p hilite)) - (jao-themes-italic (p italic)) - (jao-themes-button (p button)) - (jao-themes-strike-through (p strike-through)) - (jao-themes-outline (p outline)) - (jao-themes-outline-1 (p outline-1)) - (jao-themes-outline-2 (p outline-2)) - (jao-themes-outline-3 (p outline-3)) - (jao-themes-outline-4 (p outline-4)) - (jao-themes-outline-5 (p outline-5)) - (jao-themes-outline-6 (p outline-6)) - (jao-themes-outline-7 (p outline-7)) - (jao-themes-outline-8 (p outline-8)) - (jao-themes-link (p link)) - (jao-themes-visited-link (p visited-link)) - (jao-themes-gnus-mail (p gnus-mail)) - (jao-themes-gnus-news (p gnus-news)) - (jao-themes-tab-sel (p tab-sel)) - (jao-themes-tab-unsel (p tab-unsel)) - (jao-themes-comment (p comment)) - (jao-themes-warning (p warning)) - (jao-themes-error (p error)) - (jao-themes-constant (p constant)) - (jao-themes-function (p function)) - (jao-themes-keyword (p keyword)) - (jao-themes-string (p string)) - (jao-themes-type (p type)) - (jao-themes-variable-name (p variable-name)) - (jao-themes-dimm (p dimm)) - (jao-themes-f00 (p f00)) - (jao-themes-f01 (p f01)) - (jao-themes-f02 (p f02)) - (jao-themes-f10 (p f10)) - (jao-themes-f11 (p f11)) - (jao-themes-f12 (p f12))) - `((aw-background-face (p dimm)) - (aw-leading-char-face (~ error) :height 1.5) - (awesome-tray-module-awesome-tab-face (p f00)) - (awesome-tray-module-battery-face (p f00)) - (awesome-tray-module-battery-face (p f00)) - (awesome-tray-module-buffer-name-face (p f11)) - (awesome-tray-module-circe-face (p f00)) - (awesome-tray-module-date-face (p f00)) - (awesome-tray-module-date-face (p f01)) - (awesome-tray-module-evil-face (p f00)) - (awesome-tray-module-file-path-face (p f00)) - (awesome-tray-module-git-face (p f10)) - (awesome-tray-module-last-command-face (p f00)) - (awesome-tray-module-location-face (p f00)) - (awesome-tray-module-mode-name-face (p f00)) - (awesome-tray-module-parent-dir-face (p f00)) - (awesome-tray-module-rvm-face (p f00))) - `((bbdb-company) - (bbdb-field-name bf) - (bbdb-field-value nil) - (bbdb-name ul) - (bmk-mgr-bookmark-face nil) - (bmk-mgr-folder-face bf) - (bmk-mgr-sel-bookmark-face link) - (bmk-mgr-sel-folder-face bf) - (bold bf) - (bold-italic bf) - (border (c nil nil)) - (buffer-menu-buffer bf) - (button (p button))) - `((calendar-holiday-marker (p f00)) - (circe-highlight-nick-face (p warning)) - (circe-originator-face (p f00)) - (circe-my-message-face (p f10)) - (circe-server-face (p dimm)) - (clojure-test-failure-face (p warning) ul) - (clojure-test-error-face (p error) ul) - (cursor (p error))) - `((diredp-compressed-file-suffix (~ diredp-file-suffix)) - (diredp-date-time (p f01)) - (diredp-deletion (p error)) - (diredp-deletion-file-name (~ diredp-deletion)) - (diredp-dir-heading bf dfg dbg) - (diredp-dir-name (p f10)) - (diredp-dir-priv dfg dbg bf) - (diredp-display-msg (p f00)) - (diredp-exec-priv dfg dbg bf) - (diredp-executable-tag (p error)) - (diredp-file-name dfg dbg) - (diredp-file-suffix (~ diredp-file-name)) - (diredp-flag-mark (p f00) bf) - (diredp-flag-mark-line (p hilite)) - (diredp-ignored-file-name (p dimm)) - (diredp-link-priv (~ diredp-symlink)) - (diredp-no-priv (~ diredp-read-priv)) - (diredp-other-priv dfg dbg) - (diredp-rare-priv dfg dfg) - (diredp-read-priv dfg dbg bf) - (diredp-symlink (p warning)) - (diredp-write-priv dfg dbg bf)) - `((change-log-acknowledgement (p f02)) - (change-log-conditionals (p f02)) - (change-log-date (p f01)) - (change-log-email (p f00)) - (change-log-file (p f10)) - (change-log-function (p function)) - (change-log-list (p f11)) - (change-log-name (p keyword)) - (cider-stacktrace-face (~ highlight) ex) - (cider-test-error-face (p warning) ex) - (cider-test-failure-face (p error)) - (cider-test-success-face (p f01)) - (comint-highlight-input (p f01) nbf) - (comint-highlight-prompt (p f00)) - (clojure-keyword-face (p keyword)) - (company-echo-common (p warning)) - (company-scrollbar-bg (p hilite)) - (company-scrollbar-fg (p warning)) - (company-tooltip (~ highlight)) - (company-tooltip-annotation (~ company-tooltip) it) - (company-tooltip-annotation-selection (~ company-tooltip) it ul) - (company-tooltip-selection (~ company-tooltip) ul) - (company-tooltip-common (~ company-tooltip) bf) - (company-tooltip-common-selection - (~ company-tooltip-selection) bf) - (company-preview (~ highlight)) - (company-preview-common (~ company-preview) bf) - (compilation-column-number (p f00) nul) - (compilation-error nbf (p error) nul) - (compilation-info nbf (p f02) nul) - (compilation-line-number (p f01) nul) - (compilation-mode-line-fail (p error)) - (compilation-mode-line-exit (p f01) nbf) - (compilation-mode-line-run (p warning)) - (compilation-warning nbf (p warning) nul) - (completions-common-part nbf :width normal) - (completions-first-difference bf dfg dbg) - (cursor dfg dbg) - (custom-button (~ button)) - (custom-button-mouse (~ button)) - (custom-button-pressed (~ button)) - (custom-button-pressed-unraised (~ button)) - (custom-button-unraised (~ button)) - (custom-changed (p warning)) - (custom-comment (p string)) - (custom-comment-tag (p keyword)) - (custom-documentation (p string)) - (custom-face-tag nbf) - (custom-group-tag bf (p f00) :height 11) - (custom-group-tag-1 bf :family ,jao-themes--face-family - (p f00) :height 11) - (custom-invalid (p error)) - (custom-link link) - (custom-modified (p f10)) - (custom-rogue (p error)) - (custom-saved ul) - (custom-set (p f11)) - (custom-state (p f12)) - (custom-themed (p f00)) - (custom-variable-button (~ button)) - (custom-variable-tag (p variable-name) bf) - (cvs-handled (p dimm))) - `((darcsum-change-line-face (p warning)) - (darcsum-filename-face (p f00)) - (darcsum-header-face (p f01)) - (darcsum-marked-face (p f00) bf) - (darcsum-need-action-face (p warning)) - (darcsum-need-action-marked-face bf (p warning)) - (diary (p f02)) - (dictionary-button-face (p link)) - (dictionary-reference-face (p f11)) - (dictionary-word-definition-face nil) - (dictionary-word-entry-face (p f10)) - (diff-added (p warning) ex) - (diff-changed (p f02) nul) - (diff-context (p dimm)) - (diff-file-header dfg dbg nbf) - (diff-function (p function)) - (diff-header nbf dfg dbg) - (diff-hl-change (p dimm)) - (diff-hl-insert (p dimm)) - (diff-hl-delete (p warn)) - (diff-hunk-header (~ diff-file-header)) - (diff-index bf dfg dbg) - (diff-indicator-added (~ diff-added)) - (diff-indicator-changed (~ diff-changed)) - (diff-indicator-removed (~ diff-removed)) - (diff-nonexistent bf (p error)) - (diff-refine-added (~ diff-added)) - (diff-refine-change (~ diff-changed)) - (diff-refine-removed (~ diff-removed)) - (diff-removed (p error) ex) - (dired-directory (p f02)) - (dired-flagged bf) - (dired-header (p f01)) - (dired-ignored (p dimm)) - (dired-mark (p f00) bf) - (dired-marked bf (p f00)) - (dired-symlink (p f11)) - (dired-warn-writable (p warning)) - (dired-warning (p warning)) - (diredp-number (p f11))) - `((ediff-current-diff-A (~ diff-added) ex) - (ediff-current-diff-Ancestor (c nil ,jao-themes--box)) - (ediff-current-diff-B (~ ediff-current-diff-A) ex) - (ediff-current-diff-C (~ ediff-current-diff-A) ex) - (ediff-even-diff-A (~ diff-added) bf ex) - (ediff-even-diff-Ancestor (c nil ,jao-themes--box) ex) - (ediff-even-diff-B (~ ediff-even-diff-A)) - (ediff-even-diff-C (~ ediff-even-diff-A)) - (ediff-fine-diff-A (~ ediff-current-diff-A) nbf ul) - (ediff-fine-diff-Ancestor (c nil ,jao-themes--box) ex) - (ediff-fine-diff-B (~ ediff-fine-diff-A)) - (ediff-fine-diff-C (~ ediff-fine-diff-A)) - (ediff-odd-diff-A (~ ediff-even-diff-A)) - (ediff-odd-diff-Ancestor (~ ediff-odd-diff-A) nbf) - (ediff-odd-diff-B (~ ediff-odd-diff-A)) - (ediff-odd-diff-C (~ ediff-odd-diff-A)) - (emms-browser-album-face (p f00) :height 1.0) - (emms-browser-artist-face (p f01) :height 1.0) - (emms-browser-composer-face (p f02) :height 1.0) - (emms-browser-track-face (p f10) :height 1.0) - (emms-browser-year/genre-face (p f11) :height 1.0) - (emms-metaplaylist-mode-current-face (p f00) bf) - (emms-metaplaylist-mode-face (p f00)) - (emms-playlist-selected-face (p f00) bf) - (emms-playlist-track-face (p f00) nbf) - (emms-stream-name-face (p f00)) - (emms-stream-url-face link) - (enwc-connected (p warning)) - (epa-field-body) - (epa-field-name bf) - (epa-mark bf (p f00)) - (epa-string (p f01)) - (epa-validity-disabled) - (epa-validity-high bf) - (epa-validity-low) - (epa-validity-medium) - (erc-action-face (p f02)) - (erc-button (p link)) - (erc-current-nick-face (p error)) - (erc-direct-msg-face (p warning)) - (erc-error-face (p error)) - (erc-header-line (~ header)) - (erc-input-face (p f01)) - (erc-my-nick-face (p warning)) - (erc-nick-default-face (p f00)) - (erc-nick-msg-face (p warning)) - (erc-notice-face (p dimm)) - (erc-pal-face (p warning)) - (erc-prompt-face (f 01)) - (erc-timestamp-face (p dimm)) - (error (p error)) - (escape-glyph (p dimm)) - (eshell-ls-archive (p f12)) - (eshell-ls-backup (p dimm)) - (eshell-ls-clutter (p dimm)) - (eshell-ls-directory (p f02)) - (eshell-ls-executable (p warning)) - (eshell-ls-missing (p dimm)) - (eshell-ls-product (p f01)) - (eshell-ls-readonly (p f01) bf) - (eshell-ls-special bf (p f10)) - (eshell-ls-symlink bf (p f11)) - (eshell-ls-unreadable (p dimm)) - (eshell-prompt (p f00))) - `((factor-font-lock-comment (~ font-lock-comment-face)) - (factor-font-lock-constructor (~ font-lock-function-name-face)) - (factor-font-lock-declaration (~ font-lock-type-face)) - (factor-font-lock-getter-word (~ font-lock-function-name-face)) - (factor-font-lock-parsing-word (~ font-lock-keyword-face)) - (factor-font-lock-setter-word (~ font-lock-function-name-face)) - (factor-font-lock-stack-effect (~ font-lock-comment-face)) - (factor-font-lock-string (~ font-lock-string-face)) - (factor-font-lock-symbol (~ font-lock-keyword-face)) - (factor-font-lock-symbol-definition (~ font-lock-builtin-face)) - (factor-font-lock-type-definition (~ font-lock-type-face)) - (factor-font-lock-type-name (~ font-lock-type-face)) - (factor-font-lock-vocabulary-name (~ font-lock-constant-face)) - (factor-font-lock-word (~ font-lock-function-name-face)) - (ffap) - (file-name-shadow (p dimm)) - (fill-column-indicator (p dimm)) - (fixed-pitch :family ,jao-themes--face-family) - (flyspell-duplicate nbf (p warning)) - (flyspell-incorrect nbf (p error)) - (font-latex-sectioning-1-face (~ outline-1)) - (font-latex-sectioning-2-face (~ outline-2)) - (font-latex-sectioning-3-face (~ outline-3)) - (font-latex-sectioning-4-face (~ outline-4)) - (font-latex-sectioning-5-face (~ outline-5)) - (font-latex-slide-title-face (p f11)) - (font-latex-warning-face (p warning)) - (font-lock-builtin-face (p keyword)) - (font-lock-comment-delimiter-face (p comment)) - (font-lock-comment-face (p comment)) - (font-lock-constant-face (p constant)) - (font-lock-doc-face (p comment)) - (font-lock-function-name-face (p function)) - (font-lock-keyword-face (p keyword)) - (font-lock-negation-char-face nil) - (font-lock-preprocessor-face (p constant)) - (font-lock-regexp-grouping-backslash bf) - (font-lock-regexp-grouping-construct bf) - (font-lock-string-face (p string)) - (font-lock-type-face (p type)) - (font-lock-variable-name-face (p variable-name)) - (font-lock-warning-face (p warning)) - (fringe (p dimm)) - (fuel-font-lock-debug-error (p error) nul) - (fuel-font-lock-debug-info (p f01) nul) - (fuel-font-lock-stack-region (p hilite)) - (fuel-font-lock-xref-link link nul) - (fuel-font-lock-xref-vocab italic nul) - (fuel-font-lock-markup-link link) - (fuel-font-lock-markup-title (~ outline-1)) - (fuel-font-lock-markup-emphasis (~ italic)) - (fuel-font-lock-markup-heading (~ outline-1)) - (fuel-font-lock-markup-strong (~ bold))) - `((geiser-font-lock-autodoc-current-arg (~ highlight)) - (geiser-font-lock-autodoc-identifier - (~ font-lock-function-name-face)) - (geiser-font-lock-doc-button (~ button)) - (geiser-font-lock-doc-link link) - (geiser-font-lock-doc-title bf) - (geiser-font-lock-xref-header bf) - (geiser-font-lock-xref-link link nul) - (git-commit-summary-face (p f10)) - (git-gutter-fr:added (~ fringe) nbf) - (git-gutter-fr:deleted (~ fringe) nbf) - (git-gutter-fr:modified (~ fringe) nbf) - (gnus-button (~ button)) - (gnus-cite-attribution nil) - (gnus-cite-1 (p f10)) - (gnus-cite-2 (p f11)) - (gnus-cite-3 (p f12)) - (gnus-cite-4 (p dimm)) - (gnus-cite-5 (p dimm)) - (gnus-cite-6 (p dimm)) - (gnus-cite-7 (p dimm)) - (gnus-cite-8 (p dimm)) - (gnus-cite-9 (p dimm)) - (gnus-cite-10 (p dimm)) - (gnus-cite-11 (p dimm)) - (gnus-emphasis-bold bf) - (gnus-emphasis-bold-italic bf) - (gnus-emphasis-highlight-words (p hilite)) - (gnus-emphasis-italic nil) - (gnus-emphasis-strikethru st) - (gnus-emphasis-underline ul) - (gnus-emphasis-underline-bold bf ul) - (gnus-emphasis-underline-bold-italic bf ul) - (gnus-emphasis-underline-italic ul) - (gnus-group-mail-1 (p gnus-mail) bf) - (gnus-group-mail-1-empty (p gnus-mail) nbf) - (gnus-group-mail-2 (~ gnus-group-mail-1)) - (gnus-group-mail-2-empty (~ gnus-group-mail-1-empty)) - (gnus-group-mail-3 (~ gnus-group-mail-1)) - (gnus-group-mail-3-empty (~ gnus-group-mail-1-empty)) - (gnus-group-mail-4 (~ gnus-group-mail-1)) - (gnus-group-mail-4-empty (~ gnus-group-mail-1-empty)) - (gnus-group-mail-5 (p f00) bf) - (gnus-group-mail-5-empty (p f00)) - (gnus-group-mail-6 (p dimm) bf) - (gnus-group-mail-6-empty (p dimm)) - (gnus-group-mail-low bf (p dimm)) - (gnus-group-mail-low-empty (p dimm)) - (gnus-group-news-low bf (p dimm)) - (gnus-group-news-low-empty (p dimm)) - (gnus-group-news-1 (p gnus-news) bf) - (gnus-group-news-1-empty (p gnus-news) nbf) - (gnus-group-news-2 (~ gnus-group-news-1)) - (gnus-group-news-2-empty (~ gnus-group-news-1-empty)) - (gnus-group-news-3 (~ gnus-group-news-1)) - (gnus-group-news-3-empty (~ gnus-group-news-1-empty)) - (gnus-group-news-4 (~ gnus-group-news-1)) - (gnus-group-news-4-empty (~ gnus-group-news-1-empty)) - (gnus-group-news-5 (p f00) bf) - (gnus-group-news-5-empty (p f00)) - (gnus-group-news-6 (p dimm) bf) - (gnus-group-news-6-empty (p dimm)) - (gnus-header-content (p f02)) - (gnus-header-from (p f01)) - (gnus-header-name nbf (p f02)) - (gnus-header-newsgroups (p dimm)) - (gnus-header-subject (p f00) nbf) - (gnus-mouse-face nil) - (gnus-server-agent nbf) - (gnus-server-closed (p warning)) - (gnus-server-denied bf (p error)) - (gnus-server-offline (p dimm)) - (gnus-server-opened bf) - (gnus-signature nit (p f10)) - (gnus-splash dfg dbg) - (gnus-summary-high-undownloaded bf nit dfg dbg) - (gnus-summary-cancelled (p strike-through)) - (gnus-summary-high-unread bf nit) - (gnus-summary-normal-ancient (p dimm)) - (gnus-summary-normal-read (p dimm)) - (gnus-summary-high-ticked bf nit dfg dbg) - (gnus-summary-low-ancient (p dimm)) - (gnus-summary-low-read (p dimm) st) - (gnus-summary-low-ticked (p dimm)) - (gnus-summary-low-unread (p dimm)) - (gnus-summary-low-undownloaded (p dimm)) - (gnus-summary-normal-ancient (p dimm)) - (gnus-summary-normal-read (p dimm)) - (gnus-summary-normal-ticked (p f10) nbf) - (gnus-summary-normal-undownloaded bf dfg dbg) - (gnus-summary-normal-unread dfg dbg) - (gnus-summary-selected (p hilite)) - (gnus-x-face) - (google-translate-listen-button-face (~ button)) - (google-translate-phonetic-face (~ default)) - (google-translate-suggestion-face (p f00)) - (google-translate-suggestion-label-face (p f01)) - (google-translate-text-face (~ default)) - (google-translate-translation-face bf) - (gui-button-face (~ button)) - (gui-element (~ gui-button-face))) - `((header-line (~ mode-line-inactive)) - (help-argument-name) - (helm-selection (p hilite)) - (helm-separator (p dimm)) - (helm-source-header (~ outline-1)) - (helm-ls-git-added-copied-face dfg dbg) - (helm-ls-git-conflict-face (p error)) - (helm-ls-git-deleted-and-staged-face (p dimm)) - (helm-ls-git-deleted-not-staged-face dfg dbg) - (helm-ls-git-modified-and-staged-face (p f10)) - (helm-ls-git-modified-not-staged-face (p warning)) - (helm-ls-git-renamed-modified-face (p warning)) - (helm-ls-git-untracked-face (p error)) - (highlight (p hilite)) - (hydra-face-blue (p f00)) - (hydra-face-red (p error))) - `((ido-first-match (p warning)) - (ido-first-match-face (p warning)) - (ido-incomplete-regexp (p error)) - (ido-indicator (p error) nbf) - (ido-only-match (p error)) - (ido-subdir (p f01)) - (info-header-node bf dfg) - (info-header-xref dfg) - (info-menu-header bf) - (info-menu-star bf dfg) - (info-node (p f00)) - (info-title-1 (~ outline-1) bf) - (info-title-2 (~ outline-2) bf) - (info-title-3 (~ outline-3) bf) - (info-title-4 (~ outline-4) bf) - (Info-quoted (p f01)) - (info-xref link) - (info-xref-visited vlink) - (isearch bf (p hilite)) - (isearch-fail (p error)) - (italic (p italic)) - (ivy-confirm (p f01)) - (ivy-current-match (p hilite) ex) - (ivy-grep-info (p f00)) - (ivy-highlight-face (p hilite)) - (ivy-match-required-face (p warning)) - (ivy-minibuffer-match-highlight (c nil nil) ul) - (ivy-minibuffer-match-face-1 (p f00)) - (ivy-minibuffer-match-face-2 (p f10)) - (ivy-minibuffer-match-face-3 (p f01)) - (ivy-minibuffer-match-face-4 (p f01)) - (ivy-modified-buffer it) - (ivy-subdir (p f02)) - (ivy-virtual (~ default) it)) - `((jabber-activity-face dbg dfg nbf) - (jabber-activity-personal-face (p warning) nbf) - (jabber-chat-error (p error)) - (jabber-chat-prompt-foreign (p f00) nbf) - (jabber-chat-prompt-local (p f01) nbf) - (jabber-chat-prompt-system (p f02) nbf) - (jabber-rare-time-face (p dimm)) - (jabber-roster-user-away (p dimm)) - (jabber-roster-user-dnd (p dimm)) - (jabber-roster-user-chatty (p warning) nbf) - (jabber-roster-user-offline (p dimm)) - (jabber-roster-user-online (p f01) nbf) - (jabber-roster-user-xa (p dimm)) - (jabber-title-large (~ default) bf) - (jabber-title-medium bf) - (jabber-title-roster bf (p warning)) - (jao-emms-font-lock-album (p f01)) - (jao-emms-font-lock-artist (p f02)) - (jao-emms-font-lock-title (p f01)) - (jao-emms-font-lock-track dfg dbg) - (jao-frm-from-face (p f00)) - (jao-frm-mailbox-face bf) - (jao-frm-subject-face (p f01)) - (jao-frm-mailno-face bf) - (jao-gnus-face-tree (p dimm)) - (jde-java-font-lock-constant-face (~ font-lock-constant-face)) - (jde-java-font-lock-doc-tag-face (p f02)) - (jde-java-font-lock-package-face (p f02)) - (jde-java-font-lock-link-face (p link)) - (jde-java-font-lock-number-face (~ font-lock-constant-face)) - (jde-java-font-lock-public-face (~ font-lock-keyword-face)) - (jde-java-font-lock-private-face (~ font-lock-keyword-face)) - (jde-java-font-lock-protected-face (~ font-lock-keyword-face)) - (jde-java-font-lock-modifier-face (~ font-lock-keyword-face))) - `((lazy-highlight (p hilite)) - (line-number (p dimm)) - (line-number-current-line (p hilite)) - (link link nul) - (link-visited vlink nul) - (lui-button-face (p link)) - (lui-highlight-face (p warning)) - (lui-time-stamp-face (p dimm)) - (lui-track-bar (p hilite) :height 0.1)) - `((magit-branch (p f00)) - (magit-cherry-equivalent (p warning)) - (magit-diff-add (~ diff-added)) - (magit-diff-context-highlight (p hilite) ex) - (magit-diff-del (~ diff-removed)) - (magit-diff-file-heading (p keyword)) - (magit-diff-file-header (~ diff-file-header)) - (magit-diff-hunk-header (~ diff-hunk-header)) - (magit-diff-none (p dimm)) - (magit-hash (p f12)) - (magit-item-highlight (~ mm-uu-extract) ex) - (magit-item-mark (p warning)) - (magit-log-head-label (p keyword) bf) - (magit-log-head-label-head (p keyword) nbf ul) - (magit-log-head-label-default (p keyword) nbf) - (magit-log-head-label-local (p keyword) nbf) - (magit-log-head-label-remote (p function) bf) - (magit-log-head-label-tags (p warning) nbf) - (magit-log-graph (p f11)) - (magit-log-tag-label (p keyword)) - (magit-section-highlight (p hilite) ex) - (magit-section-heading (~ outline-2)) - (magit-section-title (~ outline-2)) - (Man-underline ul) - (match (p hilite)) - (markdown-pre-face (~ font-lock-constant-face)) - (markdown-code-face (p keyword)) - (markdown-inline-code-face (p function)) - (markdown-italic-face (~ italic)) - (menu nil) - (message-cited-text (p f01) nbf) - (message-header-cc (p f00) nbf) - (message-header-name (p f01) nbf) - (message-header-newsgroups (p dimm) nbf) - (message-header-other (p f00) nbf) - (message-header-subject (p f00) nbf) - (message-header-to (p f00) nbf) - (message-header-xheader (p f00) nbf) - (message-mml (p warning) nbf) - (message-separator (p warning) nbf) - (mm-uu-extract (p hilite) ex) - (minibuffer-line (p f00)) - (minibuffer-prompt (p f00)) - (mode-line-buffer-id nbf (c nil nil)) - (mode-line-emphasis (p warning)) - (mode-line-highlight (~ mode-line)) - ;; (modeline-mousable (~ mode-line-active)) - ;; (modeline-mousable-minor-mode (~ modeline-mousable)) - (moinmoin-table-pi (p f02)) - (mouse dfg dbg ul) - (mpdel-playlist-current-song-face (p hilite) ex) - (mpdel-tablist-song-name-face (p f00)) - (mpdel-tablist-track-face (~ default)) - (mpdel-tablist-album-face (p f01)) - (mpdel-tablist-disk-face (~ default)) - (mpdel-tablist-date-face (~ default)) - (mpdel-tablist-artist-face (p f01)) - (muse-bad-link (p warning)) - (muse-header-1 (~ outline-1)) - (muse-header-2 (~ outline-2)) - (muse-header-3 (~ outline-3)) - (muse-header-4 (~ outline-4)) - (muse-header-5 (~ outline-5)) - (muse-link link) - (muse-verbatim (p f02))) - `((next-error (p hilite)) - (nobreak-space dbg dfg ul) - (nrepl-error-face (p error)) - (nrepl-input-face (p f01)) - (nrepl-output-face (p f02)) - (nrepl-prompt-face (p f00)) - (nrepl-result-face nil)) - `((org-agenda-date-today (p hilite) nul) - (org-agenda-date-weekend (p dimm)) - (org-agenda-done (p dimm)) - (org-agenda-restriction-lock (~ default)) - (org-agenda-structure (p f00)) - (org-archived (p dimm)) - (org-code (p f11)) - (org-column dfg dbg :height 1.0) - (org-date (p f02) nul) - (org-document-info nul) - (org-document-title bf) - (org-done (p dimm) nbf niv) - (org-drawer (p f02)) - (org-ellipsis (p dimm)) - (org-formula (p f02)) - (org-headline-done (p dimm)) - (org-hide (c ,jao-themes--bg)) - (org-latex-and-export-specials (~ default)) - (org-level-1 (~ outline-1)) - (org-level-2 (~ outline-2)) - (org-level-3 (~ outline-3)) - (org-level-4 (~ outline-4)) - (org-level-5 (~ outline-5)) - (org-level-6 (~ outline-6)) - (org-level-7 (~ outline-7)) - (org-level-8 (~ outline-8)) - (org-link link) - (org-noter-notes-exist-face it) - (org-property-value nil) - (org-roam-link (~ org-link) it) - (org-scheduled (p f01)) - (org-scheduled-previously (p f00) nbf) - (org-scheduled-today (p f01)) - (org-sexp-date (p f01)) - (org-special-keyword (p keyword)) - (org-table (p f01)) - (org-tag (p dimm) nbf) - (org-target ul) - (org-time-grid dfg dbg) - (org-todo nbf niv (p error)) - (org-upcoming-deadline (p f02)) - (org-verbatim (p hilite)) - (org-warning bf (p warning)) - (outline-1 bf (p outline-1)) - (outline-2 bf (p outline-2)) - (outline-3 bf (p outline-3)) - (outline-4 bf (p outline-4)) - (outline-5 nbf ul (p outline-5)) - (outline-6 nbf ul (p outline-6)) - (outline-7 nbf ul (p outline-7)) - (outline-8 nbf ul (p outline-8))) - `((powerline-active1 (~ mode-line)) - (powerline-active2 (~ mode-line-inactive)) - (powerline-inactive1 (~ mode-line-inactive)) - (powerline-inactive2 (~ mode-line))) - `((query-replace bf (p hilite))) - `((rcirc-bright-nick (p hilite)) - (rcirc-my-nick (p warning)) - (rcirc-nick-in-message (p warning)) - (rcirc-nick-in-message-full-line (~ rcirc-nick-in-message)) - (rcirc-other-nick (p keyword)) - (rcirc-prompt bf) - (rcirc-server (p dimm)) - (rcirc-timestamp (p dimm)) - (rcirc-track-keyword (p warning)) - (rcirc-track-nick (~ rcirc-my-nick) niv) - (rcirc-url nbf link) - (reb-match-0 (p hilite)) - (reb-match-1 (~ secondary-selection)) - (reb-match-2 (~ secondary-selection) bf) - (reb-match-3 (~ secondary-selection) ul) - (region (p hilite) ex) - (rst-level-1-face (~ outline-1)) - (rst-level-2-face (~ outline-2)) - (rst-level-3-face (~ outline-3)) - (rst-level-4-face (~ outline-4)) - (rst-level-5-face (~ outline-5)) - (rst-level-6-face (~ outline-6)) - (rst-level-7-face (~ outline-7)) - (rst-level-8-face (~ outline-8))) - `((secondary-selection (p hilite) ex) - (sh-quoted-exec (p f00)) - (show-paren-match (p hilite)) - (show-paren-mismatch (p error)) - (sieve-control-commands (~ font-lock-builtin-face)) - (sieve-tagged-arguments (~ font-lock-constant-face)) - (sieve-test-commands (~ font-lock-keyword-face)) - (sieve-action-commands (~ font-lock-keyword-face)) - (signel-contact-face (p f11)) - (signel-notice (p dimm)) - (signel-notification (p warning)) - (signel-prompt it) - (signel-timestamp (p dimm)) - (signel-user (p f00)) - (slack-channel-button-face (~ link)) - (slack-message-action-face (~ link)) - (slack-message-mention-face (p f01)) - (slack-message-mention-keyword-face (p f01)) - (slack-message-mention-me-face (p error)) - (slack-message-output-header (p f00) it) - (slack-message-output-text nil) - (slack-new-message-marker-face (p warning)) - (slack-preview-face (p f11)) - (slack-search-result-message-header-face it) - (slack-user-profile-header-face (p f01)) - (slack-user-profile-property-name-face bf) - (sldb-frame-line-face (p f00)) - (sldb-frame-label-face (p f01)) - (sldb-condition-face (p f02)) - (slime-repl-prompt-face (p f00)) - (slime-repl-input-face (p f00) bf) - (slime-repl-inputed-output-face (p f02)) - (slime-repl-output-face (p string)) - (sp-show-pair-enclosing nil) - (sp-show-pair-match-face (p hilite)) - (sp-show-pair-mismatch-face (p error)) - (spaceline-highlight-face-default (p f00)) - (spaceline-highlight-face-modified (p f01)) - (spaceline-highlight-face (p f02)) - (spaceline-modified (p f10) iv) - (spaceline-unmodified (p f11) iv) - (spaceline-read-only (p f12) iv) - (speedbar-directory-face (~ diredp-dir-heading)) - (speedbar-file-face (~ diredp-file-name)) - (speedbar-highlight-face (p hilite)) - (speedbar-selected-face ul) - (speedbar-separator-face (p f00)) - (scroll-bar nil) - (shadow nil) - (success (p success)) - (sunshine-forecast-date-face nil) - (sunshine-forecast-day-divider-face (p dimm)) - (sunshine-forecast-headline-face (~ header-line))) - `((telega-button (~ button)) - (telega-button-active (~ button)) - (telega-msg-heading (p f00)) - (telega-root-heading (p hilite)) - (term nil) - (tool-bar nil) - (tooltip :family ,jao-themes--face-family (c nil "lightyellow")) - (trailing-whitespace (p error)) - (treemacs-root-face nul bf :scale 1.1) - (twittering-timeline-footer-face (~ header-line)) - (twittering-timeline-header-face (~ header-line)) - (twittering-uri-face (~ link)) - (twittering-username-face (p f01))) - `((underline ul)) - `((variable-pitch :family ,jao-themes--face-family :height 110) - (vertical-border (c ,jao-themes--box nil) :inherit default)) - `((w3m-anchor link) - (w3m-arrived-anchor vlink) - (w3m-bold bf dbg dfg) - (w3m-current-anchor nbf ul) - (w3m-form dfg dbg ul) - (w3m-form-button (~ button)) - (w3m-form-button-mouse (~ custom-button-mouse)) - (w3m-form-button-pressed (~ custom-button-pressed)) - (w3m-header-line-location-content - :box (:line-width 3 :color ,jao-themes--bg) dfg dbg) - (w3m-header-line-location-title - :box (:line-width 3 :color ,jao-themes--bg) dfg dbg) - (w3m-header-line-content - :box (:line-width 3 :color ,jao-themes--bg) dfg dbg) - (w3m-header-line-title - :box (:line-width 3 :color ,jao-themes--bg) dfg dbg) - (w3m-history-current-url (c nil nil) ul) - (w3m-image (p f10)) - (w3m-image-anchor (c nil nil)) - (w3m-insert (p f12)) - (w3m-italic (~ italic)) - (w3m-linknum-match (p warning)) - (w3m-linknum-minibuffer-prompt (~ minibuffer-prompt)) - (w3m-session-select (p f10)) - (w3m-session-selected bf nul (p f10)) - (w3m-strike-through st) - (w3m-tab-background nul (c nil nil)) - (w3m-tab-mouse nil) - (w3m-tab-selected (p tab-sel)) - (w3m-tab-selected-background nil) - (w3m-tab-selected-retrieving (p tab-sel) it) - (w3m-tab-unselected (p tab-unsel)) - (w3m-tab-unselected-retrieving (p tab-unsel) it) - (w3m-tab-unselected-unseen (p tab-unsel)) - (w3m-underline ul) - (warning (p warning)) - (wg-brace-face nil) - (wg-command-face (p f00)) - (wg-current-workgroup-face (p f11) bf) - (wg-divider-face nil) - (wg-filename-face nil) - (wg-frame-face nil) - (wg-message-face (p string)) - (wg-mode-line-face nil) - (wg-previous-workgroup-face (p f00)) - (wgrep-delete-face st) - (wgrep-done-face (p f00)) - (wgrep-face (p f10) ul) - (wgrep-file-face (p f01)) - (wgrep-reject-face (p error) ul) - (widget-button (~ button)) - (widget-button-pressed nbf (~ custom-button-pressed)) - (widget-button-face (~ button)) - (widget-button-pressed-face (~ button)) - (widget-documentation (p dimm)) - (widget-field (p hilite) bx) - (widget-inactive (p dimm)) - (Widget-single-line-field (~ widget-field)) - (woman-bold (p f00) bf) - (woman-italic (p f01) nul nit) - (woman-italic-no-ul (p f01) nul nit))))) - (dolist (df dfs fs) - (when (not (assq (car df) fs)) - (push df fs))))) - -(defsubst jao-themes--let-palette (palette xp) - (mapcar (lambda (f) - `(,(jao-themes--palette-face (car f)) - ',(or (and xp (caddr f)) (cadr f)))) - palette)) - -(defun jao-themes--extract-faces (t-faces x-faces) - (let ((result)) - (dolist (f t-faces (reverse result)) - (let ((xfb (cdr (assq (car f) x-faces)))) - (push `(,(car f) ((((type x pgtk ns)) ,@xfb) - (t ,@(cdr f)))) result))))) - -(defun jao-themes--set-fbg (kind) - (let* ((kvs (cdr (assoc kind window-system-default-frame-alist))) - (f-alist (assq-delete-all 'background-color kvs)) - (f-alist (assq-delete-all 'foreground-color f-alist))) - (when jao-themes--fg - (push (cons 'foreground-color jao-themes--fg) f-alist)) - (when jao-themes--bg - (push (cons 'background-color jao-themes--bg) f-alist)) - (setq window-system-default-frame-alist - (cons - (cons kind f-alist) - (assq-delete-all kind window-system-default-frame-alist))))) - -(defmacro jao-define-custom-theme (name &rest args) - (let* ((t-faces (make-symbol "t-faces")) - (xfaces (make-symbol "xfaces")) - (tx-faces (make-symbol "tx-faces")) - (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)))))) - `(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)))) - (let* ,(jao-themes--let-palette palette nil) - (jao-themes--set-fbg nil) - (let ((,t-faces (jao-themes--make-faces ',faces))) - (let* ,(jao-themes--let-palette palette t) - (jao-themes--set-fbg 'x) - (jao-themes--set-fbg 'pgtk) - (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) - (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) - (put ',name 'theme-immediate t) - (apply 'custom-theme-set-faces (cons ',name ,tx-faces))))) - (provide-theme ',name)))))) - -(put 'jao-define-custom-theme 'lisp-indent-function 1) - -(when load-file-name - (add-to-list 'custom-theme-load-path (file-name-directory load-file-name))) - - - -(provide 'jao-themes) diff --git a/themes/jao-zenburn-theme.el b/themes/jao-zenburn-theme.el deleted file mode 100644 index a866d03..0000000 --- a/themes/jao-zenburn-theme.el +++ /dev/null @@ -1,132 +0,0 @@ -(require 'jao-themes) - -(setq zenburn-override-colors-alist - `(("zenburn-magenta" . "thistle") - ("zenburn-cyan" . "LightSteelBlue1") - ("zenburn-blue+1" . "LemonChiffon") - ("zenburn-blue" . "LemonChiffon1") - ("zenburn-blue-1" . "LemonChiffon2") - ("zenburn-blue-2" . "LemonChiffon3") - ("zenburn-blue-3" . "LemonChiffon4") - ("zenburn-blue-4" . "cadet blue") - ("zenburn-blue-5" . "dark cyan"))) - -(use-package zenburn-theme :ensure t) - -;; (setq zenburn-colors-alist -;; (append zenburn-default-colors-alist -;; zenburn-override-colors-alist)) - -(load-theme 'zenburn t) - -(zenburn-with-color-variables - (let* ((box '(:box (:line-width 1 :color "grey35"))) - (f (jao-themes-parse-faces - `((circe-my-message-face (c "gray70")) - (circe-originator-face (c ,zenburn-yellow-1)) - (compilation-info (c ,zenburn-yellow) nul) - (compilation-error (c ,zenburn-red+1) nul) - (custom-button ,@box it) - (dictionary-word-definition-face nil) - (diff-hl-change (c nil ,zenburn-blue-3)) - (diff-hl-delete (c nil ,zenburn-red-1)) - (diff-hl-insert (c nil ,zenburn-green-1)) - (diredp-date-time (c ,zenburn-yellow)) - (diredp-dir-name (c ,zenburn-blue-2) bf) - (diredp-exec-priv (c ,zenburn-yellow-2)) - (diredp-write-priv (c ,zenburn-yellow-2)) - (emms-browser-artist-face (c ,zenburn-yellow-1)) - (emms-browser-composer-face (~ emms-browser-artist-face)) - (emms-browser-performer-face (~ emms-browser-artist-face)) - (emms-browser-year-face (~ emms-browser-artist-face)) - (emms-browser-year/genre-face (~ emms-browser-artist-face)) - (fill-column-indicator (c ,zenburn-bg+1)) - (font-lock-function-name-face (c ,zenburn-yellow) nbf) - (fringe (c ,zenburn-fg-05 nil)) - (gnus-cite-1 (c "#b8b8b0")) - (gnus-cite-2 (c ,zenburn-fg-05)) - (gnus-cite-3 (c ,zenburn-fg-05)) - (gnus-cite-4 (c ,zenburn-fg-05)) - (gnus-group-mail-1 (c ,zenburn-yellow)) - (gnus-group-mail-2 (c ,zenburn-yellow)) - (gnus-group-mail-3 (c ,zenburn-yellow)) - (gnus-group-mail-4 (c ,zenburn-yellow)) - (gnus-group-mail-5 (c ,zenburn-yellow)) - (gnus-group-mail-6 (c ,zenburn-yellow)) - (gnus-group-news-1 (c ,zenburn-yellow)) - (gnus-group-news-2 (c ,zenburn-yellow)) - (gnus-group-news-3 (c ,zenburn-yellow)) - (gnus-group-news-4 (c ,zenburn-yellow)) - (gnus-group-news-5 (c ,zenburn-yellow)) - (gnus-group-news-6 (c ,zenburn-yellow)) - (gnus-group-news-1-empty (c ,zenburn-fg-05)) - (gnus-group-news-2-empty (c ,zenburn-fg-05)) - (gnus-group-news-3-empty (c ,zenburn-fg-05)) - (gnus-group-news-4-empty (c ,zenburn-fg-05)) - (gnus-group-news-5-empty (c ,zenburn-fg-05)) - (gnus-group-news-6-empty (c ,zenburn-fg-05)) - (gnus-summary-cancelled (c ,zenburn-red) st) - (gnus-summary-normal-ancient (c ,zenburn-fg-05)) - (header-line (c ,zenburn-fg ,zenburn-bg+1)) - (isearch (c nil ,zenburn-bg+1)) - (ivy-confirm (c ,zenburn-blue)) - (ivy-current-match (c ,zenburn-orange)) - (ivy-highlight-face (c ,zenburn-bg-08)) - (ivy-match-required-face (c ,zenburn-orange)) - (ivy-minibuffer-match-highlight (c nil nil)) - (ivy-minibuffer-match-face-1 (c ,zenburn-yellow-2) ul) - (ivy-minibuffer-match-face-2 (c ,zenburn-yellow-2) ul) - (ivy-minibuffer-match-face-3 (c ,zenburn-yellow-2) ul) - (ivy-minibuffer-match-face-4 (c ,zenburn-yellow-2) ul) - (ivy-modified-buffer it) - (ivy-subdir (c ,zenburn-green+2)) - (link (c ,zenburn-yellow) nbf nul) - (link-visited (c ,zenburn-yellow-2) nbf nul) - (lui-button-face (c ,zenburn-green+2)) - (lui-time-stamp-face (c ,zenburn-bg+3)) - (magit-diff-added-highlight (c ,zenburn-fg+1 ,zenburn-green)) - (magit-hash (c ,zenburn-green)) - (match (c ,zenburn-orange) nbf) - (mm-uu-extract (c nil ,zenburn-bg+1)) - (mode-line (c ,zenburn-fg ,zenburn-bg+1) ,@box) - (mode-line-buffer-id (c ,zenburn-yellow nil) bf) - (mode-line-buffer-id-inactive (c ,zenburn-fg-1 nil) nbf) - (mode-line-inactive (~ header-line) ,@box) - (org-block nil) - (org-ellipsis (c ,zenburn-yellow) nul bf) - (powerline-active1 (c nil ,zenburn-bg+1)) - (powerline-active2 (c nil ,zenburn-bg+3)) - (powerline-inactive1 (c nil ,zenburn-bg+1)) - (powerline-inactive2 (c nil ,zenburn-bg+2)) - (rcirc-track-nick (c ,zenburn-orange)) - (spaceline-read-only (c "black" ,zenburn-blue-3)) - (spaceline-modified (c "black" ,zenburn-blue-2)) - (spaceline-unmodified (c nil ,zenburn-green-1)) - (slack-channel-button-face (~ link)) - (slack-message-mention-face (p f01)) - (slack-message-mention-keyword-face (p f01)) - (slack-message-mention-me-face (p error)) - (slack-message-output-header (c ,zenburn-yellow) it) - (slack-message-output-text nil) - (slack-new-message-marker-face (p warning)) - (slack-preview-face (c ,zenburn-green)) - (slack-search-result-message-header-face it) - (slack-user-profile-header-face (p f01)) - (slack-user-profile-property-name-face bf) - (TeX-error-description-error (c ,zenburn-red)) - (vertical-border (c ,zenburn-bg+2)) - (w3m-anchor (~ link)) - (w3m-arrived-anchor (~ visited-link)) - (w3m-form-button (c ,zenburn-green+2 ,zenburn-bg+1)) - (w3m-header-line-location-content (c ,zenburn-yellow)) - (w3m-header-line-location-title nil) - (w3m-image-anchor (~ w3m-anchor) (c nil ,zenburn-bg+2)) - (w3m-tab-background (~ mode-line)) - (w3m-tab-selected (c ,zenburn-red+1 ,zenburn-bg) bf bx) - (w3m-tab-unselected (c ,zenburn-fg "grey30") bx) - (w3m-tab-selected-background (~ w3m-tab-selected)) - (w3m-tab-unselected-unseen (~ w3m-tab-unselected)))))) - (apply 'custom-theme-set-faces (cons 'zenburn f)) - (custom-theme-set-variables 'zenburn `(fci-rule-color ,zenburn-bg+1)))) - -(provide 'jao-zenburn-theme) |