Re: Setting font faces

Re: Setting font faces

[Rendhalver [Peter Brown]]

>>>>> "Paul" == Paul Moore <gustav@morpheus.demon.co.uk> writes:

    Paul> I'm trying to customise fonts in Gnus (just for the fun of
    Paul> it, mainly) and it's harder than the manual implies. If I
    Paul> use the Customize interface to change, say, the font of
    Paul> gnus-group-news-3-face (the one used in the group buffer)
    Paul> the change doesn't seem to "take".

    Paul> If I use (set-face-font 'gnus-group-news-3-face "Comic Sans
    Paul> MS:Regular:10::Western")

    Paul> that works fine.

hey paul 
i have this in my .gnus file

it works for me :)
you might want to change the colours and the frame-background-mode tho 
im not sure of the options to change the font
but it will be in the docs for the defface function

;; face customisation
;; group face customisation

(cond (window-system
       (setq frame-background-mode 'dark)
       (defface my-group-face-1
     	 '((t (:foreground "Red" :bold t)))
            "First group face")
       (defface my-group-face-2
     	 '((t (:foreground "DarkSeaGreen4" :bold t)))
            "Second group face")
       (defface my-group-face-3
     	 '((t (:foreground "Green4" :bold t)))
            "Third group face")
       (defface my-group-face-4
     	 '((t (:foreground "SteelBlue" :bold t)))
            "Fourth group face")
       (defface my-group-face-5
     	 '((t (:foreground "Blue" :bold t)))
            "Fifth group face")
       (defface my-head-to-face
	 '((t (:foreground "green" t)))
            "To header face")
       (defface my-head-to-cont-face
	 '((t (:foreground "green" :bold t)))
            "To header content face")
       (defface my-head-from-face
	 '((t (:foreground "red" t)))
            "From header face")
       (defface my-head-from-cont-face
	 '((t (:foreground "red" :bold t)))
            "From content header face")
       (defface my-head-subj-face
	 '((t (:foreground "white" t)))
            "Subject header face")
       (defface my-head-subj-cont-face
	 '((t (:foreground "white" :bold t)))
         "Subject content header face")
       (defface my-head-gen-face
	 '((t (:foreground "lightblue" t)))
            "General header face")
       (defface my-head-gen-cont-face
	 '((t (:foreground "lightblue" :bold t)))
            "General content header face")))

(setq gnus-group-highlight
      '(((> unread 200) . my-group-face-1)
	((and (< level 3) (zerop unread)) . my-group-face-2)
	((< level 3) . my-group-face-3)
	((zerop unread) . my-group-face-4)
	(t . my-group-face-5)))

(setq gnus-header-face-alist
      (list
       '("To:\\|Cc:" my-head-to-face my-head-to-cont-face)
       '("From:\\|Sender:" my-head-from-face my-head-from-cont-face)
       '("Subject:" my-head-subj-face my-head-subj-cont-face)
       '(".*" my-head-gen-face my-head-gen-cont-face)
       ))



-- 
 XEmacs Advocate | I've seen things you people wouldnt believe.
 FreeBSD Devote  | Attack ships on fire of the shores of orion ...
 Perl Hacker     | All those moments will be lost in time, 
 Apache God      | like tears in the rain. Time to die.. roy batty - bladerunner