From e4fb3b4c9b4a7982dce67a90db7b590a59b7af08 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Fri, 4 Oct 2013 17:11:06 +0200 Subject: [PATCH] Added the colorization of the counters. --- text-counters.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.20.1