From b578ea8ef8becf568b721a55f7366abcedc76097 Mon Sep 17 00:00:00 2001 From: cmm Date: Sat, 9 Apr 2011 00:33:16 +0300 Subject: [PATCH 1/4] Gnus (not perfect but does not hurt the eyes any more), font-lock-doc, comint-prompt, diff headers --- color-theme-solarized.el | 58 +++++++++++++++++++++++++++++++++++++++- 1 file changed, 57 insertions(+), 1 deletion(-) diff --git a/color-theme-solarized.el b/color-theme-solarized.el index a08d7c2..471aa9c 100755 --- a/color-theme-solarized.el +++ b/color-theme-solarized.el @@ -86,6 +86,9 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (diff-added ((t (:foreground ,green :inverse-video t)))) (diff-changed ((t (:foreground ,yellow :inverse-video t)))) (diff-removed ((t (:foreground ,red :inverse-video t)))) + (diff-header ((t (:background ,base01)))) + (diff-file-header ((t (:background ,base1 :foreground ,base01 :bold t)))) + (diff-refine-change ((t (:background ,base1)))) ;; emacs-wiki (emacs-wiki-bad-link-face ((t (:foreground ,red :underline t)))) (emacs-wiki-link-face ((t (:foreground ,blue :underline t)))) @@ -100,6 +103,7 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (font-lock-type-face ((t (:foreground ,yellow)))) (font-lock-variable-name-face ((t (:foreground ,blue)))) (font-lock-warning-face ((t (:foreground ,red :bold t)))) + (font-lock-doc-face ((t (:foreground ,cyan :italic t)))) ;; info (info-xref ((t (:foreground ,blue :underline t)))) (info-xref-visited ((t (:inherit info-xref :foreground ,magenta)))) @@ -109,7 +113,59 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (org-done ((t (:foreground ,green :bold t)))) ;; show-paren (show-paren-match-face ((t (:background ,cyan :foreground ,base3)))) - (show-paren-mismatch-face ((t (:background ,red :foreground ,base3)))))))) + (show-paren-mismatch-face ((t (:background ,red :foreground ,base3)))) + ;; comint + (comint-highlight-prompt ((t (:foreground ,blue)))) + ;; gnus + (gnus-cite-1 ((t (:foreground ,base2)))) + (gnus-cite-10 ((t (:foreground ,magenta)))) + (gnus-cite-11 ((t (:foreground ,violet)))) + (gnus-cite-2 ((t (:foreground ,red)))) + (gnus-cite-3 ((t (:foreground ,base3)))) + (gnus-cite-4 ((t (:foreground ,base2)))) + (gnus-cite-5 ((t (:foreground ,base1)))) + (gnus-cite-6 ((t (:foreground ,base3)))) + (gnus-cite-7 ((t (:foreground ,green)))) + (gnus-cite-8 ((t (:foreground ,base3)))) + (gnus-cite-9 ((t (:foreground ,base2)))) + (gnus-group-mail-1 ((t (:foreground ,base3 :bold t)))) + (gnus-group-mail-1-empty ((t (:foreground ,base3)))) + (gnus-group-mail-2 ((t (:foreground ,base2 :bold t)))) + (gnus-group-mail-2-empty ((t (:foreground ,base2)))) + (gnus-group-mail-3 ((t (:foreground ,base1 :bold t)))) + (gnus-group-mail-3-empty ((t (:foreground ,base1)))) + (gnus-group-mail-low ((t (:foreground ,magenta :bold t)))) + (gnus-group-mail-low-empty ((t (:foreground ,magenta)))) + (gnus-group-news-1 ((t (:foreground ,base2 :bold t)))) + (gnus-group-news-1-empty ((t (:foreground ,base2)))) + (gnus-group-news-2 ((t (:foreground ,blue :bold t)))) + (gnus-group-news-2-empty ((t (:foreground ,blue)))) + (gnus-group-news-low ((t (:foreground ,violet :bold t)))) + (gnus-group-news-low-empty ((t (:foreground ,violet)))) + (gnus-header-content ((t (:foreground ,base2 :italic t)))) + (gnus-header-from ((t (:foreground ,base1)))) + (gnus-header-name ((t (:foreground ,blue)))) + (gnus-header-newsgroups ((t (:foreground ,green :italic t)))) + (gnus-header-subject ((t (:foreground ,green)))) + (gnus-server-agent ((t (:foreground ,base3 :bold t)))) + (gnus-server-closed ((t (:foreground ,base2 :italic t)))) + (gnus-server-denied ((t (:foreground ,red :bold t)))) + (gnus-server-offline ((t (:foreground ,yellow :bold t)))) + (gnus-server-opened ((t (:foreground ,cyan :bold t)))) + (gnus-splash ((t (:foreground ,base2)))) + (gnus-summary-cancelled ((t (:foreground "yellow" :background "black")))) + (gnus-summary-high-ancient ((t (:foreground ,base1 :bold t)))) + (gnus-summary-high-read ((t (:foreground ,base0 :bold t)))) + (gnus-summary-high-ticked ((t (:foreground ,base2 :bold t)))) + (gnus-summary-high-undownloaded ((t (:foreground ,cyan :bold t)))) + (gnus-summary-low-ancient ((t (:foreground ,base1 :italic t)))) + (gnus-summary-low-read ((t (:foreground ,base0 :italic t)))) + (gnus-summary-low-ticked ((t (:foreground ,base2 :italic t)))) + (gnus-summary-low-undownloaded ((t (:foreground ,cyan :italic t)))) + (gnus-summary-normal-ancient ((t (:foreground ,base1)))) + (gnus-summary-normal-read ((t (:foreground ,base0)))) + (gnus-summary-normal-ticked ((t (:foreground ,base2)))) + (gnus-summary-normal-undownloaded ((t (:foreground ,cyan)))))))) (defun color-theme-solarized-dark () (interactive) From 3b134d334c933017e37dc89d6a27d499e92a561e Mon Sep 17 00:00:00 2001 From: cmm Date: Sun, 10 Apr 2011 10:54:48 +0300 Subject: [PATCH 2/4] Better variety in Gnus colors --- color-theme-solarized.el | 47 ++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 24 deletions(-) diff --git a/color-theme-solarized.el b/color-theme-solarized.el index 471aa9c..e288564 100755 --- a/color-theme-solarized.el +++ b/color-theme-solarized.el @@ -117,55 +117,54 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." ;; comint (comint-highlight-prompt ((t (:foreground ,blue)))) ;; gnus - (gnus-cite-1 ((t (:foreground ,base2)))) - (gnus-cite-10 ((t (:foreground ,magenta)))) - (gnus-cite-11 ((t (:foreground ,violet)))) - (gnus-cite-2 ((t (:foreground ,red)))) + (gnus-cite-1 ((t (:foreground ,base1)))) + (gnus-cite-2 ((t (:foreground ,base2)))) (gnus-cite-3 ((t (:foreground ,base3)))) - (gnus-cite-4 ((t (:foreground ,base2)))) + (gnus-cite-4 ((t (:foreground ,cyan)))) (gnus-cite-5 ((t (:foreground ,base1)))) (gnus-cite-6 ((t (:foreground ,base3)))) (gnus-cite-7 ((t (:foreground ,green)))) - (gnus-cite-8 ((t (:foreground ,base3)))) + (gnus-cite-8 ((t (:foreground ,magenta)))) (gnus-cite-9 ((t (:foreground ,base2)))) + (gnus-cite-10 ((t (:foreground ,base3)))) + (gnus-cite-11 ((t (:foreground ,blue)))) (gnus-group-mail-1 ((t (:foreground ,base3 :bold t)))) (gnus-group-mail-1-empty ((t (:foreground ,base3)))) (gnus-group-mail-2 ((t (:foreground ,base2 :bold t)))) (gnus-group-mail-2-empty ((t (:foreground ,base2)))) - (gnus-group-mail-3 ((t (:foreground ,base1 :bold t)))) - (gnus-group-mail-3-empty ((t (:foreground ,base1)))) - (gnus-group-mail-low ((t (:foreground ,magenta :bold t)))) - (gnus-group-mail-low-empty ((t (:foreground ,magenta)))) - (gnus-group-news-1 ((t (:foreground ,base2 :bold t)))) - (gnus-group-news-1-empty ((t (:foreground ,base2)))) + (gnus-group-mail-3 ((t (:foreground ,magenta :bold t)))) + (gnus-group-mail-3-empty ((t (:foreground ,magenta)))) + (gnus-group-mail-low ((t (:foreground ,base0 :bold t)))) + (gnus-group-mail-low-empty ((t (:foreground ,base0)))) + (gnus-group-news-1 ((t (:foreground ,base1 :bold t)))) + (gnus-group-news-1-empty ((t (:foreground ,base1)))) (gnus-group-news-2 ((t (:foreground ,blue :bold t)))) (gnus-group-news-2-empty ((t (:foreground ,blue)))) (gnus-group-news-low ((t (:foreground ,violet :bold t)))) (gnus-group-news-low-empty ((t (:foreground ,violet)))) - (gnus-header-content ((t (:foreground ,base2 :italic t)))) + (gnus-header-content ((t (:foreground ,cyan :italic t)))) (gnus-header-from ((t (:foreground ,base1)))) (gnus-header-name ((t (:foreground ,blue)))) (gnus-header-newsgroups ((t (:foreground ,green :italic t)))) - (gnus-header-subject ((t (:foreground ,green)))) + (gnus-header-subject ((t (:foreground ,base0)))) (gnus-server-agent ((t (:foreground ,base3 :bold t)))) - (gnus-server-closed ((t (:foreground ,base2 :italic t)))) - (gnus-server-denied ((t (:foreground ,red :bold t)))) - (gnus-server-offline ((t (:foreground ,yellow :bold t)))) + (gnus-server-closed ((t (:foreground ,base1 :italic t)))) + (gnus-server-denied ((t (:foreground ,base2 :bold t)))) + (gnus-server-offline ((t (:foreground ,green :bold t)))) (gnus-server-opened ((t (:foreground ,cyan :bold t)))) (gnus-splash ((t (:foreground ,base2)))) - (gnus-summary-cancelled ((t (:foreground "yellow" :background "black")))) (gnus-summary-high-ancient ((t (:foreground ,base1 :bold t)))) (gnus-summary-high-read ((t (:foreground ,base0 :bold t)))) - (gnus-summary-high-ticked ((t (:foreground ,base2 :bold t)))) - (gnus-summary-high-undownloaded ((t (:foreground ,cyan :bold t)))) + (gnus-summary-high-ticked ((t (:foreground ,base3 :bold t)))) + (gnus-summary-high-undownloaded ((t (:foreground ,base2 :bold t)))) (gnus-summary-low-ancient ((t (:foreground ,base1 :italic t)))) (gnus-summary-low-read ((t (:foreground ,base0 :italic t)))) - (gnus-summary-low-ticked ((t (:foreground ,base2 :italic t)))) - (gnus-summary-low-undownloaded ((t (:foreground ,cyan :italic t)))) + (gnus-summary-low-ticked ((t (:foreground ,base3 :italic t)))) + (gnus-summary-low-undownloaded ((t (:foreground ,base2 :italic t)))) (gnus-summary-normal-ancient ((t (:foreground ,base1)))) (gnus-summary-normal-read ((t (:foreground ,base0)))) - (gnus-summary-normal-ticked ((t (:foreground ,base2)))) - (gnus-summary-normal-undownloaded ((t (:foreground ,cyan)))))))) + (gnus-summary-normal-ticked ((t (:foreground ,base3)))) + (gnus-summary-normal-undownloaded ((t (:foreground ,base2)))))))) (defun color-theme-solarized-dark () (interactive) From 5a3d62f93b0090c7e9da5a846f219db7ec6f81c2 Mon Sep 17 00:00:00 2001 From: cmm Date: Sun, 10 Apr 2011 20:48:31 +0300 Subject: [PATCH 3/4] Even more variety, plus Message --- color-theme-solarized.el | 45 +++++++++++++++++++++++++--------------- 1 file changed, 28 insertions(+), 17 deletions(-) diff --git a/color-theme-solarized.el b/color-theme-solarized.el index e288564..4e3d9c8 100755 --- a/color-theme-solarized.el +++ b/color-theme-solarized.el @@ -117,14 +117,14 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." ;; comint (comint-highlight-prompt ((t (:foreground ,blue)))) ;; gnus - (gnus-cite-1 ((t (:foreground ,base1)))) + (gnus-cite-1 ((t (:foreground ,magenta)))) (gnus-cite-2 ((t (:foreground ,base2)))) (gnus-cite-3 ((t (:foreground ,base3)))) - (gnus-cite-4 ((t (:foreground ,cyan)))) - (gnus-cite-5 ((t (:foreground ,base1)))) - (gnus-cite-6 ((t (:foreground ,base3)))) - (gnus-cite-7 ((t (:foreground ,green)))) - (gnus-cite-8 ((t (:foreground ,magenta)))) + (gnus-cite-4 ((t (:foreground ,base1)))) + (gnus-cite-5 ((t (:foreground ,magenta)))) + (gnus-cite-6 ((t (:foreground ,base2)))) + (gnus-cite-7 ((t (:foreground ,base3)))) + (gnus-cite-8 ((t (:foreground ,base1)))) (gnus-cite-9 ((t (:foreground ,base2)))) (gnus-cite-10 ((t (:foreground ,base3)))) (gnus-cite-11 ((t (:foreground ,blue)))) @@ -134,8 +134,8 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (gnus-group-mail-2-empty ((t (:foreground ,base2)))) (gnus-group-mail-3 ((t (:foreground ,magenta :bold t)))) (gnus-group-mail-3-empty ((t (:foreground ,magenta)))) - (gnus-group-mail-low ((t (:foreground ,base0 :bold t)))) - (gnus-group-mail-low-empty ((t (:foreground ,base0)))) + (gnus-group-mail-low ((t (:foreground ,base00 :bold t)))) + (gnus-group-mail-low-empty ((t (:foreground ,base00)))) (gnus-group-news-1 ((t (:foreground ,base1 :bold t)))) (gnus-group-news-1-empty ((t (:foreground ,base1)))) (gnus-group-news-2 ((t (:foreground ,blue :bold t)))) @@ -143,28 +143,39 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (gnus-group-news-low ((t (:foreground ,violet :bold t)))) (gnus-group-news-low-empty ((t (:foreground ,violet)))) (gnus-header-content ((t (:foreground ,cyan :italic t)))) - (gnus-header-from ((t (:foreground ,base1)))) + (gnus-header-from ((t (:foreground ,base2)))) (gnus-header-name ((t (:foreground ,blue)))) (gnus-header-newsgroups ((t (:foreground ,green :italic t)))) - (gnus-header-subject ((t (:foreground ,base0)))) + (gnus-header-subject ((t (:foreground ,base1)))) (gnus-server-agent ((t (:foreground ,base3 :bold t)))) (gnus-server-closed ((t (:foreground ,base1 :italic t)))) (gnus-server-denied ((t (:foreground ,base2 :bold t)))) (gnus-server-offline ((t (:foreground ,green :bold t)))) (gnus-server-opened ((t (:foreground ,cyan :bold t)))) (gnus-splash ((t (:foreground ,base2)))) - (gnus-summary-high-ancient ((t (:foreground ,base1 :bold t)))) - (gnus-summary-high-read ((t (:foreground ,base0 :bold t)))) + (gnus-summary-high-ancient ((t (:foreground ,magenta :bold t)))) + (gnus-summary-high-read ((t (:foreground ,base1 :bold t)))) (gnus-summary-high-ticked ((t (:foreground ,base3 :bold t)))) (gnus-summary-high-undownloaded ((t (:foreground ,base2 :bold t)))) - (gnus-summary-low-ancient ((t (:foreground ,base1 :italic t)))) - (gnus-summary-low-read ((t (:foreground ,base0 :italic t)))) + (gnus-summary-low-ancient ((t (:foreground ,magenta :italic t)))) + (gnus-summary-low-read ((t (:foreground ,base1 :italic t)))) (gnus-summary-low-ticked ((t (:foreground ,base3 :italic t)))) (gnus-summary-low-undownloaded ((t (:foreground ,base2 :italic t)))) - (gnus-summary-normal-ancient ((t (:foreground ,base1)))) - (gnus-summary-normal-read ((t (:foreground ,base0)))) + (gnus-summary-normal-ancient ((t (:foreground ,magenta)))) + (gnus-summary-normal-read ((t (:foreground ,base1)))) (gnus-summary-normal-ticked ((t (:foreground ,base3)))) - (gnus-summary-normal-undownloaded ((t (:foreground ,base2)))))))) + (gnus-summary-normal-undownloaded ((t (:foreground ,base2)))) + ;; 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 :bold t :italic t)))) + (message-header-subject ((t (:foreground ,base00)))) + (message-header-cc ((t (:foreground ,green :bold t)))) + (message-header-to ((t (:foreground ,base1 :bold t)))))))) (defun color-theme-solarized-dark () (interactive) From f14af216856f7fdc43e3896c95fa10a8689e465c Mon Sep 17 00:00:00 2001 From: cmm Date: Tue, 12 Apr 2011 16:29:42 +0300 Subject: [PATCH 4/4] typo: forground -> foreground --- color-theme-solarized.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/color-theme-solarized.el b/color-theme-solarized.el index 4e3d9c8..0cb0380 100755 --- a/color-theme-solarized.el +++ b/color-theme-solarized.el @@ -66,7 +66,7 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (trailing-whitespace ((t (:foreground ,red :inverse-video t)))) (vertical-border ((t (:foreground ,base0)))) ;; compilation - (compilation-info ((t (:forground ,green :bold t)))) + (compilation-info ((t (:foreground ,green :bold t)))) (compilation-warning ((t (:foreground ,orange :bold t)))) ;; customize (custom-button