help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: modeline + appointment font color


From: Jeff Miller
Subject: Re: modeline + appointment font color
Date: 04 Dec 2003 00:12:50 -0500
User-agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.5 (brussels sprouts)

Kester Clegg <kester@cs.york.ac.uk> writes:

> My modeline warns me when I have an appointment.  It says things like:
> 
> ..   1:49 PM Wednesday 26 Nov App't in 11 min.   (Message MML ... etc)
> 
> Is there any way of changing the colour of the appt-mode-string that
> appears in the modeline, so I actually notice it?

I think this will do it for you, in Emacs at least.  


(defface appt-face
  '((t (:foreground "red" :background "white")))
  "Face to indicate a current appointment."
  :group 'appt)

(defadvice appt-disp-window (before appt-hilite-more activate)
  (when appt-mode-string
    (put-text-property 1 (- (length appt-mode-string) 1)
                       'face 'appt-face appt-mode-string)))

(defadvice appt-check (after appt-hilite activate)
  (when appt-mode-string
    (put-text-property 1 (- (length appt-mode-string) 1)
                       'face 'appt-face appt-mode-string)
    (force-mode-line-update)))

-- 
Jeff Miller
jmiller@cablespeed.com


reply via email to

[Prev in Thread] Current Thread [Next in Thread]