Font-lock for Server mode

["Joe Casadonte" <jcasadonte@northbound-train.com>]

I find myself in the server buffer a couple of times a day, for one
reason or another, and I thought a little syntax coloring based on
status would be nice.  So here it is; include it if you'd like.

I'd send in a patch if I knew how (though honestly I only poked around
for it; I'm sure there's a command somewhere that I'm missing), but
the code can go anywhere, really.  Except for the one line that needs
to go (somewhere) in `gnus-server-mode':

    (defun gnus-server-mode ()
        ...
        (setq buffer-read-only t)
=>      (set (make-local-variable 'font-lock-defaults) '(gnus-server-font-lock-keywords t))
        (gnus-run-hooks 'gnus-server-mode-hook))

and the rest:

(defface gnus-server-opened-face
  '((((class color) (background light)) (:foreground "Green3" :bold t))
    (((class color) (background dark)) (:foreground "Green1" :bold t))
    (t (:bold t)))
  "Face used for displaying OPENED servers"
  :group 'gnus-server-faces)

(defface gnus-server-closed-face
  '((((class color) (background light)) (:foreground "Steel Blue" :italic t))
    (((class color) (background dark)) (:foreground "Light Steel Blue" :italic t))
    (t (:italic t)))
  "Face used for displaying CLOSED servers"
  :group 'gnus-server-faces)

(defface gnus-server-denied-face
  '((((class color) (background light)) (:foreground "Red" :bold t))
    (((class color) (background dark)) (:foreground "Pink" :bold t))
    (t (:inverse-video t :bold t)))
  "Face used for displaying DENIED servers"
  :group 'gnus-server-faces)

(defvar gnus-server-opened-face	'gnus-server-opened-face
  "Face name to use on OPENED servers.")

(defvar gnus-server-closed-face	'gnus-server-closed-face
  "Face name to use on CLOSED servers.")

(defvar gnus-server-denied-face	'gnus-server-denied-face
  "Face name to use on DENIED servers.")

(defvar gnus-server-font-lock-keywords
  (list
   '("(\\(opened\\))" 1 gnus-server-opened-face)
   '("(\\(closed\\))" 1 gnus-server-closed-face)
   '("(\\(denied\\))" 1 gnus-server-denied-face)
   ))

--
Regards,

joe
Joe Casadonte
jcasadonte@northbound-train.com

------------------------------------------------------------------------------
         Llama Fresh Farms => http://www.northbound-train.com
   Gay Media Resource List => http://www.northbound-train.com/gaymedia.html
            Perl for Win32 => http://www.northbound-train.com/perlwin32.html
               Emacs Stuff => http://www.northbound-train.com/emacs.html
          Music CD Trading => http://www.northbound-train.com/cdr.html
------------------------------------------------------------------------------
                       Live Free, that's the message!
------------------------------------------------------------------------------