Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Set faces more concisely

  • Loading branch information...
commit 37738342c53eaa0fba5555ec396bcabf85b0f038 1 parent e491636
@purcell authored
Showing with 523 additions and 520 deletions.
  1. +523 −520 color-theme-sanityinc-tomorrow.el
View
1,043 color-theme-sanityinc-tomorrow.el
@@ -140,529 +140,532 @@
It expects to be evaluated in a scope in which the various color
names to which it refers are bound."
(quote
- `(;; Standard font lock faces
- (default ((,class (:foreground ,foreground :background ,background))))
- (bold ((,class (:weight bold))))
- (bold-italic ((,class (:slant italic :weight bold))))
- (underline ((,class (:underline t))))
- (italic ((,class (:slant italic))))
- (font-lock-builtin-face ((,class (:foreground ,purple))))
- (font-lock-comment-delimiter-face ((,class (:foreground ,comment :slant italic))))
- (font-lock-comment-face ((,class (:foreground ,comment :slant italic))))
- (font-lock-constant-face ((,class (:foreground ,blue))))
- (font-lock-doc-face ((,class (:foreground ,purple))))
- (font-lock-doc-string-face ((,class (:foreground ,yellow))))
- (font-lock-function-name-face ((,class (:foreground ,orange))))
- (font-lock-keyword-face ((,class (:foreground ,green))))
- (font-lock-negation-char-face ((,class (:foreground ,blue))))
- (font-lock-preprocessor-face ((,class (:foreground ,purple))))
- (font-lock-regexp-grouping-backslash ((,class (:foreground ,yellow))))
- (font-lock-regexp-grouping-construct ((,class (:foreground ,purple))))
- (font-lock-string-face ((,class (:foreground ,aqua))))
- (font-lock-type-face ((,class (:foreground ,blue))))
- (font-lock-variable-name-face ((,class (:foreground ,yellow))))
- (font-lock-warning-face ((,class (:weight bold :foreground ,red))))
- (shadow ((,class (:foreground ,comment))))
- (success ((,class (:foreground ,green))))
- (error ((,class (:foreground ,red))))
- (warning ((,class (:foreground ,orange))))
-
- ;; Flycheck
- (flycheck-error ((,class (:underline (:style wave :color ,red)))))
- (flycheck-warning ((,class (:underline (:style wave :color ,orange)))))
-
- ;; Flymake
- (flymake-warnline ((,class (:underline (:style wave :color ,orange) :background ,background))))
- (flymake-errline ((,class (:underline (:style wave :color ,red) :background ,background))))
-
- ;; Clojure errors
- (clojure-test-failure-face ((,class (:background nil :inherit flymake-warnline))))
- (clojure-test-error-face ((,class (:background nil :inherit flymake-errline))))
- (clojure-test-success-face ((,class (:background nil :foreground nil :underline ,green))))
-
- ;; EDTS errors
- (edts-face-warning-line ((t (:background nil :inherit flymake-warnline))))
- (edts-face-warning-mode-line ((,class (:background nil :foreground ,orange :weight bold))))
- (edts-face-error-line ((t (:background nil :inherit flymake-errline))))
- (edts-face-error-mode-line ((,class (:background nil :foreground ,red :weight bold))))
-
- ;; For Brian Carper's extended clojure syntax table
- (clojure-keyword ((,class (:foreground ,yellow))))
- (clojure-parens ((,class (:foreground ,foreground))))
- (clojure-braces ((,class (:foreground ,green))))
- (clojure-brackets ((,class (:foreground ,yellow))))
- (clojure-double-quote ((,class (:foreground ,aqua :background nil))))
- (clojure-special ((,class (:foreground ,blue))))
- (clojure-java-call ((,class (:foreground ,purple))))
-
- ;; Rainbow-delimiters
- (rainbow-delimiters-depth-1-face ((,class (:foreground ,foreground))))
- (rainbow-delimiters-depth-2-face ((,class (:foreground ,aqua))))
- (rainbow-delimiters-depth-3-face ((,class (:foreground ,yellow))))
- (rainbow-delimiters-depth-4-face ((,class (:foreground ,green))))
- (rainbow-delimiters-depth-5-face ((,class (:foreground ,blue))))
- (rainbow-delimiters-depth-6-face ((,class (:foreground ,foreground))))
- (rainbow-delimiters-depth-7-face ((,class (:foreground ,aqua))))
- (rainbow-delimiters-depth-8-face ((,class (:foreground ,yellow))))
- (rainbow-delimiters-depth-9-face ((,class (:foreground ,green))))
- (rainbow-delimiters-unmatched-face ((,class (:foreground ,red))))
-
- ;; MMM-mode
- (mmm-code-submode-face ((,class (:background ,current-line))))
- (mmm-comment-submode-face ((,class (:inherit font-lock-comment-face))))
- (mmm-output-submode-face ((,class (:background ,current-line))))
-
- ;; Search
- (match ((,class (:foreground ,blue :background ,background :inverse-video t))))
- (isearch ((,class (:foreground ,yellow :background ,background :inverse-video t))))
- (isearch-lazy-highlight-face ((,class (:foreground ,aqua :background ,background :inverse-video t))))
- (isearch-fail ((,class (:background ,background :inherit font-lock-warning-face :inverse-video t))))
-
- ;; Anzu
- (anzu-mode-line ((,class (:foreground ,orange))))
- (anzu-replace-highlight ((,class (:inherit isearch-lazy-highlight-face))))
- (anzu-replace-to ((,class (:inherit isearch))))
-
- ;; IDO
- (ido-subdir ((,class (:foreground ,purple))))
- (ido-first-match ((,class (:foreground ,orange))))
- (ido-only-match ((,class (:foreground ,green))))
- (ido-indicator ((,class (:foreground ,red :background ,background))))
- (ido-virtual ((,class (:foreground ,comment))))
-
- ;; flx-ido
- (flx-highlight-face ((,class (:inherit nil :foreground ,yellow :weight bold :underline nil))))
-
- ;; which-function
- (which-func ((,class (:foreground ,blue :background nil :weight bold))))
-
- ;; Emacs interface
- (cursor ((,class (:background ,orange))))
- (fringe ((,class (:background ,current-line))))
- (linum ((,class (:background ,current-line :foreground ,green))))
- (border ((,class (:background ,current-line))))
- (border-glyph ((,class (nil))))
- (highlight ((,class (:inverse-video nil :background ,current-line))))
- (gui-element ((,class (:background ,current-line :foreground ,foreground))))
- (mode-line ((,class (:foreground nil :background ,current-line :weight normal
- :box (:line-width 1 :color ,foreground)))))
- (mode-line-buffer-id ((,class (:foreground ,purple :background nil))))
- (mode-line-inactive ((,class (:inherit mode-line
- :foreground ,comment
- :background ,current-line :weight normal
- :box (:line-width 1 :color ,foreground)))))
- (mode-line-emphasis ((,class (:foreground ,foreground :slant italic))))
- (mode-line-highlight ((,class (:foreground ,purple :box nil :weight bold))))
- (minibuffer-prompt ((,class (:foreground ,blue))))
- (region ((,class (:background ,selection))))
- (secondary-selection ((,class (:background ,current-line))))
-
- (header-line ((,class (:inherit mode-line :foreground ,purple :background nil))))
-
- (trailing-whitespace ((,class (:background ,red :foreground ,yellow))))
- (whitespace-empty ((,class (:foreground ,red :background ,yellow))))
- (whitespace-hspace ((,class (:background ,current-line :foreground ,comment))))
- (whitespace-indentation ((,class (:background ,current-line :foreground ,comment))))
- (whitespace-line ((,class (:background ,current-line :foreground ,red))))
- (whitespace-newline ((,class (:background ,current-line :foreground ,comment))))
- (whitespace-space ((,class (:background ,current-line :foreground ,comment))))
- (whitespace-space-after-tab ((,class (:background ,current-line :foreground ,yellow))))
- (whitespace-space-before-tab ((,class (:background ,current-line :foreground ,red))))
- (whitespace-tab ((,class (:background ,current-line :foreground ,comment))))
- (whitespace-trailing ((,class (:background ,current-line :foreground ,red))))
-
- ;; Parenthesis matching (built-in)
- (show-paren-match ((,class (:background nil :foreground nil :inverse-video t))))
- (show-paren-mismatch ((,class (:background ,purple :foreground ,background))))
-
- ;; Smartparens paren matching
- (sp-show-pair-match-face ((,class (:foreground nil :background nil :inherit show-paren-match))))
- (sp-show-pair-mismatch-face ((,class (:foreground nil :background nil :inherit show-paren-mismatch))))
-
- ;; Parenthesis matching (mic-paren)
- (paren-face-match ((,class (:foreground nil :background nil :inherit show-paren-match))))
- (paren-face-mismatch ((,class (:foreground nil :background nil :inherit show-paren-mismatch))))
- (paren-face-no-match ((,class (:foreground nil :background nil :inherit show-paren-mismatch))))
-
- ;; Parenthesis dimming (parenface)
- (paren-face ((,class (:foreground ,comment :background nil))))
-
- (sh-heredoc ((,class (:foreground nil :inherit font-lock-string-face :weight normal))))
- (sh-quoted-exec ((,class (:foreground nil :inherit font-lock-preprocessor-face))))
- (slime-highlight-edits-face ((,class (:weight bold))))
- (slime-repl-input-face ((,class (:weight normal :underline nil))))
- (slime-repl-prompt-face ((,class (:underline nil :weight bold :foreground ,purple))))
- (slime-repl-result-face ((,class (:foreground ,green))))
- (slime-repl-output-face ((,class (:foreground ,blue :background ,background))))
-
- (csv-separator-face ((,class (:foreground ,orange))))
-
- (diff-added ((,class (:foreground ,green))))
- (diff-changed ((,class (:foreground ,purple))))
- (diff-removed ((,class (:foreground ,orange))))
- (diff-header ((,class (:foreground ,aqua :background nil))))
- (diff-file-header ((,class (:foreground ,blue :background nil))))
- (diff-hunk-header ((,class (:foreground ,purple))))
- (diff-refine-added ((,class (:inherit diff-added :inverse-video t))))
- (diff-refine-removed ((,class (:inherit diff-removed :inverse-video t))))
-
- (ediff-even-diff-A ((,class (:foreground nil :background nil :inverse-video t))))
- (ediff-even-diff-B ((,class (:foreground nil :background nil :inverse-video t))))
- (ediff-odd-diff-A ((,class (:foreground ,comment :background nil :inverse-video t))))
- (ediff-odd-diff-B ((,class (:foreground ,comment :background nil :inverse-video t))))
-
- (eldoc-highlight-function-argument ((,class (:foreground ,green :weight bold))))
-
- ;; macrostep
- (macrostep-expansion-highlight-face ((,class (:inherit highlight :foreground nil))))
-
- ;; undo-tree
- (undo-tree-visualizer-default-face ((,class (:foreground ,foreground))))
- (undo-tree-visualizer-current-face ((,class (:foreground ,green :weight bold))))
- (undo-tree-visualizer-active-branch-face ((,class (:foreground ,red))))
- (undo-tree-visualizer-register-face ((,class (:foreground ,yellow))))
-
- ;; dired+
- (diredp-compressed-file-suffix ((,class (:foreground ,blue))))
- (diredp-deletion ((,class (:inherit error :inverse-video t))))
- (diredp-deletion-file-name ((,class (:inherit error))))
- (diredp-dir-heading ((,class (:foreground ,green :weight bold))))
- (diredp-dir-priv ((,class (:foreground ,aqua :background nil))))
- (diredp-exec-priv ((,class (:foreground ,blue :background nil))))
- (diredp-executable-tag ((,class (:foreground ,red :background nil))))
- (diredp-file-name ((,class (:foreground ,yellow))))
- (diredp-file-suffix ((,class (:foreground ,green))))
- (diredp-flag-mark ((,class (:foreground ,green :inverse-video t))))
- (diredp-flag-mark-line ((,class (:background nil :inherit highlight))))
- (diredp-ignored-file-name ((,class (:foreground ,comment))))
- (diredp-link-priv ((,class (:background nil :foreground ,purple))))
- (diredp-mode-line-flagged ((,class (:foreground ,red))))
- (diredp-mode-line-marked ((,class (:foreground ,green))))
- (diredp-no-priv ((,class (:background nil))))
- (diredp-number ((,class (:foreground ,yellow))))
- (diredp-other-priv ((,class (:background nil :foreground ,purple))))
- (diredp-rare-priv ((,class (:foreground ,red :background nil))))
- (diredp-read-priv ((,class (:foreground ,green :background nil))))
- (diredp-symlink ((,class (:foreground ,purple))))
- (diredp-write-priv ((,class (:foreground ,yellow :background nil))))
-
- ;; Magit (a patch is pending in magit to make these standard upstream)
- (magit-branch ((,class (:foreground ,green))))
- (magit-header ((,class (:inherit nil :weight bold))))
- (magit-item-highlight ((,class (:inherit highlight :background nil))))
- (magit-log-author ((,class (:foreground ,aqua))))
- (magit-log-graph ((,class (:foreground ,comment))))
- (magit-log-sha1 ((,class (:foreground ,yellow))))
- (magit-log-head-label-bisect-bad ((,class (:foreground ,red))))
- (magit-log-head-label-bisect-good ((,class (:foreground ,green))))
- (magit-log-head-label-default ((,class (:foreground ,yellow :box nil :weight bold))))
- (magit-log-head-label-head ((,class (:foreground ,orange :box nil :weight bold))))
- (magit-log-head-label-local ((,class (:foreground ,purple :box nil :weight bold))))
- (magit-log-head-label-remote ((,class (:foreground ,purple :box nil :weight bold))))
- (magit-log-head-label-tags ((,class (:foreground ,aqua :box nil :weight bold))))
- (magit-log-head-label-wip ((,class (:foreground ,blue :box nil :weight bold))))
- (magit-process-ok ((,class (:inherit success))))
- (magit-process-ng ((,class (:inherit error))))
- (magit-section-title ((,class (:foreground ,blue :weight bold))))
-
- ;; git-gutter
- (git-gutter:modified ((,class (:foreground ,purple :weight bold))))
- (git-gutter:added ((,class (:foreground ,green :weight bold))))
- (git-gutter:deleted ((,class (:foreground ,red :weight bold))))
- (git-gutter:unchanged ((,class (:background ,yellow))))
-
- ;; git-gutter-fringe
- (git-gutter-fr:modified ((,class (:foreground ,purple :weight bold))))
- (git-gutter-fr:added ((,class (:foreground ,green :weight bold))))
- (git-gutter-fr:deleted ((,class (:foreground ,red :weight bold))))
-
- (link ((,class (:foreground nil :underline t))))
- (widget-button ((,class (:underline t))))
- (widget-field ((,class (:background ,current-line :box (:line-width 1 :color ,foreground)))))
-
- ;; Compilation (most faces politely inherit from 'success, 'error, 'warning etc.)
- (compilation-column-number ((,class (:foreground ,yellow))))
- (compilation-line-number ((,class (:foreground ,yellow))))
- (compilation-message-face ((,class (:foreground ,blue))))
- (compilation-mode-line-exit ((,class (:foreground ,green))))
- (compilation-mode-line-fail ((,class (:foreground ,red))))
- (compilation-mode-line-run ((,class (:foreground ,blue))))
-
- ;; Grep
- (grep-context-face ((,class (:foreground ,comment))))
- (grep-error-face ((,class (:foreground ,red :weight bold :underline t))))
- (grep-hit-face ((,class (:foreground ,blue))))
- (grep-match-face ((,class (:foreground nil :background nil :inherit match))))
+ (mapcar
+ (lambda (entry)
+ (list (car entry) `((,class ,@(cdr entry)))))
+ `(;; Standard font lock faces
+ (default (:foreground ,foreground :background ,background))
+ (bold (:weight bold))
+ (bold-italic (:slant italic :weight bold))
+ (underline (:underline t))
+ (italic (:slant italic))
+ (font-lock-builtin-face (:foreground ,purple))
+ (font-lock-comment-delimiter-face (:foreground ,comment :slant italic))
+ (font-lock-comment-face (:foreground ,comment :slant italic))
+ (font-lock-constant-face (:foreground ,blue))
+ (font-lock-doc-face (:foreground ,purple))
+ (font-lock-doc-string-face (:foreground ,yellow))
+ (font-lock-function-name-face (:foreground ,orange))
+ (font-lock-keyword-face (:foreground ,green))
+ (font-lock-negation-char-face (:foreground ,blue))
+ (font-lock-preprocessor-face (:foreground ,purple))
+ (font-lock-regexp-grouping-backslash (:foreground ,yellow))
+ (font-lock-regexp-grouping-construct (:foreground ,purple))
+ (font-lock-string-face (:foreground ,aqua))
+ (font-lock-type-face (:foreground ,blue))
+ (font-lock-variable-name-face (:foreground ,yellow))
+ (font-lock-warning-face (:weight bold :foreground ,red))
+ (shadow (:foreground ,comment))
+ (success (:foreground ,green))
+ (error (:foreground ,red))
+ (warning (:foreground ,orange))
+
+ ;; Flycheck
+ (flycheck-error (:underline (:style wave :color ,red)))
+ (flycheck-warning (:underline (:style wave :color ,orange)))
+
+ ;; Flymake
+ (flymake-warnline (:underline (:style wave :color ,orange) :background ,background))
+ (flymake-errline (:underline (:style wave :color ,red) :background ,background))
+
+ ;; Clojure errors
+ (clojure-test-failure-face (:background nil :inherit flymake-warnline))
+ (clojure-test-error-face (:background nil :inherit flymake-errline))
+ (clojure-test-success-face (:background nil :foreground nil :underline ,green))
+
+ ;; EDTS errors
+ (edts-face-warning-line ((t (:background nil :inherit flymake-warnline))))
+ (edts-face-warning-mode-line (:background nil :foreground ,orange :weight bold))
+ (edts-face-error-line ((t (:background nil :inherit flymake-errline))))
+ (edts-face-error-mode-line (:background nil :foreground ,red :weight bold))
+
+ ;; For Brian Carper's extended clojure syntax table
+ (clojure-keyword (:foreground ,yellow))
+ (clojure-parens (:foreground ,foreground))
+ (clojure-braces (:foreground ,green))
+ (clojure-brackets (:foreground ,yellow))
+ (clojure-double-quote (:foreground ,aqua :background nil))
+ (clojure-special (:foreground ,blue))
+ (clojure-java-call (:foreground ,purple))
+
+ ;; Rainbow-delimiters
+ (rainbow-delimiters-depth-1-face (:foreground ,foreground))
+ (rainbow-delimiters-depth-2-face (:foreground ,aqua))
+ (rainbow-delimiters-depth-3-face (:foreground ,yellow))
+ (rainbow-delimiters-depth-4-face (:foreground ,green))
+ (rainbow-delimiters-depth-5-face (:foreground ,blue))
+ (rainbow-delimiters-depth-6-face (:foreground ,foreground))
+ (rainbow-delimiters-depth-7-face (:foreground ,aqua))
+ (rainbow-delimiters-depth-8-face (:foreground ,yellow))
+ (rainbow-delimiters-depth-9-face (:foreground ,green))
+ (rainbow-delimiters-unmatched-face (:foreground ,red))
+
+ ;; MMM-mode
+ (mmm-code-submode-face (:background ,current-line))
+ (mmm-comment-submode-face (:inherit font-lock-comment-face))
+ (mmm-output-submode-face (:background ,current-line))
+
+ ;; Search
+ (match (:foreground ,blue :background ,background :inverse-video t))
+ (isearch (:foreground ,yellow :background ,background :inverse-video t))
+ (isearch-lazy-highlight-face (:foreground ,aqua :background ,background :inverse-video t))
+ (isearch-fail (:background ,background :inherit font-lock-warning-face :inverse-video t))
+
+ ;; Anzu
+ (anzu-mode-line (:foreground ,orange))
+ (anzu-replace-highlight (:inherit isearch-lazy-highlight-face))
+ (anzu-replace-to (:inherit isearch))
+
+ ;; IDO
+ (ido-subdir (:foreground ,purple))
+ (ido-first-match (:foreground ,orange))
+ (ido-only-match (:foreground ,green))
+ (ido-indicator (:foreground ,red :background ,background))
+ (ido-virtual (:foreground ,comment))
+
+ ;; flx-ido
+ (flx-highlight-face (:inherit nil :foreground ,yellow :weight bold :underline nil))
+
+ ;; which-function
+ (which-func (:foreground ,blue :background nil :weight bold))
+
+ ;; Emacs interface
+ (cursor (:background ,orange))
+ (fringe (:background ,current-line))
+ (linum (:background ,current-line :foreground ,green))
+ (border (:background ,current-line))
+ (border-glyph (nil))
+ (highlight (:inverse-video nil :background ,current-line))
+ (gui-element (:background ,current-line :foreground ,foreground))
+ (mode-line (:foreground nil :background ,current-line :weight normal
+ :box (:line-width 1 :color ,foreground)))
+ (mode-line-buffer-id (:foreground ,purple :background nil))
+ (mode-line-inactive (:inherit mode-line
+ :foreground ,comment
+ :background ,current-line :weight normal
+ :box (:line-width 1 :color ,foreground)))
+ (mode-line-emphasis (:foreground ,foreground :slant italic))
+ (mode-line-highlight (:foreground ,purple :box nil :weight bold))
+ (minibuffer-prompt (:foreground ,blue))
+ (region (:background ,selection))
+ (secondary-selection (:background ,current-line))
+
+ (header-line (:inherit mode-line :foreground ,purple :background nil))
+
+ (trailing-whitespace (:background ,red :foreground ,yellow))
+ (whitespace-empty (:foreground ,red :background ,yellow))
+ (whitespace-hspace (:background ,current-line :foreground ,comment))
+ (whitespace-indentation (:background ,current-line :foreground ,comment))
+ (whitespace-line (:background ,current-line :foreground ,red))
+ (whitespace-newline (:background ,current-line :foreground ,comment))
+ (whitespace-space (:background ,current-line :foreground ,comment))
+ (whitespace-space-after-tab (:background ,current-line :foreground ,yellow))
+ (whitespace-space-before-tab (:background ,current-line :foreground ,red))
+ (whitespace-tab (:background ,current-line :foreground ,comment))
+ (whitespace-trailing (:background ,current-line :foreground ,red))
+
+ ;; Parenthesis matching (built-in)
+ (show-paren-match (:background nil :foreground nil :inverse-video t))
+ (show-paren-mismatch (:background ,purple :foreground ,background))
+
+ ;; Smartparens paren matching
+ (sp-show-pair-match-face (:foreground nil :background nil :inherit show-paren-match))
+ (sp-show-pair-mismatch-face (:foreground nil :background nil :inherit show-paren-mismatch))
+
+ ;; Parenthesis matching (mic-paren)
+ (paren-face-match (:foreground nil :background nil :inherit show-paren-match))
+ (paren-face-mismatch (:foreground nil :background nil :inherit show-paren-mismatch))
+ (paren-face-no-match (:foreground nil :background nil :inherit show-paren-mismatch))
+
+ ;; Parenthesis dimming (parenface)
+ (paren-face (:foreground ,comment :background nil))
+
+ (sh-heredoc (:foreground nil :inherit font-lock-string-face :weight normal))
+ (sh-quoted-exec (:foreground nil :inherit font-lock-preprocessor-face))
+ (slime-highlight-edits-face (:weight bold))
+ (slime-repl-input-face (:weight normal :underline nil))
+ (slime-repl-prompt-face (:underline nil :weight bold :foreground ,purple))
+ (slime-repl-result-face (:foreground ,green))
+ (slime-repl-output-face (:foreground ,blue :background ,background))
+
+ (csv-separator-face (:foreground ,orange))
+
+ (diff-added (:foreground ,green))
+ (diff-changed (:foreground ,purple))
+ (diff-removed (:foreground ,orange))
+ (diff-header (:foreground ,aqua :background nil))
+ (diff-file-header (:foreground ,blue :background nil))
+ (diff-hunk-header (:foreground ,purple))
+ (diff-refine-added (:inherit diff-added :inverse-video t))
+ (diff-refine-removed (:inherit diff-removed :inverse-video t))
+
+ (ediff-even-diff-A (:foreground nil :background nil :inverse-video t))
+ (ediff-even-diff-B (:foreground nil :background nil :inverse-video t))
+ (ediff-odd-diff-A (:foreground ,comment :background nil :inverse-video t))
+ (ediff-odd-diff-B (:foreground ,comment :background nil :inverse-video t))
+
+ (eldoc-highlight-function-argument (:foreground ,green :weight bold))
+
+ ;; macrostep
+ (macrostep-expansion-highlight-face (:inherit highlight :foreground nil))
+
+ ;; undo-tree
+ (undo-tree-visualizer-default-face (:foreground ,foreground))
+ (undo-tree-visualizer-current-face (:foreground ,green :weight bold))
+ (undo-tree-visualizer-active-branch-face (:foreground ,red))
+ (undo-tree-visualizer-register-face (:foreground ,yellow))
+
+ ;; dired+
+ (diredp-compressed-file-suffix (:foreground ,blue))
+ (diredp-deletion (:inherit error :inverse-video t))
+ (diredp-deletion-file-name (:inherit error))
+ (diredp-dir-heading (:foreground ,green :weight bold))
+ (diredp-dir-priv (:foreground ,aqua :background nil))
+ (diredp-exec-priv (:foreground ,blue :background nil))
+ (diredp-executable-tag (:foreground ,red :background nil))
+ (diredp-file-name (:foreground ,yellow))
+ (diredp-file-suffix (:foreground ,green))
+ (diredp-flag-mark (:foreground ,green :inverse-video t))
+ (diredp-flag-mark-line (:background nil :inherit highlight))
+ (diredp-ignored-file-name (:foreground ,comment))
+ (diredp-link-priv (:background nil :foreground ,purple))
+ (diredp-mode-line-flagged (:foreground ,red))
+ (diredp-mode-line-marked (:foreground ,green))
+ (diredp-no-priv (:background nil))
+ (diredp-number (:foreground ,yellow))
+ (diredp-other-priv (:background nil :foreground ,purple))
+ (diredp-rare-priv (:foreground ,red :background nil))
+ (diredp-read-priv (:foreground ,green :background nil))
+ (diredp-symlink (:foreground ,purple))
+ (diredp-write-priv (:foreground ,yellow :background nil))
+
+ ;; Magit (a patch is pending in magit to make these standard upstream)
+ (magit-branch (:foreground ,green))
+ (magit-header (:inherit nil :weight bold))
+ (magit-item-highlight (:inherit highlight :background nil))
+ (magit-log-author (:foreground ,aqua))
+ (magit-log-graph (:foreground ,comment))
+ (magit-log-sha1 (:foreground ,yellow))
+ (magit-log-head-label-bisect-bad (:foreground ,red))
+ (magit-log-head-label-bisect-good (:foreground ,green))
+ (magit-log-head-label-default (:foreground ,yellow :box nil :weight bold))
+ (magit-log-head-label-head (:foreground ,orange :box nil :weight bold))
+ (magit-log-head-label-local (:foreground ,purple :box nil :weight bold))
+ (magit-log-head-label-remote (:foreground ,purple :box nil :weight bold))
+ (magit-log-head-label-tags (:foreground ,aqua :box nil :weight bold))
+ (magit-log-head-label-wip (:foreground ,blue :box nil :weight bold))
+ (magit-process-ok (:inherit success))
+ (magit-process-ng (:inherit error))
+ (magit-section-title (:foreground ,blue :weight bold))
+
+ ;; git-gutter
+ (git-gutter:modified (:foreground ,purple :weight bold))
+ (git-gutter:added (:foreground ,green :weight bold))
+ (git-gutter:deleted (:foreground ,red :weight bold))
+ (git-gutter:unchanged (:background ,yellow))
+
+ ;; git-gutter-fringe
+ (git-gutter-fr:modified (:foreground ,purple :weight bold))
+ (git-gutter-fr:added (:foreground ,green :weight bold))
+ (git-gutter-fr:deleted (:foreground ,red :weight bold))
+
+ (link (:foreground nil :underline t))
+ (widget-button (:underline t))
+ (widget-field (:background ,current-line :box (:line-width 1 :color ,foreground)))
+
+ ;; Compilation (most faces politely inherit from 'success, 'error, 'warning etc.)
+ (compilation-column-number (:foreground ,yellow))
+ (compilation-line-number (:foreground ,yellow))
+ (compilation-message-face (:foreground ,blue))
+ (compilation-mode-line-exit (:foreground ,green))
+ (compilation-mode-line-fail (:foreground ,red))
+ (compilation-mode-line-run (:foreground ,blue))
+
+ ;; Grep
+ (grep-context-face (:foreground ,comment))
+ (grep-error-face (:foreground ,red :weight bold :underline t))
+ (grep-hit-face (:foreground ,blue))
+ (grep-match-face (:foreground nil :background nil :inherit match))
;;; TODO: wgrep faces
- (regex-tool-matched-face ((,class (:foreground nil :background nil :inherit match))))
-
- ;; mark-multiple
- (mm/master-face ((,class (:inherit region :foreground nil :background nil))))
- (mm/mirror-face ((,class (:inherit region :foreground nil :background nil))))
-
- ;; helm
- (helm-buffer-saved-out ((,class (:inherit warning))))
- (helm-buffer-size ((,class (:foreground ,yellow))))
- (helm-buffer-not-saved ((,class (:foreground ,orange))))
- (helm-buffer-process ((,class (:foreground ,aqua))))
- (helm-ff-directory ((,class (:foreground ,aqua))))
- (helm-candidate-number ((,class (:foreground ,red))))
- (helm-selection ((,class (:inherit highlight))))
- (helm-separator ((,class (:foreground ,purple))))
- (helm-source-header ((,class (:inherit org-document-title))))
-
- (org-agenda-structure ((,class (:foreground ,purple))))
- (org-agenda-date ((,class (:foreground ,blue :underline nil))))
- (org-agenda-done ((,class (:foreground ,green))))
- (org-agenda-dimmed-todo-face ((,class (:foreground ,comment))))
- (org-block ((,class (:foreground ,orange))))
- (org-code ((,class (:foreground ,yellow))))
- (org-column ((,class (:background ,current-line))))
- (org-column-title ((,class (:inherit org-column :weight bold :underline t))))
- (org-date ((,class (:foreground ,blue :underline t))))
- (org-document-info ((,class (:foreground ,aqua))))
- (org-document-info-keyword ((,class (:foreground ,green))))
- (org-document-title ((,class (:weight bold :foreground ,orange :height 1.44))))
- (org-done ((,class (:foreground ,green))))
- (org-ellipsis ((,class (:foreground ,comment))))
- (org-footnote ((,class (:foreground ,aqua))))
- (org-formula ((,class (:foreground ,red))))
- (org-hide ((,class (:foreground ,background :background ,background))))
- (org-link ((,class (:foreground ,blue :underline t))))
- (org-scheduled ((,class (:foreground ,green))))
- (org-scheduled-previously ((,class (:foreground ,orange))))
- (org-scheduled-today ((,class (:foreground ,green))))
- (org-special-keyword ((,class (:foreground ,orange))))
- (org-table ((,class (:foreground ,purple))))
- (org-todo ((,class (:foreground ,red))))
- (org-upcoming-deadline ((,class (:foreground ,orange))))
- (org-warning ((,class (:weight bold :foreground ,red))))
-
- (markdown-url-face ((,class (:inherit link))))
- (markdown-link-face ((,class (:foreground ,blue :underline t))))
-
- (hl-sexp-face ((,class (:background ,current-line))))
- (highlight-symbol-face ((,class (:background ,current-line :weight bold))))
- (highlight-80+ ((,class (:background ,current-line))))
-
- ;; Python-specific overrides
- (py-builtins-face ((,class (:foreground ,orange :weight normal))))
-
- ;; js2-mode
- (js2-warning ((,class (:underline ,orange))))
- (js2-error ((,class (:foreground nil :underline ,red))))
- (js2-external-variable ((,class (:foreground ,purple))))
- (js2-function-param ((,class (:foreground ,blue))))
- (js2-instance-member ((,class (:foreground ,blue))))
- (js2-private-function-call ((,class (:foreground ,red))))
-
- ;; js3-mode
- (js3-warning-face ((,class (:underline ,orange))))
- (js3-error-face ((,class (:foreground nil :underline ,red))))
- (js3-external-variable-face ((,class (:foreground ,purple))))
- (js3-function-param-face ((,class (:foreground ,blue))))
- (js3-jsdoc-tag-face ((,class (:foreground ,orange))))
- (js3-jsdoc-type-face ((,class (:foreground ,aqua))))
- (js3-jsdoc-value-face ((,class (:foreground ,yellow))))
- (js3-jsdoc-html-tag-name-face ((,class (:foreground ,blue))))
- (js3-jsdoc-html-tag-delimiter-face ((,class (:foreground ,green))))
- (js3-instance-member-face ((,class (:foreground ,blue))))
- (js3-private-function-call-face ((,class (:foreground ,red))))
-
- ;; coffee-mode
- (coffee-mode-class-name ((,class (:foreground ,orange :weight bold))))
- (coffee-mode-function-param ((,class (:foreground ,purple))))
-
- ;; nxml
- (nxml-name-face ((,class (:foreground unspecified :inherit font-lock-constant-face))))
- (nxml-attribute-local-name-face ((,class (:foreground unspecified :inherit font-lock-variable-name-face))))
- (nxml-ref-face ((,class (:foreground unspecified :inherit font-lock-preprocessor-face))))
- (nxml-delimiter-face ((,class (:foreground unspecified :inherit font-lock-keyword-face))))
- (nxml-delimited-data-face ((,class (:foreground unspecified :inherit font-lock-string-face))))
- (rng-error-face ((,class (:underline ,red))))
-
- ;; RHTML
- (erb-delim-face ((,class (:background ,current-line))))
- (erb-exec-face ((,class (:background ,current-line :weight bold))))
- (erb-exec-delim-face ((,class (:background ,current-line))))
- (erb-out-face ((,class (:background ,current-line :weight bold))))
- (erb-out-delim-face ((,class (:background ,current-line))))
- (erb-comment-face ((,class (:background ,current-line :weight bold :slant italic))))
- (erb-comment-delim-face ((,class (:background ,current-line))))
-
- ;; Message-mode
- (message-header-other ((,class (:foreground nil :background nil :weight normal))))
- (message-header-subject ((,class (:inherit message-header-other :weight bold :foreground ,yellow))))
- (message-header-to ((,class (:inherit message-header-other :weight bold :foreground ,orange))))
- (message-header-cc ((,class (:inherit message-header-to :foreground nil))))
- (message-header-name ((,class (:foreground ,blue :background nil))))
- (message-header-newsgroups ((,class (:foreground ,aqua :background nil :slant normal))))
- (message-separator ((,class (:foreground ,purple))))
-
- ;; Jabber
- (jabber-chat-prompt-local ((,class (:foreground ,yellow))))
- (jabber-chat-prompt-foreign ((,class (:foreground ,orange))))
- (jabber-chat-prompt-system ((,class (:foreground ,yellow :weight bold))))
- (jabber-chat-text-local ((,class (:foreground ,yellow))))
- (jabber-chat-text-foreign ((,class (:foreground ,orange))))
- (jabber-chat-text-error ((,class (:foreground ,red))))
-
- (jabber-roster-user-online ((,class (:foreground ,green))))
- (jabber-roster-user-xa ((,class :foreground ,comment)))
- (jabber-roster-user-dnd ((,class :foreground ,yellow)))
- (jabber-roster-user-away ((,class (:foreground ,orange))))
- (jabber-roster-user-chatty ((,class (:foreground ,purple))))
- (jabber-roster-user-error ((,class (:foreground ,red))))
- (jabber-roster-user-offline ((,class (:foreground ,comment))))
-
- (jabber-rare-time-face ((,class (:foreground ,comment))))
- (jabber-activity-face ((,class (:foreground ,purple))))
- (jabber-activity-personal-face ((,class (:foreground ,aqua))))
-
- ;; Powerline
- (powerline-active1 ((t (:foreground ,foreground :background ,selection))))
- (powerline-active2 ((t (:foreground ,foreground :background ,current-line))))
-
- ;; Outline
- (outline-1 ((,class (:inherit nil :foreground ,blue))))
- (outline-2 ((,class (:inherit nil :foreground ,yellow))))
- (outline-3 ((,class (:inherit nil :foreground ,purple))))
- (outline-4 ((,class (:inherit nil :foreground ,aqua))))
- (outline-5 ((,class (:inherit nil :foreground ,orange))))
- (outline-6 ((,class (:inherit nil :foreground ,blue))))
- (outline-7 ((,class (:inherit nil :foreground ,yellow))))
- (outline-8 ((,class (:inherit nil :foreground ,purple))))
- (outline-9 ((,class (:inherit nil :foreground ,aqua))))
-
- ;; Ledger-mode
- (ledger-font-comment-face ((,class (:inherit font-lock-comment-face))))
- (ledger-font-occur-narrowed-face ((,class (:inherit font-lock-comment-face :invisible t))))
- (ledger-font-occur-xact-face ((,class (:inherit highlight))))
- (ledger-font-payee-cleared-face ((,class (:foreground ,green))))
- (ledger-font-payee-uncleared-face ((,class (:foreground ,aqua))))
- (ledger-font-posting-account-cleared-face ((,class (:foreground ,blue))))
- (ledger-font-posting-account-face ((,class (:foreground ,purple))))
- (ledger-font-posting-account-pending-face ((,class (:foreground ,yellow))))
- (ledger-font-xact-highlight-face ((,class (:inherit highlight))))
- (ledger-occur-narrowed-face ((,class (:inherit font-lock-comment-face :invisible t))))
- (ledger-occur-xact-face ((,class (:inherit highlight))))
-
- ;; mu4e
- (mu4e-header-highlight-face ((,class (:underline nil :inherit region))))
- (mu4e-header-marks-face ((,class (:underline nil :foreground ,yellow))))
- (mu4e-flagged-face ((,class (:foreground ,orange :inherit nil))))
- (mu4e-replied-face ((,class (:foreground ,blue :inherit nil))))
- (mu4e-unread-face ((,class (:foreground ,yellow :inherit nil))))
- (mu4e-cited-1-face ((,class (:inherit outline-1 :slant normal))))
- (mu4e-cited-2-face ((,class (:inherit outline-2 :slant normal))))
- (mu4e-cited-3-face ((,class (:inherit outline-3 :slant normal))))
- (mu4e-cited-4-face ((,class (:inherit outline-4 :slant normal))))
- (mu4e-cited-5-face ((,class (:inherit outline-5 :slant normal))))
- (mu4e-cited-6-face ((,class (:inherit outline-6 :slant normal))))
- (mu4e-cited-7-face ((,class (:inherit outline-7 :slant normal))))
- (mu4e-ok-face ((,class (:foreground ,green))))
- (mu4e-view-contact-face ((,class (:inherit nil :foreground ,yellow))))
- (mu4e-view-link-face ((,class (:inherit link :foreground ,blue))))
- (mu4e-view-url-number-face ((,class (:inherit nil :foreground ,aqua))))
- (mu4e-view-attach-number-face ((,class (:inherit nil :foreground ,orange))))
- (mu4e-highlight-face ((,class (:inherit highlight))))
- (mu4e-title-face ((,class (:inherit nil :foreground ,green))))
-
- ;; Gnus
- (gnus-cite-1 ((,class (:inherit outline-1 :foreground nil))))
- (gnus-cite-2 ((,class (:inherit outline-2 :foreground nil))))
- (gnus-cite-3 ((,class (:inherit outline-3 :foreground nil))))
- (gnus-cite-4 ((,class (:inherit outline-4 :foreground nil))))
- (gnus-cite-5 ((,class (:inherit outline-5 :foreground nil))))
- (gnus-cite-6 ((,class (:inherit outline-6 :foreground nil))))
- (gnus-cite-7 ((,class (:inherit outline-7 :foreground nil))))
- (gnus-cite-8 ((,class (:inherit outline-8 :foreground nil))))
- ;; there are several more -cite- faces...
- (gnus-header-content ((,class (:inherit message-header-other))))
- (gnus-header-subject ((,class (:inherit message-header-subject))))
- (gnus-header-from ((,class (:inherit message-header-other-face :weight bold :foreground ,orange))))
- (gnus-header-name ((,class (:inherit message-header-name))))
- (gnus-button ((,class (:inherit link :foreground nil))))
- (gnus-signature ((,class (:inherit font-lock-comment-face))))
-
- (gnus-summary-normal-unread ((,class (:foreground ,blue :weight normal))))
- (gnus-summary-normal-read ((,class (:foreground ,foreground :weight normal))))
- (gnus-summary-normal-ancient ((,class (:foreground ,aqua :weight normal))))
- (gnus-summary-normal-ticked ((,class (:foreground ,orange :weight normal))))
- (gnus-summary-low-unread ((,class (:foreground ,comment :weight normal))))
- (gnus-summary-low-read ((,class (:foreground ,comment :weight normal))))
- (gnus-summary-low-ancient ((,class (:foreground ,comment :weight normal))))
- (gnus-summary-high-unread ((,class (:foreground ,yellow :weight normal))))
- (gnus-summary-high-read ((,class (:foreground ,green :weight normal))))
- (gnus-summary-high-ancient ((,class (:foreground ,green :weight normal))))
- (gnus-summary-high-ticked ((,class (:foreground ,orange :weight normal))))
- (gnus-summary-cancelled ((,class (:foreground ,red :background nil :weight normal))))
-
- (gnus-group-mail-low ((,class (:foreground ,comment))))
- (gnus-group-mail-low-empty ((,class (:foreground ,comment))))
- (gnus-group-mail-1 ((,class (:foreground nil :weight normal :inherit outline-1))))
- (gnus-group-mail-2 ((,class (:foreground nil :weight normal :inherit outline-2))))
- (gnus-group-mail-3 ((,class (:foreground nil :weight normal :inherit outline-3))))
- (gnus-group-mail-4 ((,class (:foreground nil :weight normal :inherit outline-4))))
- (gnus-group-mail-5 ((,class (:foreground nil :weight normal :inherit outline-5))))
- (gnus-group-mail-6 ((,class (:foreground nil :weight normal :inherit outline-6))))
- (gnus-group-mail-1-empty ((,class (:inherit gnus-group-mail-1 :foreground ,comment))))
- (gnus-group-mail-2-empty ((,class (:inherit gnus-group-mail-2 :foreground ,comment))))
- (gnus-group-mail-3-empty ((,class (:inherit gnus-group-mail-3 :foreground ,comment))))
- (gnus-group-mail-4-empty ((,class (:inherit gnus-group-mail-4 :foreground ,comment))))
- (gnus-group-mail-5-empty ((,class (:inherit gnus-group-mail-5 :foreground ,comment))))
- (gnus-group-mail-6-empty ((,class (:inherit gnus-group-mail-6 :foreground ,comment))))
- (gnus-group-news-1 ((,class (:foreground nil :weight normal :inherit outline-5))))
- (gnus-group-news-2 ((,class (:foreground nil :weight normal :inherit outline-6))))
- (gnus-group-news-3 ((,class (:foreground nil :weight normal :inherit outline-7))))
- (gnus-group-news-4 ((,class (:foreground nil :weight normal :inherit outline-8))))
- (gnus-group-news-5 ((,class (:foreground nil :weight normal :inherit outline-1))))
- (gnus-group-news-6 ((,class (:foreground nil :weight normal :inherit outline-2))))
- (gnus-group-news-1-empty ((,class (:inherit gnus-group-news-1 :foreground ,comment))))
- (gnus-group-news-2-empty ((,class (:inherit gnus-group-news-2 :foreground ,comment))))
- (gnus-group-news-3-empty ((,class (:inherit gnus-group-news-3 :foreground ,comment))))
- (gnus-group-news-4-empty ((,class (:inherit gnus-group-news-4 :foreground ,comment))))
- (gnus-group-news-5-empty ((,class (:inherit gnus-group-news-5 :foreground ,comment))))
- (gnus-group-news-6-empty ((,class (:inherit gnus-group-news-6 :foreground ,comment))))
-
- (erc-direct-msg-face ((,class (:foreground ,orange))))
- (erc-error-face ((,class (:foreground ,red))))
- (erc-header-face ((,class (:foreground ,foreground :background ,selection))))
- (erc-input-face ((,class (:foreground ,green))))
- (erc-keyword-face ((,class (:foreground ,yellow))))
- (erc-current-nick-face ((,class (:foreground ,green))))
- (erc-my-nick-face ((,class (:foreground ,green))))
- (erc-nick-default-face ((,class (:weight normal :foreground ,purple))))
- (erc-nick-msg-face ((,class (:weight normal :foreground ,yellow))))
- (erc-notice-face ((,class (:foreground ,comment))))
- (erc-pal-face ((,class (:foreground ,orange))))
- (erc-prompt-face ((,class (:foreground ,blue))))
- (erc-timestamp-face ((,class (:foreground ,aqua))))
- (erc-keyword-face ((,class (:foreground ,green))))
-
- ;; twittering-mode
- (twittering-username-face ((,class (:inherit erc-pal-face))))
- (twittering-uri-face ((,class (:foreground ,blue :inherit link))))
- (twittering-timeline-header-face ((,class (:foreground ,green :weight bold))))
- (twittering-timeline-footer-face ((,class (:inherit twittering-timeline-header-face))))
-
- (custom-variable-tag ((,class (:foreground ,blue))))
- (custom-group-tag ((,class (:foreground ,blue))))
- (custom-state ((,class (:foreground ,green))))
-
- ;; ansi-term
- (term ((,class (:foreground nil :background nil :inherit default))))
- (term-color-black ((,class (:foreground ,foreground :background ,foreground))))
- (term-color-red ((,class (:foreground ,red :background ,red))))
- (term-color-green ((,class (:foreground ,green :background ,green))))
- (term-color-yellow ((,class (:foreground ,yellow :background ,yellow))))
- (term-color-blue ((,class (:foreground ,blue :background ,blue))))
- (term-color-magenta ((,class (:foreground ,purple :background ,purple))))
- (term-color-cyan ((,class (:foreground ,aqua :background ,aqua))))
- (term-color-white ((,class (:foreground ,background :background ,background))))
- )))
+ (regex-tool-matched-face (:foreground nil :background nil :inherit match))
+
+ ;; mark-multiple
+ (mm/master-face (:inherit region :foreground nil :background nil))
+ (mm/mirror-face (:inherit region :foreground nil :background nil))
+
+ ;; helm
+ (helm-buffer-saved-out (:inherit warning))
+ (helm-buffer-size (:foreground ,yellow))
+ (helm-buffer-not-saved (:foreground ,orange))
+ (helm-buffer-process (:foreground ,aqua))
+ (helm-ff-directory (:foreground ,aqua))
+ (helm-candidate-number (:foreground ,red))
+ (helm-selection (:inherit highlight))
+ (helm-separator (:foreground ,purple))
+ (helm-source-header (:inherit org-document-title))
+
+ (org-agenda-structure (:foreground ,purple))
+ (org-agenda-date (:foreground ,blue :underline nil))
+ (org-agenda-done (:foreground ,green))
+ (org-agenda-dimmed-todo-face (:foreground ,comment))
+ (org-block (:foreground ,orange))
+ (org-code (:foreground ,yellow))
+ (org-column (:background ,current-line))
+ (org-column-title (:inherit org-column :weight bold :underline t))
+ (org-date (:foreground ,blue :underline t))
+ (org-document-info (:foreground ,aqua))
+ (org-document-info-keyword (:foreground ,green))
+ (org-document-title (:weight bold :foreground ,orange :height 1.44))
+ (org-done (:foreground ,green))
+ (org-ellipsis (:foreground ,comment))
+ (org-footnote (:foreground ,aqua))
+ (org-formula (:foreground ,red))
+ (org-hide (:foreground ,background :background ,background))
+ (org-link (:foreground ,blue :underline t))
+ (org-scheduled (:foreground ,green))
+ (org-scheduled-previously (:foreground ,orange))
+ (org-scheduled-today (:foreground ,green))
+ (org-special-keyword (:foreground ,orange))
+ (org-table (:foreground ,purple))
+ (org-todo (:foreground ,red))
+ (org-upcoming-deadline (:foreground ,orange))
+ (org-warning (:weight bold :foreground ,red))
+
+ (markdown-url-face (:inherit link))
+ (markdown-link-face (:foreground ,blue :underline t))
+
+ (hl-sexp-face (:background ,current-line))
+ (highlight-symbol-face (:background ,current-line :weight bold))
+ (highlight-80+ (:background ,current-line))
+
+ ;; Python-specific overrides
+ (py-builtins-face (:foreground ,orange :weight normal))
+
+ ;; js2-mode
+ (js2-warning (:underline ,orange))
+ (js2-error (:foreground nil :underline ,red))
+ (js2-external-variable (:foreground ,purple))
+ (js2-function-param (:foreground ,blue))
+ (js2-instance-member (:foreground ,blue))
+ (js2-private-function-call (:foreground ,red))
+
+ ;; js3-mode
+ (js3-warning-face (:underline ,orange))
+ (js3-error-face (:foreground nil :underline ,red))
+ (js3-external-variable-face (:foreground ,purple))
+ (js3-function-param-face (:foreground ,blue))
+ (js3-jsdoc-tag-face (:foreground ,orange))
+ (js3-jsdoc-type-face (:foreground ,aqua))
+ (js3-jsdoc-value-face (:foreground ,yellow))
+ (js3-jsdoc-html-tag-name-face (:foreground ,blue))
+ (js3-jsdoc-html-tag-delimiter-face (:foreground ,green))
+ (js3-instance-member-face (:foreground ,blue))
+ (js3-private-function-call-face (:foreground ,red))
+
+ ;; coffee-mode
+ (coffee-mode-class-name (:foreground ,orange :weight bold))
+ (coffee-mode-function-param (:foreground ,purple))
+
+ ;; nxml
+ (nxml-name-face (:foreground unspecified :inherit font-lock-constant-face))
+ (nxml-attribute-local-name-face (:foreground unspecified :inherit font-lock-variable-name-face))
+ (nxml-ref-face (:foreground unspecified :inherit font-lock-preprocessor-face))
+ (nxml-delimiter-face (:foreground unspecified :inherit font-lock-keyword-face))
+ (nxml-delimited-data-face (:foreground unspecified :inherit font-lock-string-face))
+ (rng-error-face (:underline ,red))
+
+ ;; RHTML
+ (erb-delim-face (:background ,current-line))
+ (erb-exec-face (:background ,current-line :weight bold))
+ (erb-exec-delim-face (:background ,current-line))
+ (erb-out-face (:background ,current-line :weight bold))
+ (erb-out-delim-face (:background ,current-line))
+ (erb-comment-face (:background ,current-line :weight bold :slant italic))
+ (erb-comment-delim-face (:background ,current-line))
+
+ ;; Message-mode
+ (message-header-other (:foreground nil :background nil :weight normal))
+ (message-header-subject (:inherit message-header-other :weight bold :foreground ,yellow))
+ (message-header-to (:inherit message-header-other :weight bold :foreground ,orange))
+ (message-header-cc (:inherit message-header-to :foreground nil))
+ (message-header-name (:foreground ,blue :background nil))
+ (message-header-newsgroups (:foreground ,aqua :background nil :slant normal))
+ (message-separator (:foreground ,purple))
+
+ ;; Jabber
+ (jabber-chat-prompt-local (:foreground ,yellow))
+ (jabber-chat-prompt-foreign (:foreground ,orange))
+ (jabber-chat-prompt-system (:foreground ,yellow :weight bold))
+ (jabber-chat-text-local (:foreground ,yellow))
+ (jabber-chat-text-foreign (:foreground ,orange))
+ (jabber-chat-text-error (:foreground ,red))
+
+ (jabber-roster-user-online (:foreground ,green))
+ (jabber-roster-user-xa :foreground ,comment)
+ (jabber-roster-user-dnd :foreground ,yellow)
+ (jabber-roster-user-away (:foreground ,orange))
+ (jabber-roster-user-chatty (:foreground ,purple))
+ (jabber-roster-user-error (:foreground ,red))
+ (jabber-roster-user-offline (:foreground ,comment))
+
+ (jabber-rare-time-face (:foreground ,comment))
+ (jabber-activity-face (:foreground ,purple))
+ (jabber-activity-personal-face (:foreground ,aqua))
+
+ ;; Powerline
+ (powerline-active1 ((t (:foreground ,foreground :background ,selection))))
+ (powerline-active2 ((t (:foreground ,foreground :background ,current-line))))
+
+ ;; Outline
+ (outline-1 (:inherit nil :foreground ,blue))
+ (outline-2 (:inherit nil :foreground ,yellow))
+ (outline-3 (:inherit nil :foreground ,purple))
+ (outline-4 (:inherit nil :foreground ,aqua))
+ (outline-5 (:inherit nil :foreground ,orange))
+ (outline-6 (:inherit nil :foreground ,blue))
+ (outline-7 (:inherit nil :foreground ,yellow))
+ (outline-8 (:inherit nil :foreground ,purple))
+ (outline-9 (:inherit nil :foreground ,aqua))
+
+ ;; Ledger-mode
+ (ledger-font-comment-face (:inherit font-lock-comment-face))
+ (ledger-font-occur-narrowed-face (:inherit font-lock-comment-face :invisible t))
+ (ledger-font-occur-xact-face (:inherit highlight))
+ (ledger-font-payee-cleared-face (:foreground ,green))
+ (ledger-font-payee-uncleared-face (:foreground ,aqua))
+ (ledger-font-posting-account-cleared-face (:foreground ,blue))
+ (ledger-font-posting-account-face (:foreground ,purple))
+ (ledger-font-posting-account-pending-face (:foreground ,yellow))
+ (ledger-font-xact-highlight-face (:inherit highlight))
+ (ledger-occur-narrowed-face (:inherit font-lock-comment-face :invisible t))
+ (ledger-occur-xact-face (:inherit highlight))
+
+ ;; mu4e
+ (mu4e-header-highlight-face (:underline nil :inherit region))
+ (mu4e-header-marks-face (:underline nil :foreground ,yellow))
+ (mu4e-flagged-face (:foreground ,orange :inherit nil))
+ (mu4e-replied-face (:foreground ,blue :inherit nil))
+ (mu4e-unread-face (:foreground ,yellow :inherit nil))
+ (mu4e-cited-1-face (:inherit outline-1 :slant normal))
+ (mu4e-cited-2-face (:inherit outline-2 :slant normal))
+ (mu4e-cited-3-face (:inherit outline-3 :slant normal))
+ (mu4e-cited-4-face (:inherit outline-4 :slant normal))
+ (mu4e-cited-5-face (:inherit outline-5 :slant normal))
+ (mu4e-cited-6-face (:inherit outline-6 :slant normal))
+ (mu4e-cited-7-face (:inherit outline-7 :slant normal))
+ (mu4e-ok-face (:foreground ,green))
+ (mu4e-view-contact-face (:inherit nil :foreground ,yellow))
+ (mu4e-view-link-face (:inherit link :foreground ,blue))
+ (mu4e-view-url-number-face (:inherit nil :foreground ,aqua))
+ (mu4e-view-attach-number-face (:inherit nil :foreground ,orange))
+ (mu4e-highlight-face (:inherit highlight))
+ (mu4e-title-face (:inherit nil :foreground ,green))
+
+ ;; Gnus
+ (gnus-cite-1 (:inherit outline-1 :foreground nil))
+ (gnus-cite-2 (:inherit outline-2 :foreground nil))
+ (gnus-cite-3 (:inherit outline-3 :foreground nil))
+ (gnus-cite-4 (:inherit outline-4 :foreground nil))
+ (gnus-cite-5 (:inherit outline-5 :foreground nil))
+ (gnus-cite-6 (:inherit outline-6 :foreground nil))
+ (gnus-cite-7 (:inherit outline-7 :foreground nil))
+ (gnus-cite-8 (:inherit outline-8 :foreground nil))
+ ;; there are several more -cite- faces...
+ (gnus-header-content (:inherit message-header-other))
+ (gnus-header-subject (:inherit message-header-subject))
+ (gnus-header-from (:inherit message-header-other-face :weight bold :foreground ,orange))
+ (gnus-header-name (:inherit message-header-name))
+ (gnus-button (:inherit link :foreground nil))
+ (gnus-signature (:inherit font-lock-comment-face))
+
+ (gnus-summary-normal-unread (:foreground ,blue :weight normal))
+ (gnus-summary-normal-read (:foreground ,foreground :weight normal))
+ (gnus-summary-normal-ancient (:foreground ,aqua :weight normal))
+ (gnus-summary-normal-ticked (:foreground ,orange :weight normal))
+ (gnus-summary-low-unread (:foreground ,comment :weight normal))
+ (gnus-summary-low-read (:foreground ,comment :weight normal))
+ (gnus-summary-low-ancient (:foreground ,comment :weight normal))
+ (gnus-summary-high-unread (:foreground ,yellow :weight normal))
+ (gnus-summary-high-read (:foreground ,green :weight normal))
+ (gnus-summary-high-ancient (:foreground ,green :weight normal))
+ (gnus-summary-high-ticked (:foreground ,orange :weight normal))
+ (gnus-summary-cancelled (:foreground ,red :background nil :weight normal))
+
+ (gnus-group-mail-low (:foreground ,comment))
+ (gnus-group-mail-low-empty (:foreground ,comment))
+ (gnus-group-mail-1 (:foreground nil :weight normal :inherit outline-1))
+ (gnus-group-mail-2 (:foreground nil :weight normal :inherit outline-2))
+ (gnus-group-mail-3 (:foreground nil :weight normal :inherit outline-3))
+ (gnus-group-mail-4 (:foreground nil :weight normal :inherit outline-4))
+ (gnus-group-mail-5 (:foreground nil :weight normal :inherit outline-5))
+ (gnus-group-mail-6 (:foreground nil :weight normal :inherit outline-6))
+ (gnus-group-mail-1-empty (:inherit gnus-group-mail-1 :foreground ,comment))
+ (gnus-group-mail-2-empty (:inherit gnus-group-mail-2 :foreground ,comment))
+ (gnus-group-mail-3-empty (:inherit gnus-group-mail-3 :foreground ,comment))
+ (gnus-group-mail-4-empty (:inherit gnus-group-mail-4 :foreground ,comment))
+ (gnus-group-mail-5-empty (:inherit gnus-group-mail-5 :foreground ,comment))
+ (gnus-group-mail-6-empty (:inherit gnus-group-mail-6 :foreground ,comment))
+ (gnus-group-news-1 (:foreground nil :weight normal :inherit outline-5))
+ (gnus-group-news-2 (:foreground nil :weight normal :inherit outline-6))
+ (gnus-group-news-3 (:foreground nil :weight normal :inherit outline-7))
+ (gnus-group-news-4 (:foreground nil :weight normal :inherit outline-8))
+ (gnus-group-news-5 (:foreground nil :weight normal :inherit outline-1))
+ (gnus-group-news-6 (:foreground nil :weight normal :inherit outline-2))
+ (gnus-group-news-1-empty (:inherit gnus-group-news-1 :foreground ,comment))
+ (gnus-group-news-2-empty (:inherit gnus-group-news-2 :foreground ,comment))
+ (gnus-group-news-3-empty (:inherit gnus-group-news-3 :foreground ,comment))
+ (gnus-group-news-4-empty (:inherit gnus-group-news-4 :foreground ,comment))
+ (gnus-group-news-5-empty (:inherit gnus-group-news-5 :foreground ,comment))
+ (gnus-group-news-6-empty (:inherit gnus-group-news-6 :foreground ,comment))
+
+ (erc-direct-msg-face (:foreground ,orange))
+ (erc-error-face (:foreground ,red))
+ (erc-header-face (:foreground ,foreground :background ,selection))
+ (erc-input-face (:foreground ,green))
+ (erc-keyword-face (:foreground ,yellow))
+ (erc-current-nick-face (:foreground ,green))
+ (erc-my-nick-face (:foreground ,green))
+ (erc-nick-default-face (:weight normal :foreground ,purple))
+ (erc-nick-msg-face (:weight normal :foreground ,yellow))
+ (erc-notice-face (:foreground ,comment))
+ (erc-pal-face (:foreground ,orange))
+ (erc-prompt-face (:foreground ,blue))
+ (erc-timestamp-face (:foreground ,aqua))
+ (erc-keyword-face (:foreground ,green))
+
+ ;; twittering-mode
+ (twittering-username-face (:inherit erc-pal-face))
+ (twittering-uri-face (:foreground ,blue :inherit link))
+ (twittering-timeline-header-face (:foreground ,green :weight bold))
+ (twittering-timeline-footer-face (:inherit twittering-timeline-header-face))
+
+ (custom-variable-tag (:foreground ,blue))
+ (custom-group-tag (:foreground ,blue))
+ (custom-state (:foreground ,green))
+
+ ;; ansi-term
+ (term (:foreground nil :background nil :inherit default))
+ (term-color-black (:foreground ,foreground :background ,foreground))
+ (term-color-red (:foreground ,red :background ,red))
+ (term-color-green (:foreground ,green :background ,green))
+ (term-color-yellow (:foreground ,yellow :background ,yellow))
+ (term-color-blue (:foreground ,blue :background ,blue))
+ (term-color-magenta (:foreground ,purple :background ,purple))
+ (term-color-cyan (:foreground ,aqua :background ,aqua))
+ (term-color-white (:foreground ,background :background ,background))
+ ))))
(defmacro color-theme-sanityinc-tomorrow--frame-parameter-specs ()
"Return a backquote which defines a list of frame parameter specs.

0 comments on commit 3773834

Please sign in to comment.
Something went wrong with that request. Please try again.