Re: Colourful display? [was Re: mail-yank-original problem]

[Emanuel Berg]

Sharon Kimble <boudiccas@skimble.plus.com> writes:

> How do you get your display so colourful please? What
> theme are you using in the screenshot please?

Ho-ho-ho, "theme"! :) :) No, those colors and
everything are setup face-by-face,
variable-by-variable. Make it work, by outworking the
opposition...

Look below. I might forget something but this should be
almost all of it. The custom stuff is not really custom
- just edit it by hand! The cool thing is that you can
use eval-defun (bind it to a keystroke) to immediately
see whatever change you do, on-screen - so it is very
interactive, very nice for testing. The lame thing is
that now and then custom will screw it up the
indentation so don't bother making it neat with this
solution.

If you need to see it in context, everything should be
here exactly as I use it:

http://user.it.uu.se/~embe8573/gnus/index.html

If you are into colors I happen to have a page on that
as well:

http://user.it.uu.se/~embe8573/cols/www/index.html

- but note: the method of setting the colors (with sed)
isn't going to work for you if you use X (very
likely). However, the colors in the Elisp below ("red"
etc.) might still work and you may like them. If not,
just start working setting them one-by-one to what you
like...

OK, ready?

;; faces to be used in format lines
(setq gnus-face-0 'bold)
(setq gnus-face-1 'italic)
(setq gnus-face-2 'bold-italic)
(setq gnus-face-3 'gnus-cite-4)

;; group buffer
(setq gnus-group-line-format "%0{%L%}%3=%2{%2~(ignore 
\"0\")T%}%6=%G%30=%1{%6~(ignore \"0\")y%}\n") ; group line
(setq gnus-group-mode-line-format "%M%: %S") ; mode line

;; summary buffer
(setq gnus-summary-line-format "%U %2{%R%} %I%0{%a%} %1{%s%}\n") ; message line
(setq gnus-summary-mode-line-format "%G") ; mode line

(custom-set-faces
 '(bold ((t (:bold t :foreground "blue"))))
 '(bold-italic ((t (:bold t :foreground "magenta"))))
 '(gnus-button ((t (:foreground "green" :bold nil))))
 '(gnus-cite-1 ((t (:foreground "yellow" :bold nil))))
 '(gnus-cite-2 ((t (:foreground "magenta" :bold t))))
 '(gnus-cite-3 ((t (:foreground "green" :bold nil))))
 '(gnus-cite-4 ((t (:foreground "red" :bold t))))
 '(gnus-cite-attribution ((t (:foreground "yellow" :bold nil))))
 '(gnus-group-mail-1 ((t (:foreground "yellow" :bold t))))
 '(gnus-group-mail-1-empty ((t (:foreground "yellow" :bold nil))))
 '(gnus-group-mail-2 ((t (:foreground "cyan" :bold t))))
 '(gnus-group-mail-2-empty ((t (:foreground "cyan" :bold nil))))
 '(gnus-group-mail-3 ((t (:foreground "white" :bold t))))
 '(gnus-group-mail-3-empty ((t (:foreground "white" :bold nil))))
 '(gnus-group-mail-low ((t (:foreground "black" :bold t))))
 '(gnus-group-mail-low-empty ((t (:foreground "black" :bold t))))
 '(gnus-group-news-1 ((t (:foreground "cyan" :bold t))))
 '(gnus-group-news-1-empty ((t (:foreground "cyan" :bold nil))))
 '(gnus-group-news-2 ((t (:foreground "cyan" :bold t))))
 '(gnus-group-news-2-empty ((t (:foreground "cyan" :bold nil))))
 '(gnus-group-news-3 ((t (:foreground "blue" :bold t))))
 '(gnus-group-news-3-empty ((t (:foreground "blue" :bold nil))))
 '(gnus-group-news-4 ((t (:foreground "blue" :bold t))))
 '(gnus-group-news-4-empty ((t (:foreground "blue" :bold nil))))
 '(gnus-group-news-5 ((t (:foreground "green" :bold t))))
 '(gnus-group-news-5-empty ((t (:foreground "green" :bold nil))))
 '(gnus-group-news-6 ((t (:foreground "blue" :bold t))))
 '(gnus-group-news-6-empty ((t (:foreground "blue" :bold nil))))
 '(gnus-summary-normal-ancient ((t (:foreground "blue" :background "black" 
:bold nil))))
 '(gnus-summary-normal-read ((t (:foreground "yellow" :background "black" :bold 
nil))))
 '(gnus-summary-normal-ticked ((t (:foreground "red" :background "black" :bold 
t))))
 '(gnus-summary-selected ((t (:foreground "white" :background "blue" :bold 
nil))))
 '(gnus-summary-selected ((t (:foreground "white" :background "blue" :bold 
nil))))
 '(italic ((t (:bold nil :foreground "green"))))
 '(message-cited-text ((t (:foreground "green" :bold nil))))
 '(message-header-cc ((t (:foreground "blue" :bold t))))
 '(message-header-name ((t (:foreground "black" :bold t))))
 '(message-header-newsgroups ((t (:foreground "yellow" :bold nil))))
 '(message-header-other ((t (:foreground "white" :bold nil))))
 '(message-header-subject ((t (:foreground "magenta" :bold t))))
 '(message-header-to ((t (:foreground "green" :bold t))))
 '(mm-uu-extract ((t (:background "black"))))
 '(widget-button ((t (:foreground "green" :bold nil))))
 '(widget-field ((t (:foreground "black" :background "yellow")))) )

-- 
underground experts united