From 413bdc09807f7b342898f30d22e2d592c94db585 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Tue, 17 Jan 2023 21:14:30 +0200 Subject: [PATCH] mu4e-bookmarks: improve modeline item --- mu4e/mu4e-bookmarks.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/mu4e/mu4e-bookmarks.el b/mu4e/mu4e-bookmarks.el index 75a6595e..c25b42f5 100644 --- a/mu4e/mu4e-bookmarks.el +++ b/mu4e/mu4e-bookmarks.el @@ -181,12 +181,22 @@ one, creates a propertized string for display in the modeline." ((> count 0) mu4e-modeline-all-read) (t mu4e-modeline-all-clear))) (mu4e--query-item-display-counts fav)) - 'help-echo (format "mu4e query: '%s'" (mu4e--bookmark-query fav)) + 'help-echo + (format + (concat + "mu4e favorite bookmark '%s':\n" + "\t%s\n\n" + "number of matches: %d\n" + "unread messages: %d\n" + "changes since baseline: %+d\n") + (plist-get fav :name) + (mu4e--bookmark-query fav) + count unread delta-unread) 'mouse-face 'mode-line-highlight 'keymap '(mode-line keymap - (mouse-1 . mu4e-jump-to-favorite) - (mouse-2 . mu4e-jump-to-favorite) - (mouse-3 . mu4e-jump-to-favorite)))))) + (mouse-1 . mu4e-jump-to-favorite) + (mouse-2 . mu4e-jump-to-favorite) + (mouse-3 . mu4e-jump-to-favorite)))))) (provide 'mu4e-bookmarks) ;;; mu4e-bookmarks.el ends here