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

feat(mu4e): make the unicode bullet customizable

Browse source 
By popular demand.

Close #5452.
This commit is contained in:
TEC 2021-09-11 23:44:37 +08:00
parent 4fee7cf953
commit 7ab825157f
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/email/mu4e/autoload/advice.el
View file

@ -13,7 +13,7 @@ clicked."
(lambda(m)
(format "%s"
(propertize (match-string 1 m) 'face '(mode-line-emphasis bold))))
(replace-regexp-in-string "\t\\*" "\t⚫" str)))
(replace-regexp-in-string "\t\\*" (format "\t%s" +mu4e-main-bullet) str)))
(map (make-sparse-keymap))
(func (if (functionp func-or-shortcut)
func-or-shortcut
@ -29,8 +29,8 @@ clicked."
;;;###autoload
(defun +mu4e~main-keyval-str-prettier-a (str)
"Replace '*' with '⚫' in STR."
(replace-regexp-in-string "\t\\*" "\t⚫" str))
"Replace '*' with `+mu4e-main-bullet' in STR."
(replace-regexp-in-string "\t\\*" (format "\t%s" +mu4e-main-bullet) str))
;; Org msg LaTeX image scaling

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

@ -279,6 +279,11 @@ This should already be the case yet it does not always seem to be."
:before #'mu4e-compose-resend
(read-only-mode -1))
(defvar +mu4e-main-bullet "⚫"
"Prefix to use instead of \" *\" in the mu4e main view.
This is enacted by `+mu4e~main-action-str-prettier-a' and
`+mu4e~main-keyval-str-prettier-a'.")
(advice-add #'mu4e~key-val :filter-return #'+mu4e~main-keyval-str-prettier-a)
(advice-add #'mu4e~main-action-str :override #'+mu4e~main-action-str-prettier-a)
(when (featurep! :editor evil)