From 515558c11defeee18b107325cc14d7f7d70a38aa Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 14 Aug 2021 21:42:55 -0700 Subject: Themes. --- themes/sd-compagnon-dark-theme.el | 85 +++++++++++++++++++++++++++++++++++++++ themes/sd-compagnon-theme.el | 14 ++++--- themes/sd-light-theme.el | 10 +++-- 3 files changed, 101 insertions(+), 8 deletions(-) create mode 100644 themes/sd-compagnon-dark-theme.el (limited to 'themes') diff --git a/themes/sd-compagnon-dark-theme.el b/themes/sd-compagnon-dark-theme.el new file mode 100644 index 0000000..7f75094 --- /dev/null +++ b/themes/sd-compagnon-dark-theme.el @@ -0,0 +1,85 @@ +(deftheme sd-compagnon-dark + "Created 2021-07-07.") + +(custom-theme-set-variables + 'sd-compagnon-dark + '(cursor-type 'box)) + +(custom-theme-set-faces + 'sd-compagnon-dark + '(cursor ((t (:background "green")))) + '(fixed-pitch ((t (:family "Compagnon Medium")))) + '(variable-pitch ((t (:family "Compagnon Roman")))) + '(escape-glyph ((t (:foreground "orange")))) + '(homoglyph ((t (:foreground "cyan")))) + '(minibuffer-prompt ((t (:inherit (org-meta-line))))) + '(highlight ((t (:box (:line-width 2 :color "medium spring green") :background "sea green")))) + '(region ((t (:extend t :background "medium sea green")))) + '(shadow ((t (:foreground "light slate gray")))) + '(secondary-selection ((((class color) (min-colors 88) (background light)) (:extend t :background "yellow1")) (((class color) (min-colors 88) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:extend t :background "yellow")) (((class color) (min-colors 16) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 8)) (:extend t :foreground "black" :background "cyan")) (t (:inverse-video t)))) + '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t)))) + '(font-lock-builtin-face ((t (:foreground "cyan4")))) + '(font-lock-comment-delimiter-face ((t (:inherit fixed-pitch :foreground "slate gray")))) + '(font-lock-comment-face ((t (:family "Compagnon Bold")))) + '(font-lock-constant-face ((t (:foreground "cyan")))) + '(font-lock-doc-face ((t (:inherit variable-pitch)))) + '(font-lock-function-name-face ((t (:foreground "light green" :weight bold)))) + '(font-lock-keyword-face ((t (:foreground "green yellow")))) + '(font-lock-negation-char-face ((t nil))) + '(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face)))) + '(font-lock-regexp-grouping-backslash ((t (:foreground "orange")))) + '(font-lock-regexp-grouping-construct ((t (:foreground "dark orange")))) + '(font-lock-string-face ((t (:inherit variable-pitch)))) + '(font-lock-type-face ((t (:foreground "orchid2")))) + '(font-lock-variable-name-face ((t (:weight bold)))) + '(font-lock-warning-face ((t (:inherit (error))))) + '(button ((t (:foundry "Compagnon Light")))) + '(link ((t (:foreground "green yellow" :family "Compagnon Light Italic")))) + '(link-visited ((t (:inherit link :foreground "yellow green")))) + '(fringe ((t (:background "gainsboro")))) + '(header-line ((t (:inherit org-meta-line :weight bold :height 1.8)))) + '(tooltip ((t (:background "white smoke" :foreground "sea green" :family "Hermit")))) + '(mode-line ((t (:inherit org-meta-line :box (:line-width -1 :style released-button))))) + '(mode-line-buffer-id ((t (:weight bold)))) + '(mode-line-emphasis ((t (:weight bold)))) + '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button))))) + '(mode-line-inactive ((t (:box (:line-width -1 :color "dark gray") :inherit org-meta-line)))) + '(isearch ((t (:foreground "white" :background "DodgerBlue1")))) + '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t)))) + '(lazy-highlight ((t (:foreground "burlywood" :box 2)))) + '(match ((t (:background "yellow1")))) + '(next-error ((t (:inherit (region))))) + '(query-replace ((t (:inherit (isearch))))) + '(org-meta-line ((t (:foreground "medium spring green" :family "Compagnon Light")))) + '(org-table ((t (:inherit default)))) + '(org-block ((t (:inherit fixed-pitch :extend t)))) + '(org-code ((t (:inherit fixed-pitch)))) + '(custom-variable-tag ((t (:weight bold)))) + '(org-block-begin-line ((t (:inherit org-meta-line)))) + '(org-block-end-line ((t (:inherit org-block-begin-line)))) + '(outline-1 ((t (:family "Compagnon Medium")))) + '(outline-2 ((t (:inherit outline-1)))) + '(outline-3 ((t (:inherit outline-1)))) + '(outline-4 ((t (:inherit outline-1)))) + '(outline-5 ((t (:inherit outline-1)))) + '(outline-6 ((t (:inherit outline-1)))) + '(outline-7 ((t (:inherit outline-1)))) + '(outline-8 ((t (:inherit outline-1)))) + '(org-special-keyword ((t (:inherit org-meta-line :background "gray15")))) + '(line-number ((t (:foreground "white" :inherit org-meta-line)))) + '(org-todo ((t (:inherit fixed-pitch :background "tomato" :foreground "white" :weight bold)))) + '(org-done ((t (:inherit fixed-pitch :background "medium aquamarine" :foreground "white" :weight bold)))) + '(org-date ((t (:inherit link)))) + '(bold ((t (:weight bold)))) + '(italic ((t (:slant italic)))) + '(bold-italic ((t (:slant italic :weight bold)))) + '(org-headline-done ((t (:inherit outline-1 :foreground "aquamarine4")))) + '(org-footnote ((t (:family "Compagnon Light")))) + '(custom-link ((t (:box (:line-width 2 :color "medium spring green" :style released-button))))) + '(show-paren-match ((t (:background "aquamarine")))) + '(show-paren-mismatch ((t (:background "orange red" :foreground "white")))) + '(org-drawer ((t (:inherit org-block-begin-line)))) + '(org-agenda-structure ((t (:foreground "Green Yellow")))) + '(default ((t (:inherit nil :extend nil :stipple nil :background "gray15" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight semi-bold :height 142 :width normal :foundry "UKWN" :family "Compagnon Medium"))))) + +(provide-theme 'sd-compagnon-dark) diff --git a/themes/sd-compagnon-theme.el b/themes/sd-compagnon-theme.el index 3a4c9b1..8c8f756 100644 --- a/themes/sd-compagnon-theme.el +++ b/themes/sd-compagnon-theme.el @@ -1,5 +1,9 @@ (deftheme sd-compagnon - "Created 2021-05-23.") + "Created 2021-06-20.") + +(custom-theme-set-variables + 'sd-compagnon + '(cursor-type 'bar)) (custom-theme-set-faces 'sd-compagnon @@ -30,8 +34,8 @@ '(font-lock-variable-name-face ((t (:weight bold)))) '(font-lock-warning-face ((t (:inherit (error))))) '(button ((t (:inherit link)))) - '(link ((t (:family "Compagnon Light Italic")))) - '(link-visited ((t (:inherit link)))) + '(link ((t (:foreground "green yellow" :family "Compagnon Light Italic")))) + '(link-visited ((t (:inherit link :foreground "yellow green")))) '(fringe ((t (:background "gainsboro")))) '(header-line ((t (:height 1.8 :weight bold :inherit org-meta-line)))) '(tooltip ((t (:background "old lace" :foreground "black" :family "Hermit")))) @@ -74,7 +78,7 @@ '(custom-link ((t (:inherit fixed-pitch :background "burlywood1")))) '(show-paren-match ((t (:background "aquamarine")))) '(show-paren-mismatch ((t (:background "orange red" :foreground "white")))) - '(default ((t (:inherit nil :extend nil :stipple nil :background "cornsilk" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight semi-bold :height 142 :width normal :foundry "UKWN" :family "Compagnon Medium")))) - '(org-drawer ((t (:inherit org-block-begin-line))))) + '(org-drawer ((t (:inherit org-block-begin-line)))) + '(default ((t (:inherit nil :extend nil :stipple nil :background "cornsilk" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight semi-bold :height 142 :width normal :foundry "UKWN" :family "Compagnon Medium"))))) (provide-theme 'sd-compagnon) diff --git a/themes/sd-light-theme.el b/themes/sd-light-theme.el index 404f5fa..6ad85c5 100644 --- a/themes/sd-light-theme.el +++ b/themes/sd-light-theme.el @@ -1,5 +1,9 @@ (deftheme sd-light - "Created 2021-05-16.") + "Created 2021-08-13.") + +(custom-theme-set-variables + 'sd-light + '(cursor-type 'bar)) (custom-theme-set-faces 'sd-light @@ -29,7 +33,7 @@ '(font-lock-variable-name-face ((t (:foreground "DarkOrchid3" :weight bold)))) '(font-lock-warning-face ((t (:inherit (error))))) '(fringe ((t (:background "gainsboro")))) - '(header-line ((t (:inherit org-meta-line :weight extra-bold :height 1.8)))) + '(header-line ((t (:height 1.8 :weight extra-bold :inherit org-meta-line)))) '(highlight ((t (:background "LightSkyBlue1")))) '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown")))) '(isearch ((t (:background "DodgerBlue1" :foreground "white")))) @@ -97,6 +101,6 @@ '(swiper-background-match-face-3 ((t (:background "orange")))) '(swiper-background-match-face-4 ((t (:background "magenta")))) '(org-headline-done ((t (:foreground "LightSteelBlue3" :height 1.6)))) - '(default ((t (:background "white" :foreground "dark slate blue" :height 142 :family "Hack"))))) + '(default ((t (:background "white" :foreground "black" :height 142 :family "Hack"))))) (provide-theme 'sd-light) -- cgit v1.2.3