jao-maildir: hightlight face

1 files changed, 13 insertions, 4 deletions

diff --git a/net/jao-maildir.el b/net/jao-maildir.el
index f8edcae..41b5ecc 100644
--- a/net/jao-maildir.el
+++ b/net/jao-maildir.el
@@ -57,6 +57,12 @@
                       (if mailp jao-maildir-mode-line-string "")
                       (or (format-mode-line jao-maildir-additional-info) ""))))))
 
+(defgroup jao-maildir-faces nil "Faces"
+  :group 'faces)
+
+(defface jao-maildir-emph '((t :inherit font-lock-keyword-face))
+  "Face used to highlihgt non-boring tracked maildirs")
+
 (defun jao-maildir--update-mode-line-string ()
   (let ((total 0)
         (counts))
@@ -64,12 +70,15 @@
       (when (> (cdr c) 0)
         (let* ((m (car c))
                (n (cdr c))
-               (a (cdr (assoc m jao-maildir-tracked-maildirs))))
+               (a (assoc m jao-maildir-tracked-maildirs))
+               (an (cadr a))
+               (ab (caddr a))
+               (am (when a (format "%s%s" an n)))
+               (am (when am (if ab am (propertize am 'face 'jao-maildir-emph)))))
           (when (null a) (setq total (+ n total)))
-          (when a (push (format "%s%s" a n) counts)))))
+          (when a (if ab (push am counts) (nconc counts (list am)))))))
     (let* ((total (if (> total 0) (format " %d " total) " "))
-           (s (propertize (mapconcat 'identity counts " ")
-                          'face 'font-lock-function-name-face))
+           (s (mapconcat 'identity counts " "))
            (s (if (string-empty-p s) s (concat s " "))))
       (setq jao-maildir-mode-line-string (format "%s%s" total s))
       (when jao-maildir-echo-p (jao-maildir-refresh-echo))