From e039ef8c8e8b067138951581ef6707a291a548d3 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 21 Sep 2020 22:33:28 +0100 Subject: Richer echo buffer for maildir tracker --- net/jao-maildir.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to 'net/jao-maildir.el') diff --git a/net/jao-maildir.el b/net/jao-maildir.el index 12c534a..421f8b3 100644 --- a/net/jao-maildir.el +++ b/net/jao-maildir.el @@ -46,6 +46,18 @@ (defvar jao-maildir-tracked-maildirs) (defvar jao-maildir-mode-line-string "") +(defvar jao-maildir-additional-info ()) + +(defun jao-maildir-refresh-echo () + (with-current-buffer " *Minibuf-0*" + (erase-buffer) + (let ((mailp (not (string-blank-p jao-maildir-mode-line-string)))) + (when (or mailp infop) + (insert (format "%s%s%s" + (if mailp "Mail" "") + (if mailp jao-maildir-mode-line-string "") + (or (format-mode-line jao-maildir-additional-info) + ""))))))) (defun jao-maildir--update-mode-line-string () (let ((total 0) @@ -62,11 +74,7 @@ 'face 'font-lock-function-name-face)) (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 - (with-current-buffer " *Minibuf-0*" - (erase-buffer) - (when (not (string-blank-p jao-maildir-mode-line-string)) - (insert (format "Mail %s" jao-maildir-mode-line-string))))) + (when jao-maildir-echo-p (jao-maildir-refresh-echo)) (force-mode-line-update t)))) (defvar jao-maildir--watches nil) -- cgit v1.2.3