From: Francois Fleuret <francois@fleuret.org>
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 <francois@fleuret.org> 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