emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(mu4e): more helpful headers mode-line symbols

Browse source
This commit is contained in:
TEC 2022-02-19 17:55:02 +08:00 • committed by Henrik Lissner
parent 71e07da578
commit 0b6e63a6d1
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
modules/email/mu4e/config.el
View file

@ -76,6 +76,26 @@
(:from-or-to . 25) (:from-or-to . 25)
(:subject))) (: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 ;; set mail user agent
(setq mail-user-agent 'mu4e-user-agent (setq mail-user-agent 'mu4e-user-agent
message-mail-user-agent 'mu4e-user-agent) message-mail-user-agent 'mu4e-user-agent)