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

Mu4e: Change colourise to (sigh) american spelling

Browse source
This commit is contained in:
TEC 2020-10-14 14:17:35 +08:00
parent b1f7e9b9f9
commit 92cfdd6f7f
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -125,10 +125,10 @@ will also be the width of all other printable characters."
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 ;;;###autoload
(defun +mu4e-header-colourise (str) (defun +mu4e-header-colorize (str)
(let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str))) (let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str)))
(colour (nth (% str-sum (length mu4e-header-colourised-faces)) (colour (nth (% str-sum (length mu4e-header-colorized-faces))
mu4e-header-colourised-faces))) mu4e-header-colorized-faces)))
(put-text-property 0 (length str) 'face colour str) (put-text-property 0 (length str) 'face colour str)
str)) str))

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

@ -94,14 +94,14 @@
(add-to-list 'mu4e-bookmarks (add-to-list 'mu4e-bookmarks
'(:name "Flagged messages" :query "flag:flagged" :key ?f) t) '(:name "Flagged messages" :query "flag:flagged" :key ?f) t)
(defun +mu4e-header-colourise (str) (defun +mu4e-header-colorize (str)
(let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str))) (let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str)))
(colour (nth (% str-sum (length +mu4e-header-colourised-faces)) (colour (nth (% str-sum (length +mu4e-header-colorized-faces))
+mu4e-header-colourised-faces))) +mu4e-header-colorized-faces)))
(put-text-property 0 (length str) 'face colour str) (put-text-property 0 (length str) 'face colour str)
str)) str))
(defvar +mu4e-header-colourised-faces (defvar +mu4e-header-colorized-faces
'(all-the-icons-lblue '(all-the-icons-lblue
all-the-icons-purple all-the-icons-purple
all-the-icons-blue-alt all-the-icons-blue-alt
@ -120,7 +120,7 @@
(lambda (msg) (lambda (msg)
(let ((maildir (let ((maildir
(mu4e-message-field msg :maildir))) (mu4e-message-field msg :maildir)))
(+mu4e-header-colourise (+mu4e-header-colorize
(replace-regexp-in-string (replace-regexp-in-string
"^gmail" "^gmail"
(propertize "g" 'face 'bold-italic) (propertize "g" 'face 'bold-italic)