From 43129ccf04b230bf4620c666b75c1bafba219090 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 14 Oct 2020 02:17:27 +0100 Subject: jao-maildir: hightlight face --- net/jao-maildir.el | 17 +++++++++++++---- 1 file 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)) -- cgit v1.2.3