From 43129ccf04b230bf4620c666b75c1bafba219090 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
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