theme: Pull out and name some shared values

1 files changed, 100 insertions, 94 deletions

diff --git a/lisp/km-theme.el b/lisp/km-theme.el
index 962ffd5..2fc1fe7 100644
--- a/lisp/km-theme.el
+++ b/lisp/km-theme.el
@@ -22,100 +22,106 @@
 
 (load-theme 'stekene-light t)
 
-(custom-theme-set-faces
- 'stekene-light
- '(Info-quoted ((t (:inherit default))))
- '(compilation-info ((t (:inherit font-lock-function-name-face))))
- '(cursor ((t (:background "#f08080"))))
- '(default ((t (:background "white"))))
- '(diff-added ((t (:foreground "DarkGreen" :background "grey98"))))
- '(diff-context ((t (:foreground "grey10" :background "grey98"))))
- '(diff-removed ((t (:foreground "#aa2222" :background "grey98"))))
- '(dired-subtree-depth-1-face ((t (:background "gray80"))))
- '(dired-subtree-depth-2-face ((t (:background "gray90"))))
- '(dired-subtree-depth-3-face ((t (:background "gray95"))))
- '(dired-symlink ((t (:inherit font-lock-constant-face))))
- '(font-latex-math-face ((t (:inherit font-lock-builtin-face))))
- '(font-latex-string-face ((t (:inherit default))))
- '(font-lock-keyword-face ((t (:foreground "gray33")))) ; Darken a bit (was gray40)
- '(git-annex-dired-annexed-available ((t (:inherit font-lock-type-face))))
- '(git-annex-dired-annexed-unavailable ((t (:inherit font-lock-string-face))))
- '(gnus-button ((t (:inherit default))))
- '(gnus-cite-1 ((t (:inherit font-lock-function-name-face))))
- '(gnus-cite-2 ((t (:inherit font-lock-string-face))))
- '(gnus-group-mail-1 ((t (:inherit gnus-group-mail-1-empty :weight bold))))
- '(gnus-group-mail-1-empty ((t (:inherit font-lock-string-face))))
- '(gnus-group-mail-2 ((t (:inherit gnus-group-mail-2-empty :weight bold))))
- '(gnus-group-mail-2-empty ((t (:inherit font-lock-function-name-face))))
- '(gnus-group-mail-3 ((t (:inherit gnus-group-mail-3-empty :weight bold))))
- '(gnus-group-mail-3-empty ((t (:inherit font-lock-type-face))))
- '(gnus-header-content ((t (:inherit default))))
- '(gnus-header-name ((t (:inherit font-lock-constant-face))))
- '(gnus-header-subject ((t (:inherit font-lock-doc-face))))
- '(gnus-subject ((t (:inherit font-lock-doc-face))))
- '(gnus-summary-normal-read ((t (:inherit font-lock-comment-face))))
- '(helm-grep-file ((t (:inherit compilation-info))))
- '(helm-grep-finish ((t (:inherit compilation-mode-line-exit))))
- '(helm-grep-lineno ((t (:inherit compilation-line-number))))
- '(helm-match-item ((t (:inherit lazy-highlight))))
- '(helm-selection ((t (:inherit region))))
- '(helm-swoop-target-line-block-face ((t (:inherit match))))
- '(helm-swoop-target-line-face ((t (:inherit match))))
- '(helm-swoop-target-word-face ((t (:inherit lazy-highlight))))
- '(isearch ((t (:inherit match))))
- '(magit-cherry-equivalent ((t (:inherit font-lock-constant-face))))
- '(magit-cherry-unmatched ((t (:inherit font-lock-string-face))))
- '(magit-diff-added ((t (:foreground "DarkGreen" :background "grey98"))))
- '(magit-diff-added-highlight ((t (:foreground "DarkGreen" :background "grey98"))))
- '(magit-diff-context ((t (:foreground "grey50" :background "grey98"))))
- '(magit-diff-context-highlight ((t (:foreground "grey50" :background "grey98"))))
- '(magit-diff-file-heading ((t (:inherit default :weight bold))))
- '(magit-diff-file-heading-selection ((t (:inherit default :weight bold))))
- '(magit-diff-hunk-heading ((t (:foreground "gray30" :background "grey90"))))
- '(magit-diff-hunk-heading-highlight ((t (:foreground "gray30" :background "grey80"))))
- '(magit-diff-removed ((t (:foreground "#aa2222" :background "grey98"))))
- '(magit-diff-removed-highlight ((t (:foreground "#aa2222" :background "grey98"))))
- '(magit-popup-argument ((t (:inherit font-lock-string-face))))
- '(magit-reflog-amend ((t (:inherit font-lock-function-name-face))))
- '(magit-reflog-checkout ((t (:inherit font-lock-builtin-face))))
- '(magit-reflog-commit ((t (:inherit default))))
- '(magit-reflog-merge ((t (:inherit font-lock-doc-face))))
- '(magit-reflog-other ((t (:inherit font-lock-type-face))))
- '(magit-reflog-rebase ((t (:inherit font-lock-string-face))))
- '(magit-reflog-remote ((t (:inherit font-lock-variable-name-face))))
- '(magit-reflog-reset ((t (:inherit font-lock-warning-face))))
- '(magit-section-heading ((t (:inherit font-lock-constant-face :weight bold))))
- '(magit-section-highlight ((t (:background "white"))))
- '(magit-section-secondary-heading ((t (:inherit default))))
- '(match ((t (:inherit default :background "PaleGreen1"))))
- '(mm-uu-extract ((t (:background "gray95"))))
- '(org-agenda-calendar-event ((t (:inherit font-lock-function-name-face))))
- '(org-agenda-calendar-sexp ((t (:inherit font-lock-variable-name-face))))
- '(org-agenda-clocking ((t (:inherit lazy-highlight))))
- '(org-agenda-date ((t (:foreground "gray40"))))
- '(org-agenda-date-today ((t (:weight bold))))
- '(org-agenda-date-weekend ((t (:inherit org-agenda-date))))
- '(org-agenda-restriction-lock ((t (:background "white"))))
- '(org-agenda-structure ((t (:foreground "gray60"))))
- '(org-date ((t (:inherit font-lock-type-face))))
- '(org-done ((t (:foreground "#557755" :background "gray95"))))
- '(org-scheduled ((t (:inherit default))))
- '(org-scheduled-today ((t (:inherit org-scheduled))))
- '(org-todo ((t (:inherit font-lock-string-face :background "gray95"))))
- '(org-upcoming-deadline ((t (:inherit default))))
- '(org-warning ((t (:inherit font-lock-string-face))))
- '(outline-1 ((t (:inherit font-lock-doc-face))))
- '(outline-2 ((t (:inherit font-lock-function-name-face))))
- '(outline-3 ((t (:inherit font-lock-constant-face))))
- '(term-color-black ((t (:inherit default))))
- '(term-color-blue ((t (:inherit font-lock-function-name-face))))
- '(term-color-cyan ((t (:foreground "#008b8b"))))
- '(term-color-green ((t (:foreground "#3cb371"))))
- '(term-color-magenta ((t (:foreground "#8b008b"))))
- '(term-color-red ((t (:inherit font-lock-string-face))))
- '(term-color-yellow ((t (:inherit font-lock-doc-face))))
- '(whitespace-indentation ((t (:background "gray90"))))
- '(whitespace-trailing ((t (:background "gray90")))))
+(let ((bg "white")
+      (bg-mid "gray96")
+      (bg-dark "gray92")
+      (fg-light "gray30")
+      (diff-added "DarkGreen")
+      (diff-removed "#aa2222"))
+  (custom-theme-set-faces
+   'stekene-light
+   '(Info-quoted ((t (:inherit default))))
+   '(compilation-info ((t (:inherit font-lock-function-name-face))))
+   '(cursor ((t (:background "#f08080"))))
+   `(default ((t (:background ,bg))))
+   `(diff-added ((t (:foreground ,diff-added :background "grey98"))))
+   '(diff-context ((t (:foreground "grey10" :background "grey98"))))
+   `(diff-removed ((t (:foreground ,diff-removed :background "grey98"))))
+   '(dired-subtree-depth-1-face ((t (:background "gray80"))))
+   '(dired-subtree-depth-2-face ((t (:background "gray90"))))
+   '(dired-subtree-depth-3-face ((t (:background "gray95"))))
+   '(dired-symlink ((t (:inherit font-lock-constant-face))))
+   '(font-latex-math-face ((t (:inherit font-lock-builtin-face))))
+   '(font-latex-string-face ((t (:inherit default))))
+   '(font-lock-keyword-face ((t (:foreground "gray33")))) ; Darken a bit (was gray40)
+   '(git-annex-dired-annexed-available ((t (:inherit font-lock-type-face))))
+   '(git-annex-dired-annexed-unavailable ((t (:inherit font-lock-string-face))))
+   '(gnus-button ((t (:inherit default))))
+   '(gnus-cite-1 ((t (:inherit font-lock-function-name-face))))
+   '(gnus-cite-2 ((t (:inherit font-lock-string-face))))
+   '(gnus-group-mail-1 ((t (:inherit gnus-group-mail-1-empty :weight bold))))
+   '(gnus-group-mail-1-empty ((t (:inherit font-lock-string-face))))
+   '(gnus-group-mail-2 ((t (:inherit gnus-group-mail-2-empty :weight bold))))
+   '(gnus-group-mail-2-empty ((t (:inherit font-lock-function-name-face))))
+   '(gnus-group-mail-3 ((t (:inherit gnus-group-mail-3-empty :weight bold))))
+   '(gnus-group-mail-3-empty ((t (:inherit font-lock-type-face))))
+   '(gnus-header-content ((t (:inherit default))))
+   '(gnus-header-name ((t (:inherit font-lock-constant-face))))
+   '(gnus-header-subject ((t (:inherit font-lock-doc-face))))
+   '(gnus-subject ((t (:inherit font-lock-doc-face))))
+   '(gnus-summary-normal-read ((t (:inherit font-lock-comment-face))))
+   '(helm-grep-file ((t (:inherit compilation-info))))
+   '(helm-grep-finish ((t (:inherit compilation-mode-line-exit))))
+   '(helm-grep-lineno ((t (:inherit compilation-line-number))))
+   '(helm-match-item ((t (:inherit lazy-highlight))))
+   '(helm-selection ((t (:inherit region))))
+   '(helm-swoop-target-line-block-face ((t (:inherit match))))
+   '(helm-swoop-target-line-face ((t (:inherit match))))
+   '(helm-swoop-target-word-face ((t (:inherit lazy-highlight))))
+   '(isearch ((t (:inherit match))))
+   '(magit-cherry-equivalent ((t (:inherit font-lock-constant-face))))
+   '(magit-cherry-unmatched ((t (:inherit font-lock-string-face))))
+   `(magit-diff-added ((t (:foreground ,diff-added :background "grey98"))))
+   `(magit-diff-added-highlight ((t (:foreground ,diff-added :background "grey98"))))
+   '(magit-diff-context ((t (:foreground "grey50" :background "grey98"))))
+   '(magit-diff-context-highlight ((t (:foreground "grey50" :background "grey98"))))
+   '(magit-diff-file-heading ((t (:inherit default :weight bold))))
+   '(magit-diff-file-heading-selection ((t (:inherit default :weight bold))))
+   `(magit-diff-hunk-heading ((t (:foreground ,fg-light :background "grey90"))))
+   `(magit-diff-hunk-heading-highlight ((t (:foreground ,fg-light :background "grey80"))))
+   `(magit-diff-removed ((t (:foreground ,diff-removed :background "grey98"))))
+   `(magit-diff-removed-highlight ((t (:foreground ,diff-removed :background "grey98"))))
+   '(magit-popup-argument ((t (:inherit font-lock-string-face))))
+   '(magit-reflog-amend ((t (:inherit font-lock-function-name-face))))
+   '(magit-reflog-checkout ((t (:inherit font-lock-builtin-face))))
+   '(magit-reflog-commit ((t (:inherit default))))
+   '(magit-reflog-merge ((t (:inherit font-lock-doc-face))))
+   '(magit-reflog-other ((t (:inherit font-lock-type-face))))
+   '(magit-reflog-rebase ((t (:inherit font-lock-string-face))))
+   '(magit-reflog-remote ((t (:inherit font-lock-variable-name-face))))
+   '(magit-reflog-reset ((t (:inherit font-lock-warning-face))))
+   '(magit-section-heading ((t (:inherit font-lock-constant-face :weight bold))))
+   `(magit-section-highlight ((t (:background ,bg))))
+   '(magit-section-secondary-heading ((t (:inherit default))))
+   '(match ((t (:inherit default :background "PaleGreen1"))))
+   '(mm-uu-extract ((t (:background "gray95"))))
+   '(org-agenda-calendar-event ((t (:inherit font-lock-function-name-face))))
+   '(org-agenda-calendar-sexp ((t (:inherit font-lock-variable-name-face))))
+   '(org-agenda-clocking ((t (:inherit lazy-highlight))))
+   '(org-agenda-date ((t (:foreground "gray40"))))
+   '(org-agenda-date-today ((t (:weight bold))))
+   '(org-agenda-date-weekend ((t (:inherit org-agenda-date))))
+   `(org-agenda-restriction-lock ((t (:background ,bg))))
+   '(org-agenda-structure ((t (:foreground "gray60"))))
+   '(org-date ((t (:inherit font-lock-type-face))))
+   '(org-done ((t (:foreground "#557755" :background "gray95"))))
+   '(org-scheduled ((t (:inherit default))))
+   '(org-scheduled-today ((t (:inherit org-scheduled))))
+   '(org-todo ((t (:inherit font-lock-string-face :background "gray95"))))
+   '(org-upcoming-deadline ((t (:inherit default))))
+   '(org-warning ((t (:inherit font-lock-string-face))))
+   '(outline-1 ((t (:inherit font-lock-doc-face))))
+   '(outline-2 ((t (:inherit font-lock-function-name-face))))
+   '(outline-3 ((t (:inherit font-lock-constant-face))))
+   '(term-color-black ((t (:inherit default))))
+   '(term-color-blue ((t (:inherit font-lock-function-name-face))))
+   '(term-color-cyan ((t (:foreground "#008b8b"))))
+   '(term-color-green ((t (:foreground "#3cb371"))))
+   '(term-color-magenta ((t (:foreground "#8b008b"))))
+   '(term-color-red ((t (:inherit font-lock-string-face))))
+   '(term-color-yellow ((t (:inherit font-lock-doc-face))))
+   '(whitespace-indentation ((t (:background "gray90"))))
+   '(whitespace-trailing ((t (:background "gray90"))))))
 
 (provide 'km-theme)
 ;;; km-theme.el ends here