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

Mu4e: add missing header colourising function

Browse source
This commit is contained in:
TEC 2020-10-04 01:00:01 +08:00
parent 3179942dfb
commit 82c99b78f2
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -82,7 +82,14 @@
(add-to-list 'mu4e-bookmarks
'(:name "Flagged messages" :query "flag:flagged" :key ?f))
(defvar mu4e~header-colourised-faces
(defun mu4e-header-colourise (str)
(let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str)))
(colour (nth (% str-sum (length mu4e-header-colourised-faces))
mu4e-header-colourised-faces)))
(put-text-property 0 (length str) 'face colour str)
str))
(defvar mu4e-header-colourised-faces
'(all-the-icons-lblue
all-the-icons-purple
all-the-icons-blue-alt