From 92cfdd6f7f3a13aa6c0f8b30b05994a95a8e885d Mon Sep 17 00:00:00 2001 From: TEC Date: Wed, 14 Oct 2020 14:17:35 +0800 Subject: [PATCH] Mu4e: Change colourise to (sigh) american spelling --- modules/email/mu4e/autoload/email.el | 6 +++--- modules/email/mu4e/config.el | 10 +++++----- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/modules/email/mu4e/autoload/email.el b/modules/email/mu4e/autoload/email.el index 4a24f6b7e..d2aceef9f 100644 --- a/modules/email/mu4e/autoload/email.el +++ b/modules/email/mu4e/autoload/email.el @@ -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)))) ;;;###autoload -(defun +mu4e-header-colourise (str) +(defun +mu4e-header-colorize (str) (let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str))) - (colour (nth (% str-sum (length mu4e-header-colourised-faces)) - mu4e-header-colourised-faces))) + (colour (nth (% str-sum (length mu4e-header-colorized-faces)) + mu4e-header-colorized-faces))) (put-text-property 0 (length str) 'face colour str) str)) diff --git a/modules/email/mu4e/config.el b/modules/email/mu4e/config.el index 149582b6a..df269d9fc 100644 --- a/modules/email/mu4e/config.el +++ b/modules/email/mu4e/config.el @@ -94,14 +94,14 @@ (add-to-list 'mu4e-bookmarks '(: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))) - (colour (nth (% str-sum (length +mu4e-header-colourised-faces)) - +mu4e-header-colourised-faces))) + (colour (nth (% str-sum (length +mu4e-header-colorized-faces)) + +mu4e-header-colorized-faces))) (put-text-property 0 (length str) 'face colour str) str)) - (defvar +mu4e-header-colourised-faces + (defvar +mu4e-header-colorized-faces '(all-the-icons-lblue all-the-icons-purple all-the-icons-blue-alt @@ -120,7 +120,7 @@ (lambda (msg) (let ((maildir (mu4e-message-field msg :maildir))) - (+mu4e-header-colourise + (+mu4e-header-colorize (replace-regexp-in-string "^gmail" (propertize "g" 'face 'bold-italic)