emacs
/
emacs-color-theme-solarized
mirror of https://github.com/sellout/emacs-color-theme-solarized.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Add the solarized-contrast custom variable. 

As requested in issue #32. I hadn’t added it previously, due to the description attached to it: “Stick with normal! It's been carefully tested. Setting this option to high or low does use the same Solarized palette but simply shifts some values up or down in order to expand or compress the tonal range displayed.”
This commit is contained in:
Greg Pfeil 2011-11-02 10:30:50 -06:00
parent 26260c07e2
commit cfa6d87355
1 changed files with 230 additions and 201 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

431
solarized-definitions.el
View File

@ -6,8 +6,8 @@
Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized.") Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized.")
(defcustom solarized-degrade nil (defcustom solarized-degrade nil
"For test purposes only; when in GUI mode, forces Solarized to use the 256 degraded color mode "For test purposes only; when in GUI mode, forces Solarized to use the 256
to test the approximate color values for accuracy." degraded color mode to test the approximate color values for accuracy."
:type 'boolean :type 'boolean
:group 'solarized) :group 'solarized)
@ -28,11 +28,20 @@ to test the approximate color values for accuracy."
(defcustom solarized-termcolors 16 (defcustom solarized-termcolors 16
"This setting applies to emacs in terminal (non-GUI) mode. "This setting applies to emacs in terminal (non-GUI) mode.
If set to 16, emacs will use the terminal emulator's colorscheme If set to 16, emacs will use the terminal emulator's colorscheme (best option as
(best option as long as you've set your emulator's colors to the Solarized palette). long as you've set your emulator's colors to the Solarized palette). If set to
If set to 256 and your terminal is capable of displaying 256 colors, emacs 256 and your terminal is capable of displaying 256 colors, emacs will use the
will use the 256 degraded color mode." 256 degraded color mode."
:type 'integer :type 'integer
:options '(16 256)
:group 'solarized)
(defcustom solarized-contrast 'normal
"Stick with normal! It's been carefully tested. Setting this option to high or
low does use the same Solarized palette but simply shifts some values up or down
in order to expand or compress the tonal range displayed."
:type 'symbol
:options '(high normal low)
:group 'solarized) :group 'solarized)
;; FIXME: The Generic RGB colors will actually vary from device to device, but ;; FIXME: The Generic RGB colors will actually vary from device to device, but
@ -88,207 +97,227 @@ will use the 256 degraded color mode."
(green (find-color 'green)) (green (find-color 'green))
(bold (if solarized-bold 'bold 'normal)) (bold (if solarized-bold 'bold 'normal))
(underline (if solarized-underline t nil)) (underline (if solarized-underline t nil))
(opt-under nil)
(italic (if solarized-italic 'italic 'normal))) (italic (if solarized-italic 'italic 'normal)))
(when (eq 'light mode) (when (eq 'light mode)
(rotatef base03 base3) (rotatef base03 base3)
(rotatef base02 base2) (rotatef base02 base2)
(rotatef base01 base1) (rotatef base01 base1)
(rotatef base00 base0)) (rotatef base00 base0))
`((;; basic (let ((back base03))
(default ((t (:foreground ,base0 ,:background ,base03)))) (cond ((eq 'high solarized-contrast)
(cursor (let ((orig-base3 base3))
((t (:foreground ,base0 :background ,base03 :inverse-video t)))) (rotatef base01 base00 base0 base1 base2 base3)
(escape-glyph-face ((t (:foreground ,red)))) (setf base3 orig-base3)))
(fringe ((t (:foreground ,base01 :background ,base02)))) ((eq 'low solarized-contrast)
(linum ((t (:foreground ,base01 :background ,base02)))) (setf back base02
(header-line ((t (:foreground ,base0 :background ,base2)))) opt-under t)))
(highlight ((t (:background ,base02)))) `((;; basic
(hl-line ((t (:background ,base02)))) (default ((t (:foreground ,base0 ,:background ,back))))
(isearch ((t (:foreground ,yellow :inverse-video t)))) (cursor
(lazy-highlight ((t (:background ,base2 :foreground ,base00)))) ((t (:foreground ,base0 :background ,base03 :inverse-video t))))
(link ((t (:foreground ,violet :underline ,underline)))) (escape-glyph-face ((t (:foreground ,red))))
(link-visited ((t (:foreground ,magenta :underline ,underline)))) (fringe ((t (:foreground ,base01 :background ,base02))))
(menu ((t (:foreground ,base0 :background ,base02)))) (linum ((t (:foreground ,base01 :background ,base02))))
(minibuffer-prompt ((t (:foreground ,blue)))) (header-line ((t (:foreground ,base0 :background ,base2))))
(mode-line (highlight ((t (:background ,base02))))
((t (:foreground ,base1 :background ,base02 (hl-line ((t (:background ,base02))))
:box (:line-width 1 :color ,base1))))) (isearch ((t (:foreground ,yellow :inverse-video t))))
(mode-line-buffer-id ((t (:foreground ,base1)))) (lazy-highlight ((t (:background ,base2 :foreground ,base00))))
(mode-line-inactive (link ((t (:foreground ,violet :underline ,underline))))
((t (:foreground ,base0 :background ,base02 (link-visited ((t (:foreground ,magenta :underline ,underline))))
:box (:line-width 1 :color ,base02))))) (menu ((t (:foreground ,base0 :background ,base02))))
(region ((t (:background ,base02)))) (minibuffer-prompt ((t (:foreground ,blue))))
(secondary-selection ((t (:background ,base02)))) (mode-line
(trailing-whitespace ((t (:foreground ,red :inverse-video t)))) ((t (:foreground ,base1 :background ,base02
(vertical-border ((t (:foreground ,base0)))) :box (:line-width 1 :color ,base1)))))
;; comint (mode-line-buffer-id ((t (:foreground ,base1))))
(comint-highlight-prompt ((t (:foreground ,blue)))) (mode-line-inactive
;; compilation ((t (:foreground ,base0 :background ,base02
(compilation-info ((t (:foreground ,green :weight ,bold)))) :box (:line-width 1 :color ,base02)))))
(compilation-warning ((t (:foreground ,orange :weight ,bold)))) (region ((t (:background ,base02))))
;; customize (secondary-selection ((t (:background ,base02))))
(custom-button (trailing-whitespace ((t (:foreground ,red :inverse-video t))))
((t (:background ,base02 (vertical-border ((t (:foreground ,base0))))
:box (:line-width 2 :style released-button))))) ;; comint
(custom-button-mouse ((t (:inherit custom-button :foreground ,base1)))) (comint-highlight-prompt ((t (:foreground ,blue))))
(custom-button-pressed ;; compilation
((t (:inherit custom-button-mouse (compilation-info ((t (:foreground ,green :weight ,bold))))
:box (:line-width 2 :style pressed-button))))) (compilation-warning ((t (:foreground ,orange :weight ,bold))))
(custom-comment-tag ((t (:background ,base02)))) ;; customize
(custom-comment-tag ((t (:background ,base02)))) (custom-button
(custom-documentation ((t (:inherit default)))) ((t (:background ,base02
(custom-group-tag ((t (:foreground ,orange :weight ,bold)))) :box (:line-width 2 :style released-button)))))
(custom-link ((t (:foreground ,violet)))) (custom-button-mouse
(custom-state ((t (:foreground ,green)))) ((t (:inherit custom-button :foreground ,base1))))
(custom-variable-tag ((t (:foreground ,orange :weight ,bold)))) (custom-button-pressed
;; diff ((t (:inherit custom-button-mouse
(diff-added ((t (:foreground ,green :inverse-video t)))) :box (:line-width 2 :style pressed-button)))))
(diff-changed ((t (:foreground ,yellow :inverse-video t)))) (custom-comment-tag ((t (:background ,base02))))
(diff-removed ((t (:foreground ,red :inverse-video t)))) (custom-comment-tag ((t (:background ,base02))))
(diff-header ((t (:background ,base01)))) (custom-documentation ((t (:inherit default))))
(diff-file-header (custom-group-tag ((t (:foreground ,orange :weight ,bold))))
((t (:background ,base1 :foreground ,base01 :weight ,bold)))) (custom-link ((t (:foreground ,violet))))
(diff-refine-change ((t (:background ,base1)))) (custom-state ((t (:foreground ,green))))
;; IDO (custom-variable-tag ((t (:foreground ,orange :weight ,bold))))
(ido-only-match ((t (:foreground ,green)))) ;; diff
(ido-subdir ((t (:foreground ,blue)))) (diff-added ((t (:foreground ,green :inverse-video t))))
(ido-first-match ((t (:foreground ,green :weight ,bold)))) (diff-changed ((t (:foreground ,yellow :inverse-video t))))
;; emacs-wiki (diff-removed ((t (:foreground ,red :inverse-video t))))
(emacs-wiki-bad-link-face (diff-header ((t (:background ,base01))))
((t (:foreground ,red :underline ,underline)))) (diff-file-header
(emacs-wiki-link-face ((t (:foreground ,blue :underline ,underline)))) ((t (:background ,base1 :foreground ,base01 :weight ,bold))))
(emacs-wiki-verbatim-face (diff-refine-change ((t (:background ,base1))))
((t (:foreground ,base00 :underline ,underline)))) ;; IDO
;; font-lock (ido-only-match ((t (:foreground ,green))))
(font-lock-builtin-face ((t (:foreground ,green)))) (ido-subdir ((t (:foreground ,blue))))
(font-lock-comment-face ((t (:foreground ,base01 :slant ,italic)))) (ido-first-match ((t (:foreground ,green :weight ,bold))))
(font-lock-constant-face ((t (:foreground ,cyan)))) ;; emacs-wiki
(font-lock-function-name-face ((t (:foreground ,blue)))) (emacs-wiki-bad-link-face
(font-lock-keyword-face ((t (:foreground ,green)))) ((t (:foreground ,red :underline ,underline))))
(font-lock-string-face ((t (:foreground ,cyan)))) (emacs-wiki-link-face
(font-lock-type-face ((t (:foreground ,yellow)))) ((t (:foreground ,blue :underline ,underline))))
(font-lock-variable-name-face ((t (:foreground ,blue)))) (emacs-wiki-verbatim-face
(font-lock-warning-face ((t (:foreground ,red :weight ,bold)))) ((t (:foreground ,base00 :underline ,underline))))
(font-lock-doc-face ((t (:foreground ,cyan :slant ,italic)))) ;; font-lock
(font-lock-color-constant-face ((t (:foreground ,green)))) (font-lock-builtin-face ((t (:foreground ,green))))
(font-lock-comment-delimiter-face (font-lock-comment-face ((t (:foreground ,base01 :slant ,italic))))
((t (:foreground ,base01 :weight ,bold)))) (font-lock-constant-face ((t (:foreground ,cyan))))
(font-lock-doc-string-face ((t (:foreground ,green)))) (font-lock-function-name-face ((t (:foreground ,blue))))
(font-lock-preprocessor-face ((t (:foreground ,orange)))) (font-lock-keyword-face ((t (:foreground ,green))))
(font-lock-reference-face ((t (:foreground ,cyan)))) (font-lock-string-face ((t (:foreground ,cyan))))
(font-lock-negation-char-face ((t (:foreground ,red)))) (font-lock-type-face ((t (:foreground ,yellow))))
(font-lock-other-type-face ((t (:foreground ,blue :slant ,italic)))) (font-lock-variable-name-face ((t (:foreground ,blue))))
(font-lock-regexp-grouping-construct ((t (:foreground ,orange)))) (font-lock-warning-face ((t (:foreground ,red :weight ,bold))))
(font-lock-special-keyword-face ((t (:foreground ,magenta)))) (font-lock-doc-face ((t (:foreground ,cyan :slant ,italic))))
(font-lock-exit-face ((t (:foreground ,red)))) (font-lock-color-constant-face ((t (:foreground ,green))))
(font-lock-other-emphasized-face (font-lock-comment-delimiter-face
((t (:foreground ,violet :weight ,bold :slant ,italic)))) ((t (:foreground ,base01 :weight ,bold))))
(font-lock-regexp-grouping-backslash ((t (:foreground ,yellow)))) (font-lock-doc-string-face ((t (:foreground ,green))))
;; info (font-lock-preprocessor-face ((t (:foreground ,orange))))
(info-xref ((t (:foreground ,blue :underline ,underline)))) (font-lock-reference-face ((t (:foreground ,cyan))))
(info-xref-visited ((t (:inherit info-xref :foreground ,magenta)))) (font-lock-negation-char-face ((t (:foreground ,red))))
;; org (font-lock-other-type-face ((t (:foreground ,blue :slant ,italic))))
(org-hide ((t (:foreground ,base03)))) (font-lock-regexp-grouping-construct ((t (:foreground ,orange))))
(org-todo ((t (:foreground ,base03 :background ,red :weight ,bold)))) (font-lock-special-keyword-face ((t (:foreground ,magenta))))
(org-done ((t (:foreground ,green :weight ,bold)))) (font-lock-exit-face ((t (:foreground ,red))))
(org-todo-kwd-face ((t (:foreground ,red :background ,base03)))) (font-lock-other-emphasized-face
(org-done-kwd-face ((t (:foreground ,green :background ,base03)))) ((t (:foreground ,violet :weight ,bold :slant ,italic))))
(org-project-kwd-face ((t (:foreground ,violet :background ,base03)))) (font-lock-regexp-grouping-backslash ((t (:foreground ,yellow))))
(org-waiting-kwd-face ((t (:foreground ,orange :background ,base03)))) ;; info
(org-someday-kwd-face ((t (:foreground ,blue :background ,base03)))) (info-xref ((t (:foreground ,blue :underline ,underline))))
(org-started-kwd-face ((t (:foreground ,yellow :background ,base03)))) (info-xref-visited ((t (:inherit info-xref :foreground ,magenta))))
(org-cancelled-kwd-face ((t (:foreground ,green :background ,base03)))) ;; org
(org-delegated-kwd-face ((t (:foreground ,cyan :background ,base03)))) (org-hide ((t (:foreground ,base03))))
;; show-paren (org-todo ((t (:foreground ,base03 :background ,red :weight ,bold))))
(show-paren-match-face ((t (:background ,cyan :foreground ,base3)))) (org-done ((t (:foreground ,green :weight ,bold))))
(show-paren-mismatch-face ((t (:background ,red :foreground ,base3)))) (org-todo-kwd-face ((t (:foreground ,red :background ,base03))))
;; widgets (org-done-kwd-face ((t (:foreground ,green :background ,base03))))
(widget-field (org-project-kwd-face
((t (:box (:line-width 1 :color ,base00) :inherit default)))) ((t (:foreground ,violet :background ,base03))))
(widget-single-line-field ((t (:inherit widget-field)))) (org-waiting-kwd-face
;; extra modules ((t (:foreground ,orange :background ,base03))))
;; ------------- (org-someday-kwd-face ((t (:foreground ,blue :background ,base03))))
;; gnus (org-started-kwd-face
(gnus-cite-1 ((t (:foreground ,magenta)))) ((t (:foreground ,yellow :background ,base03))))
(gnus-cite-2 ((t (:foreground ,base2)))) (org-cancelled-kwd-face
(gnus-cite-3 ((t (:foreground ,base3)))) ((t (:foreground ,green :background ,base03))))
(gnus-cite-4 ((t (:foreground ,base1)))) (org-delegated-kwd-face
(gnus-cite-5 ((t (:foreground ,magenta)))) ((t (:foreground ,cyan :background ,base03))))
(gnus-cite-6 ((t (:foreground ,base2)))) ;; show-paren
(gnus-cite-7 ((t (:foreground ,base3)))) (show-paren-match-face ((t (:background ,cyan :foreground ,base3))))
(gnus-cite-8 ((t (:foreground ,base1)))) (show-paren-mismatch-face
(gnus-cite-9 ((t (:foreground ,base2)))) ((t (:background ,red :foreground ,base3))))
(gnus-cite-10 ((t (:foreground ,base3)))) ;; widgets
(gnus-cite-11 ((t (:foreground ,blue)))) (widget-field
(gnus-group-mail-1 ((t (:foreground ,base3 :weight ,bold)))) ((t (:box (:line-width 1 :color ,base00) :inherit default))))
(gnus-group-mail-1-empty ((t (:foreground ,base3)))) (widget-single-line-field ((t (:inherit widget-field))))
(gnus-group-mail-2 ((t (:foreground ,base2 :weight ,bold)))) ;; extra modules
(gnus-group-mail-2-empty ((t (:foreground ,base2)))) ;; -------------
(gnus-group-mail-3 ((t (:foreground ,magenta :weight ,bold)))) ;; gnus
(gnus-group-mail-3-empty ((t (:foreground ,magenta)))) (gnus-cite-1 ((t (:foreground ,magenta))))
(gnus-group-mail-low ((t (:foreground ,base00 :weight ,bold)))) (gnus-cite-2 ((t (:foreground ,base2))))
(gnus-group-mail-low-empty ((t (:foreground ,base00)))) (gnus-cite-3 ((t (:foreground ,base3))))
(gnus-group-news-1 ((t (:foreground ,base1 :weight ,bold)))) (gnus-cite-4 ((t (:foreground ,base1))))
(gnus-group-news-1-empty ((t (:foreground ,base1)))) (gnus-cite-5 ((t (:foreground ,magenta))))
(gnus-group-news-2 ((t (:foreground ,blue :weight ,bold)))) (gnus-cite-6 ((t (:foreground ,base2))))
(gnus-group-news-2-empty ((t (:foreground ,blue)))) (gnus-cite-7 ((t (:foreground ,base3))))
(gnus-group-news-low ((t (:foreground ,violet :weight ,bold)))) (gnus-cite-8 ((t (:foreground ,base1))))
(gnus-group-news-low-empty ((t (:foreground ,violet)))) (gnus-cite-9 ((t (:foreground ,base2))))
(gnus-header-content ((t (:foreground ,cyan :slant ,italic)))) (gnus-cite-10 ((t (:foreground ,base3))))
(gnus-header-from ((t (:foreground ,base2)))) (gnus-cite-11 ((t (:foreground ,blue))))
(gnus-header-name ((t (:foreground ,blue)))) (gnus-group-mail-1 ((t (:foreground ,base3 :weight ,bold))))
(gnus-header-newsgroups ((t (:foreground ,green :slant ,italic)))) (gnus-group-mail-1-empty ((t (:foreground ,base3))))
(gnus-header-subject ((t (:foreground ,base1)))) (gnus-group-mail-2 ((t (:foreground ,base2 :weight ,bold))))
(gnus-server-agent ((t (:foreground ,base3 :weight ,bold)))) (gnus-group-mail-2-empty ((t (:foreground ,base2))))
(gnus-server-closed ((t (:foreground ,base1 :slant ,italic)))) (gnus-group-mail-3 ((t (:foreground ,magenta :weight ,bold))))
(gnus-server-denied ((t (:foreground ,base2 :weight ,bold)))) (gnus-group-mail-3-empty ((t (:foreground ,magenta))))
(gnus-server-offline ((t (:foreground ,green :weight ,bold)))) (gnus-group-mail-low ((t (:foreground ,base00 :weight ,bold))))
(gnus-server-opened ((t (:foreground ,cyan :weight ,bold)))) (gnus-group-mail-low-empty ((t (:foreground ,base00))))
(gnus-splash ((t (:foreground ,base2)))) (gnus-group-news-1 ((t (:foreground ,base1 :weight ,bold))))
(gnus-summary-high-ancient ((t (:foreground ,magenta :weight ,bold)))) (gnus-group-news-1-empty ((t (:foreground ,base1))))
(gnus-summary-high-read ((t (:foreground ,base1 :weight ,bold)))) (gnus-group-news-2 ((t (:foreground ,blue :weight ,bold))))
(gnus-summary-high-ticked ((t (:foreground ,base3 :weight ,bold)))) (gnus-group-news-2-empty ((t (:foreground ,blue))))
(gnus-summary-high-undownloaded (gnus-group-news-low ((t (:foreground ,violet :weight ,bold))))
((t (:foreground ,base2 :weight ,bold)))) (gnus-group-news-low-empty ((t (:foreground ,violet))))
(gnus-summary-low-ancient ((t (:foreground ,magenta :slant ,italic)))) (gnus-header-content ((t (:foreground ,cyan :slant ,italic))))
(gnus-summary-low-read ((t (:foreground ,base1 :slant ,italic)))) (gnus-header-from ((t (:foreground ,base2))))
(gnus-summary-low-ticked ((t (:foreground ,base3 :slant ,italic)))) (gnus-header-name ((t (:foreground ,blue))))
(gnus-summary-low-undownloaded (gnus-header-newsgroups ((t (:foreground ,green :slant ,italic))))
((t (:foreground ,base2 :slant ,italic)))) (gnus-header-subject ((t (:foreground ,base1))))
(gnus-summary-normal-ancient ((t (:foreground ,magenta)))) (gnus-server-agent ((t (:foreground ,base3 :weight ,bold))))
(gnus-summary-normal-read ((t (:foreground ,base1)))) (gnus-server-closed ((t (:foreground ,base1 :slant ,italic))))
(gnus-summary-normal-ticked ((t (:foreground ,base3)))) (gnus-server-denied ((t (:foreground ,base2 :weight ,bold))))
(gnus-summary-normal-undownloaded ((t (:foreground ,base2)))) (gnus-server-offline ((t (:foreground ,green :weight ,bold))))
;; Flymake (gnus-server-opened ((t (:foreground ,cyan :weight ,bold))))
(flymake-errline ((t (:background ,orange)))) (gnus-splash ((t (:foreground ,base2))))
(flymake-warnline ((t (:background ,violet)))) (gnus-summary-high-ancient
;; whitespace ((t (:foreground ,magenta :weight ,bold))))
(whitespace-empty ((t (:foreground ,red)))) (gnus-summary-high-read ((t (:foreground ,base1 :weight ,bold))))
(whitespace-hspace ((t (:foreground ,orange)))) (gnus-summary-high-ticked ((t (:foreground ,base3 :weight ,bold))))
(whitespace-indentation ((t (:foreground ,base02)))) (gnus-summary-high-undownloaded
(whitespace-space ((t (:foreground ,base02)))) ((t (:foreground ,base2 :weight ,bold))))
(whitespace-space-after-tab ((t (:foreground ,cyan)))) (gnus-summary-low-ancient
(whitespace-space-before-tab ((t (:foreground ,red :weight ,bold)))) ((t (:foreground ,magenta :slant ,italic))))
(whitespace-tab ((t (:foreground ,base02)))) (gnus-summary-low-read ((t (:foreground ,base1 :slant ,italic))))
(whitespace-trailing (gnus-summary-low-ticked ((t (:foreground ,base3 :slant ,italic))))
((t (:background ,base02 :foreground ,red :weight ,bold)))) (gnus-summary-low-undownloaded
(whitespace-highlight-face ((t (:background ,blue :foreground ,red)))) ((t (:foreground ,base2 :slant ,italic))))
;; Message (gnus-summary-normal-ancient ((t (:foreground ,magenta))))
(message-mml ((t (:foreground ,blue)))) (gnus-summary-normal-read ((t (:foreground ,base1))))
(message-cited-text ((t (:foreground ,base2)))) (gnus-summary-normal-ticked ((t (:foreground ,base3))))
(message-separator ((t (:foreground ,base3)))) (gnus-summary-normal-undownloaded ((t (:foreground ,base2))))
(message-header-xheader ((t (:foreground ,violet)))) ;; Flymake
(message-header-name ((t (:foreground ,cyan)))) (flymake-errline ((t (:background ,orange))))
(message-header-other ((t (:foreground ,red)))) (flymake-warnline ((t (:background ,violet))))
(message-header-newsgroups ;; whitespace
((t (:foreground ,yellow :weight ,bold :slant ,italic)))) (whitespace-empty ((t (:foreground ,red))))
(message-header-subject ((t (:foreground ,base00)))) (whitespace-hspace ((t (:foreground ,orange))))
(message-header-cc ((t (:foreground ,green :weight ,bold)))) (whitespace-indentation ((t (:foreground ,base02))))
(message-header-to ((t (:foreground ,base1 :weight ,bold))))) (whitespace-space ((t (:foreground ,base02))))
((foreground-color . ,base0) (whitespace-space-after-tab ((t (:foreground ,cyan))))
(background-color . ,base03) (whitespace-space-before-tab ((t (:foreground ,red :weight ,bold))))
(background-mode . ,mode) (whitespace-tab ((t (:foreground ,base02))))
(cursor-color . ,base0)))))) (whitespace-trailing
((t (:background ,base02 :foreground ,red :weight ,bold))))
(whitespace-highlight-face
((t (:background ,blue :foreground ,red))))
;; Message
(message-mml ((t (:foreground ,blue))))
(message-cited-text ((t (:foreground ,base2))))
(message-separator ((t (:foreground ,base3))))
(message-header-xheader ((t (:foreground ,violet))))
(message-header-name ((t (:foreground ,cyan))))
(message-header-other ((t (:foreground ,red))))
(message-header-newsgroups
((t (:foreground ,yellow :weight ,bold :slant ,italic))))
(message-header-subject ((t (:foreground ,base00))))
(message-header-cc ((t (:foreground ,green :weight ,bold))))
(message-header-to ((t (:foreground ,base1 :weight ,bold)))))
((foreground-color . ,base0)
(background-color . ,base03)
(background-mode . ,mode)
(cursor-color . ,base0)))))))
(defmacro create-solarized-theme (mode) (defmacro create-solarized-theme (mode)
(let* ((theme-name (intern (concat "solarized-" (symbol-name mode)))) (let* ((theme-name (intern (concat "solarized-" (symbol-name mode))))