From 80fb1a5ebeb7c80ad8095f9c4440ce9311f529fb Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Fri, 23 Oct 2015 19:05:02 +0200 Subject: Remove redundant faces Emacs automatically gets those right by checking background. --- eighters-theme.el | 27 +++------------------------ 1 file changed, 3 insertions(+), 24 deletions(-) diff --git a/eighters-theme.el b/eighters-theme.el index ebff4fc..f42a1e1 100644 --- a/eighters-theme.el +++ b/eighters-theme.el @@ -3,48 +3,26 @@ (custom-theme-set-faces 'eighters - '(cursor ((((background light)) (:background "black")) (((background dark)) (:background "white")))) - '(fixed-pitch ((t (:family "Monospace")))) - '(variable-pitch ((t (:family "Sans Serif")))) '(escape-glyph ((t (:foreground "red1")))) '(minibuffer-prompt ((t (:foreground "steelblue1" :weight bold)))) '(highlight ((t (:background "gray25")))) '(region ((t (:background "blue" :foreground "white")))) - '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow")))) - '(secondary-selection ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:background "yellow")) (((class color) (min-colors 16) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 8)) (: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 "steelblue1" :weight bold)))) - '(font-lock-comment-delimiter-face ((default (:inherit (font-lock-comment-face))))) '(font-lock-comment-face ((t (:foreground "red1" :slant italic)))) '(font-lock-constant-face ((t (:foreground "magenta")))) '(font-lock-doc-face ((t (:inherit (font-lock-string-face))))) '(font-lock-function-name-face ((t (:foreground "steelblue1" :weight bold)))) '(font-lock-keyword-face ((t (:foreground "cyan" :weight bold)))) - '(font-lock-negation-char-face ((t nil))) '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face))))) - '(font-lock-regexp-grouping-backslash ((t (:inherit (bold))))) - '(font-lock-regexp-grouping-construct ((t (:inherit (bold))))) '(font-lock-string-face ((t (:foreground "lime green" :slant italic)))) '(font-lock-type-face ((t (:foreground "green3" :slant italic)))) '(font-lock-variable-name-face ((t (:foreground "gold")))) - '(font-lock-warning-face ((t (:inherit (error))))) - '(button ((t (:inherit (link))))) '(link ((((class color) (min-colors 88) (background light)) (:underline (:color foreground-color :style line) :foreground "RoyalBlue3")) (((class color) (background light)) (:underline (:color foreground-color :style line) :foreground "blue")) (((class color) (min-colors 88) (background dark)) (:underline (:color foreground-color :style line) :foreground "cyan1")) (((class color) (background dark)) (:underline (:color foreground-color :style line) :foreground "cyan")) (t (:inherit (underline))))) '(link-visited ((default (:inherit (link))) (((class color) (background light)) (:foreground "magenta4")) (((class color) (background dark)) (:foreground "violet")))) - '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray")))) - '(header-line ((default (:inherit (mode-line))) (((type tty)) (:underline (:color foreground-color :style line) :inverse-video nil)) (((class color grayscale) (background light)) (:box nil :foreground "grey20" :background "grey90")) (((class color grayscale) (background dark)) (:box nil :foreground "grey90" :background "grey20")) (((class mono) (background light)) (:underline (:color foreground-color :style line) :box nil :inverse-video nil :foreground "black" :background "white")) (((class mono) (background dark)) (:underline (:color foreground-color :style line) :box nil :inverse-video nil :foreground "white" :background "black")))) - '(tooltip ((((class color)) (:inherit (variable-pitch) :foreground "black" :background "lightyellow")) (t (:inherit (variable-pitch))))) - '(mode-line ((((class color) (min-colors 88)) (:foreground "black" :background "grey75" :box (:line-width -1 :color nil :style released-button))) (t (:inverse-video t)))) - '(mode-line-buffer-id ((t (:weight bold)))) - '(mode-line-emphasis ((t (:weight bold)))) - '(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight))))) - '(mode-line-inactive ((default (:inherit (mode-line))) (((class color) (min-colors 88) (background light)) (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey75" :style nil) :weight light)) (((class color) (min-colors 88) (background dark)) (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light)))) - '(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t)))) '(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 ((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) (((class color) (min-colors 16)) (:background "turquoise3")) (((class color) (min-colors 8)) (:background "turquoise3")) (t (:underline (:color foreground-color :style line))))) '(match ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray")))) - '(next-error ((t (:inherit (region))))) - '(query-replace ((t (:inherit (isearch))))) + '(compilation-mode-line-exit((t (:foreground "green3" :inherit (compilation-info))))) '(error ((t (:foreground "red1" :weight bold)))) '(ediff-even-diff-A ((t (:background "gray25")))) '(ediff-odd-diff-A ((t (:background "gray25")))) @@ -63,10 +41,11 @@ '(ediff-fine-diff-Ancestor ((t (:background "#681048")))) '(diff-added ((t (:inherit diff-changed :foreground "steel blue")))) '(diff-refine-added ((t (:inherit diff-refine-changed :foreground "dodger blue")))) - '(diff-refine-changed ((t (:weight bold)))) '(diff-removed ((t (:foreground "orange3" :inherit diff-changed)))) '(diff-refine-removed ((t (:foreground "orange" :inherit diff-refine-changed)))) '(diff-changed ((t (:background "gray25")))) + '(diff-refine-changed ((t (:weight bold)))) + '(term-color-blue ((t (:foreground "steelblue1" :background "steelblue1")))) '(default ((t (:inherit nil :stipple nil :background "gray22" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 100 :width normal :foundry "default" :family "DejaVu Sans Mono"))))) (provide-theme 'eighters) -- cgit v1.2.3