From: Francois Fleuret Date: Fri, 4 Oct 2013 15:11:06 +0000 (+0200) Subject: Added the colorization of the counters. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4fb3b4c9b4a7982dce67a90db7b590a59b7af08;p=elisp.git Added the colorization of the counters. --- diff --git a/text-counters.el b/text-counters.el index 484bc94..fb24df7 100644 --- a/text-counters.el +++ b/text-counters.el @@ -18,6 +18,11 @@ ;; Contact for comments & bug reports ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defface tc/modeline-face + '((((background light)) (:foreground "blue4")) + (((background dark)) (:foreground "cyan"))) + "The face for the alarm-vc modeline message.") + ;; Counts the number of words and characters between the previous and ;; the next line of '-' (with at least four '-' in each line) @@ -30,7 +35,8 @@ (match-beginning 0))))) (when (and a b) - (format "%dw %dc " (count-words a b) (- b a)) + (propertize (format "%dw %dc " (count-words a b) (- b a)) + 'face 'tc/modeline-face) ))) ;; Add the said counters into the modeline