From 766c3a3b66f7af3f1d32306b8c494d2a6abe5662 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 6 Nov 2021 23:45:02 +0000 Subject: jao-themes: simplifications (no independent term faces) --- lib/themes/jao-light-theme.el | 109 +++++++++++++----------------------------- 1 file changed, 34 insertions(+), 75 deletions(-) (limited to 'lib/themes/jao-light-theme.el') diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index 1dc1303..98c3d40 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -43,89 +43,53 @@ (functions "#005555") (red "salmon3") (red2 "sienna4")) - (:palette (fg unspecified "black") - (bg unspecified "white") - ;; (bg unspecified "#fffff8") - (box "grey90" "grey88") - (button ((c "grey10" dimm-background-4) bx nit)) - (hilite ((c nil dimm-background))) - (strike-through ((c 1)) (st)) - (italic (it)) - (link ((c dark-blue-2) (ul "grey80") 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 nil) 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 (~ bold) ((c dark-blue-1) nit)) - (outline-2 ((c functions) nit nbf)) - (outline-3 ((c link) nit nbf)) - (outline-4 ((c nil) it nbf)) - (outline-5 ((c nil))) - (f00 ((c slate))) - (f01 ((c dark-blue-2))) - (f02 ((c 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 (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")) - (company-scrollbar-fg (c nil "grey90")) + (:palette (fg "black") + (bg "white") + (box "grey88") + (button (c "grey10" dimm-background-4) bx nit) + (hilite (c nil dimm-background)) + (link (c dark-blue-2) (ul "grey80") 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 nil) 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) nit) + (outline-2 (c functions) nit nbf) + (outline-3 (c link) nit nbf) + (outline-4 (c nil) it nbf) + (outline-5 (c nil)) + (f00 (c slate)) + (f01 (c dark-blue-2)) + (f02 (c green)) + (f10 (p f00)) + (f11 (p f01)) + (f12 (p f02))) + (:x-faces (compilation-info (c "#223142" nil) nbf) (corfu-background (~ default) (c "black" "grey95")) (corfu-bar (c nil "grey80")) ;; moving part of the bar (corfu-border (~ corfu-background)) ;; background of the bar (corfu-current (c "black" "grey95") nbf nit (ul "grey70")) (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) nul) - (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" nil) st) - (haskell-type-face (p f12)) (header-line (c nil "#efebe7")) - (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) - (message-header-subject (p f00) bf) (mode-line (c "grey30" dimm-background-3) :box (:line-width -1 :color "grey90")) (mode-line-inactive (c "grey40" dimm-background-4) @@ -134,11 +98,6 @@ (mode-line-emphasis (c green nil)) (mode-line-highlight (c green nil)) (org-link (p link) (ul "grey80")) - (outline-minor-1 (c dark-blue-1 light-grey) nit bf ex) - (outline-minor-2 (c functions light-grey) nit bf ex) - (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" nil)) (show-paren-match (c nil "grey85")) (success (p f00)) -- cgit v1.2.3