1 (deftheme sd-compagnon-dark 2 "Created 2021-12-20.") 3 4 (custom-theme-set-variables 5 'sd-compagnon-dark 6 '(cursor-type 'box)) 7 8 (custom-theme-set-faces 9 'sd-compagnon-dark 10 '(cursor ((t (:background "green")))) 11 '(fixed-pitch ((t (:family "Compagnon Medium")))) 12 '(variable-pitch ((t (:family "Compagnon Roman")))) 13 '(escape-glyph ((t (:foreground "orange")))) 14 '(homoglyph ((t (:foreground "cyan")))) 15 '(minibuffer-prompt ((t (:inherit org-meta-line)))) 16 '(highlight ((t (:box (:line-width 2 :color "medium spring green") :background "sea green")))) 17 '(region ((t (:extend t :background "medium sea green")))) 18 '(shadow ((t (:foreground "light slate gray")))) 19 '(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)))) 20 '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t)))) 21 '(font-lock-builtin-face ((t (:foreground "cyan4")))) 22 '(font-lock-comment-delimiter-face ((t (:inherit fixed-pitch :foreground "slate gray")))) 23 '(font-lock-comment-face ((t (:family "Compagnon Bold")))) 24 '(font-lock-constant-face ((t (:foreground "cyan")))) 25 '(font-lock-doc-face ((t (:inherit variable-pitch)))) 26 '(font-lock-function-name-face ((t (:foreground "light green" :weight bold)))) 27 '(font-lock-keyword-face ((t (:foreground "green yellow")))) 28 '(font-lock-negation-char-face ((t nil))) 29 '(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face)))) 30 '(font-lock-regexp-grouping-backslash ((t (:foreground "orange")))) 31 '(font-lock-regexp-grouping-construct ((t (:foreground "dark orange")))) 32 '(font-lock-string-face ((t (:inherit variable-pitch)))) 33 '(font-lock-type-face ((t (:foreground "orchid2")))) 34 '(font-lock-variable-name-face ((t (:weight bold)))) 35 '(font-lock-warning-face ((t (:inherit (error))))) 36 '(button ((t (:box (:line-width 2 :color "slate gray" :style released-button) :foundry "Compagnon Light")))) 37 '(link ((t (:foreground "green yellow" :family "Compagnon Light Italic")))) 38 '(link-visited ((t (:inherit link :foreground "yellow green")))) 39 '(fringe ((t (:background "gainsboro")))) 40 '(header-line ((t (:inherit org-meta-line :weight bold :height 1.8)))) 41 '(tooltip ((t (:background "white smoke" :foreground "sea green" :family "Compagnon Medium")))) 42 '(mode-line ((t (:box (:line-width 2 :style released-button) :inherit org-meta-line)))) 43 '(mode-line-buffer-id ((t (:weight bold)))) 44 '(mode-line-emphasis ((t (:weight bold)))) 45 '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button))))) 46 '(mode-line-inactive ((t (:box (:line-width -1 :color "dark gray") :inherit org-meta-line)))) 47 '(isearch ((t (:foreground "white" :background "DodgerBlue1")))) 48 '(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)))) 49 '(lazy-highlight ((t (:foreground "burlywood" :box 2)))) 50 '(match ((t (:background "yellow1")))) 51 '(next-error ((t (:inherit (region))))) 52 '(query-replace ((t (:inherit (isearch))))) 53 '(org-meta-line ((t (:foreground "medium spring green" :family "Compagnon Light")))) 54 '(org-table ((t (:inherit default)))) 55 '(org-block ((t (:inherit fixed-pitch :extend t)))) 56 '(org-code ((t (:inherit fixed-pitch)))) 57 '(custom-variable-tag ((t (:weight bold)))) 58 '(org-block-begin-line ((t (:inherit org-meta-line)))) 59 '(org-block-end-line ((t (:inherit org-block-begin-line)))) 60 '(outline-1 ((t (:family "Compagnon Medium")))) 61 '(outline-2 ((t (:inherit outline-1)))) 62 '(outline-3 ((t (:inherit outline-1)))) 63 '(outline-4 ((t (:inherit outline-1)))) 64 '(outline-5 ((t (:inherit outline-1)))) 65 '(outline-6 ((t (:inherit outline-1)))) 66 '(outline-7 ((t (:inherit outline-1)))) 67 '(outline-8 ((t (:inherit outline-1)))) 68 '(org-special-keyword ((t (:inherit org-meta-line :background "gray15")))) 69 '(line-number ((t (:foreground "white" :inherit org-meta-line)))) 70 '(org-todo ((t (:inherit fixed-pitch :background "tomato" :foreground "white" :weight bold)))) 71 '(org-done ((t (:inherit fixed-pitch :background "medium aquamarine" :foreground "white" :weight bold)))) 72 '(org-date ((t (:inherit link)))) 73 '(bold ((t (:weight bold)))) 74 '(italic ((t (:slant italic)))) 75 '(bold-italic ((t (:slant italic :weight bold)))) 76 '(org-headline-done ((t (:inherit outline-1 :foreground "aquamarine4")))) 77 '(org-footnote ((t (:family "Compagnon Light")))) 78 '(custom-link ((t (:box (:line-width 2 :color "medium spring green" :style released-button))))) 79 '(show-paren-match ((t (:background "aquamarine")))) 80 '(show-paren-mismatch ((t (:background "orange red" :foreground "white")))) 81 '(org-drawer ((t (:inherit org-block-begin-line)))) 82 '(org-agenda-structure ((t (:foreground "Green Yellow")))) 83 '(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 :family "Compagnon Medium"))))) 84 85 (provide-theme 'sd-compagnon-dark) 86