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

Mu4e: Remove (now-)unused header colourise func

Browse source
This commit is contained in:
TEC 2020-10-14 17:49:16 +08:00
parent 6490565404
commit 42ee991f4a
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/email/mu4e/autoload/email.el
View file

@ -123,14 +123,6 @@ will also be the width of all other printable characters."
mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple")) mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple"))
mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05)))) mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05))))
;;;###autoload
(defun +mu4e-header-colorize (str)
(let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str)))
(color (nth (% str-sum (length +mu4e-header-colorized-faces))
+mu4e-header-colorized-faces)))
(put-text-property 0 (length str) 'face color str)
str))
;;;###autoload ;;;###autoload
(defun +mu4e-colorize-str (str &optional unique herring) (defun +mu4e-colorize-str (str &optional unique herring)
"Apply a face from `+mu4e-header-colorized-faces' to STR. "Apply a face from `+mu4e-header-colorized-faces' to STR.