From 0b6e63a6d18bd227b34bb24be20ba33abd2966a0 Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 19 Feb 2022 17:55:02 +0800 Subject: [PATCH] feat(mu4e): more helpful headers mode-line symbols --- modules/email/mu4e/config.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/modules/email/mu4e/config.el b/modules/email/mu4e/config.el index 3ad0d8e63..0efca67d7 100644 --- a/modules/email/mu4e/config.el +++ b/modules/email/mu4e/config.el @@ -76,6 +76,26 @@ (:from-or-to . 25) (:subject))) + ;; Better search symbols + (letf! ((defun make-help-button (text help-echo) + (with-temp-buffer + (insert-text-button text + 'help-echo help-echo + 'mouse-face nil) + (buffer-string))) + (defun make-help-button-cons (text1 text2 help-echo) + (cons (make-help-button text1 help-echo) + (make-help-button text2 help-echo)))) + (setq mu4e-headers-threaded-label + (make-help-button-cons "T" (concat " " (all-the-icons-octicon "git-branch" :v-adjust 0.05)) + "Thread view") + mu4e-headers-related-label + (make-help-button-cons "R" (concat " " (all-the-icons-material "link" :v-adjust -0.1)) + "Showing related emails") + mu4e-headers-full-label + (make-help-button-cons "F" (concat " " (all-the-icons-material "disc_full")) + "Search is full!"))) + ;; set mail user agent (setq mail-user-agent 'mu4e-user-agent message-mail-user-agent 'mu4e-user-agent)