From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: Colourful display? [was Re: mail-yank-original problem] Date: Fri, 11 Jul 2014 14:42:41 +0200 Organization: Aioe.org NNTP Server Message-ID: <87mwcgqd6m.fsf@debian.uxu> References: <87sim867jm.fsf@debian.uxu> <87vbr48bhv.fsf_-_@skimble.plus.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1405082727 15734 80.91.229.3 (11 Jul 2014 12:45:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 11 Jul 2014 12:45:27 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Jul 11 14:45:22 2014 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1X5aCX-0002F1-Ot for geh-help-gnu-emacs@m.gmane.org; Fri, 11 Jul 2014 14:45:22 +0200 Original-Received: from localhost ([::1]:44583 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X5aCX-0007Ef-DD for geh-help-gnu-emacs@m.gmane.org; Fri, 11 Jul 2014 08:45:21 -0400 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.xs4all.nl!newsfeed1a.news.xs4all.nl!xs4all!news.stack.nl!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 101 Original-NNTP-Posting-Host: SIvZRMPqRkkTHAHL6NkRuw.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:tFqnIMJneDoepUtyjIjCFjgbRM8= Original-Xref: usenet.stanford.edu gnu.emacs.help:206381 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:98653 Archived-At: Sharon Kimble 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