Skip to content

Commit

Permalink
refactor(mu4e): minor UI edits
Browse files Browse the repository at this point in the history
  • Loading branch information
@abougouffa
abougouffa committed May 28, 2023
1 parent 08cf1ef commit 117a9f4
Showing 1 changed file with 112 additions and 118 deletions.
230 changes: 112 additions & 118 deletions modules/extras/me-mu4e-ui.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,56 +21,55 @@ This is enacted by `+mu4e--main-action-str-prettier-a' and
nerd-icons-purple-alt
nerd-icons-blue-alt
nerd-icons-purple
nerd-icons-yellow)
nerd-icons-yellow
nerd-icons-maroon
nerd-icons-dorange)
"Faces to use when coloring folders and account stripes.")

(defun +mu4e-colorize-str (str &optional unique herring)
"Apply a face from `+mu4e-header-colorized-faces' to STR.
If HERRING is set, it will be used to determine the face instead of STR.
Will try to make unique when non-nil UNIQUE,
a quoted symbol for a alist of current strings and faces provided."
(unless herring
(setq herring str))
(put-text-property
0 (length str)
'face
(list
(if (not unique)
(+mu4e--str-color-face herring str)
(let ((unique-alist (eval unique)))
(unless (assoc herring unique-alist)
(if (> (length unique-alist) (length +mu4e-header-colorized-faces))
(push (cons herring (+mu4e--str-color-face herring)) unique-alist)
(let ((offset 0) color color?)
(while (not color)
(setq color? (+mu4e--str-color-face herring offset))
(if (not (rassoc color? unique-alist))
(setq color color?)
(setq offset (1+ offset))
(when (> offset (length +mu4e-header-colorized-faces))
(message "Warning: +mu4e-colorize-str was called with non-unique-alist UNIQUE-alist alist.")
(setq color (+mu4e--str-color-face herring)))))
(push (cons herring color) unique-alist)))
(set unique unique-alist))
(cdr (assoc herring unique-alist))))
'default)
str)
str)
(let ((herring (or herring str)))
(put-text-property
0 (length str) 'face
(list
(if (null unique)
(+mu4e--str-color-face herring str)
(let ((unique-alist (eval unique)))
(unless (assoc herring unique-alist)
(if (> (length unique-alist) (length +mu4e-header-colorized-faces))
(push (cons herring (+mu4e--str-color-face herring)) unique-alist)
(let ((offset 0) color color?)
(while (not color)
(setq color? (+mu4e--str-color-face herring offset))
(if (not (rassoc color? unique-alist))
(setq color color?)
(setq offset (1+ offset))
(when (> offset (length +mu4e-header-colorized-faces))
(message "Warning: +mu4e-colorize-str was called with non-unique-alist UNIQUE-alist alist.")
(setq color (+mu4e--str-color-face herring)))))
(push (cons herring color) unique-alist)))
(set unique unique-alist))
(cdr (assoc herring unique-alist))))
'default)
str)
str))

(defun +mu4e--str-color-face (str &optional offset)
"Select a face from `+mu4e-header-colorized-faces' based on
STR and any integer OFFSET."
"Select a face from `+mu4e-header-colorized-faces' based on STR and any
integer OFFSET."
(let* ((str-sum (apply #'+ (mapcar (lambda (c) (% c 3)) str)))
(color (nth (% (+ str-sum (if offset offset 0))
(color (nth (% (+ str-sum (or offset 0))
(length +mu4e-header-colorized-faces))
+mu4e-header-colorized-faces)))
color))

(defun +mu4e--main-action-prettier-a (title cmd &optional bindstr alt)
(let* ((bindstr (or bindstr (mu4e-key-description cmd) (and alt (string alt))
(mu4e-error "No binding for %s" cmd)))
(bindstr
(if (and alt (> (length bindstr) 1)) alt bindstr))
(bindstr (if (and alt (> (length bindstr) 1)) alt bindstr))
(title ;; remove first letter afrer [] if it equal last of binding
(mu4e-string-replace
(concat "[@]" (substring bindstr -1)) "[@]" title))
Expand Down Expand Up @@ -134,104 +133,99 @@ will also be the width of all other printable characters."
(concat (propertize " " 'display `(space . (:width ,space-factor))) icon)))

(defun +mu4e--ui-setup ()
;; Add a column to display what email account the email belongs to,
;; and an account color stripe column
(defvar +mu4e-header--maildir-colors nil)
(setq
mu4e-header-info-custom
'((:account
. (:name "Account"
:shortname "Account"
:help "Which account/maildir this email belongs to"
:function
(lambda (msg)
(let ((maildir (replace-regexp-in-string
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir))))
(+mu4e-colorize-str
(replace-regexp-in-string
"^gmail"
(propertize "g" 'face 'bold-italic)
maildir)
'+mu4e-header--maildir-colors
maildir)))))
(:subject-truncated
. (:name "Subject"
:shortname "Subject"
:help "Subject of the message"
:sortable t
:function
(lambda (msg)
(let ((prefix (mu4e~headers-thread-prefix (mu4e-message-field msg :meta))))
(concat
prefix
(truncate-string-to-width
;; Some times, a newline/carriage return char slips in the
;; subject and drives mu4e crazy! Let's fix it and truncate
;; the string at 100 characters.
(replace-regexp-in-string
"[\n\r]" ""
(mu4e-message-field msg :subject))
(- 100 (length prefix)) nil nil t))))))
(:account-stripe
. (:name "Account"
:shortname "▐"
:help "Which account/maildir this email belongs to, as a colorized stripe"
:function
(lambda (msg)
(let ((account
(replace-regexp-in-string
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir))))
(propertize
(+mu4e-colorize-str "▌" '+mu4e-header--maildir-colors account)
'help-echo account)))))
(:recipnum
. (:name "Number of recipients"
:shortname " ⭷"
:help "Number of recipients for this message"
:function
(lambda (msg)
(propertize (format "%2d"
(+ (length (mu4e-message-field msg :to))
(length (mu4e-message-field msg :cc))))
'face 'mu4e-footer-face)))))
mu4e-headers-date-format "%d/%m/%y"
mu4e-headers-time-format "%H:%M"
mu4e-headers-thread-single-orphan-prefix '("─>" . "─▶")
mu4e-headers-thread-orphan-prefix '("┬>" . "┬▶ ")
mu4e-use-fancy-chars t
mu4e-headers-attach-mark (cons "a" (+normalized-icon 'attachment :set 'md))
mu4e-headers-calendar-mark (cons "c" (+normalized-icon 'calendar :set 'md))
mu4e-headers-draft-mark (cons "D" (+normalized-icon 'edit))
mu4e-headers-encrypted-mark (cons "x" (+normalized-icon 'lock))
mu4e-headers-flagged-mark (cons "F" (+normalized-icon 'flag :set 'md))
mu4e-headers-list-mark (cons "l" (+normalized-icon 'list_ul))
mu4e-headers-new-mark (cons "N" (+normalized-icon 'download :set 'oct :color 'dred))
mu4e-headers-passed-mark (cons "P" (+normalized-icon 'mail_forward))
mu4e-headers-personal-mark (cons "p" (+normalized-icon 'person :set 'oct))
mu4e-headers-replied-mark (cons "R" (+normalized-icon 'mail_reply))
mu4e-headers-seen-mark (cons "S" "")
mu4e-headers-signed-mark (cons "s" (+normalized-icon 'verified :set 'oct :color 'dpurple))
mu4e-headers-trashed-mark (cons "T" (+normalized-icon 'trash_can_outline :set 'md))
mu4e-headers-unread-mark (cons "u" (+normalized-icon 'unread :set 'oct :color 'dred))
mu4e-headers-thread-child-prefix '("├>" . "├▶")
mu4e-headers-thread-connection-prefix '("│ " . "│ ")
mu4e-headers-thread-first-child-prefix '("├>" . "├▶")
mu4e-headers-thread-child-prefix '("├>" . "├▶")
mu4e-headers-thread-last-child-prefix '("└>" . "╰▶")
mu4e-headers-thread-orphan-prefix '("┬>" . "┬▶")
mu4e-headers-thread-single-orphan-prefix '("─>" . "─▶")
mu4e-headers-fields '((:account-stripe . 2)
(:flags . 6) ;; 3 flags
(:human-date . 8)
(:from-or-to . 25)
(:subject-truncated)))

(advice-add #'mu4e--key-val :filter-return #'+mu4e--main-keyval-str-prettier-a)
(advice-add #'mu4e--main-action :override #'+mu4e--main-action-prettier-a)

(with-eval-after-load 'nerd-icons
(setq
mu4e-use-fancy-chars t
mu4e-headers-draft-mark (cons "D" (+normalized-icon 'edit))
mu4e-headers-flagged-mark (cons "F" (+normalized-icon 'flag :set 'md))
mu4e-headers-new-mark (cons "N" (+normalized-icon 'download :set 'oct :color 'dred))
mu4e-headers-passed-mark (cons "P" (+normalized-icon 'mail_forward))
mu4e-headers-replied-mark (cons "R" (+normalized-icon 'mail_reply))
mu4e-headers-seen-mark (cons "S" "")
mu4e-headers-trashed-mark (cons "T" (+normalized-icon 'trash_can_outline :set 'md))
mu4e-headers-attach-mark (cons "a" (+normalized-icon 'attachment :set 'md))
mu4e-headers-encrypted-mark (cons "x" (+normalized-icon 'lock))
mu4e-headers-signed-mark (cons "s" (+normalized-icon 'verified :set 'oct :color 'dpurple))
mu4e-headers-unread-mark (cons "u" (+normalized-icon 'unread :set 'oct :color 'dred))
mu4e-headers-list-mark (cons "l" (+normalized-icon 'list_ul))
mu4e-headers-personal-mark (cons "p" (+normalized-icon 'person :set 'oct))
mu4e-headers-calendar-mark (cons "c" (+normalized-icon 'calendar :set 'md)))

;; Add a column to display what email account the email belongs to,
;; and an account color stripe column
(defvar +mu4e-header--maildir-colors nil)
(setq
mu4e-header-info-custom
'((:account
. (:name "Account"
:shortname "Account"
:help "which account/maildir this email belongs to"
:function
(lambda (msg)
(let ((maildir (replace-regexp-in-string
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir))))
(+mu4e-colorize-str
(replace-regexp-in-string
"^gmail"
(propertize "g" 'face 'bold-italic)
maildir)
'+mu4e-header--maildir-colors
maildir)))))
(:subject-truncated
. (:name "Subject"
:shortname "Subject"
:help "Subject of the message"
:sortable t
:function
(lambda (msg)
(let ((prefix (mu4e~headers-thread-prefix (mu4e-message-field msg :meta))))
(concat
prefix
(truncate-string-to-width
;; Some times, a newline/carriage return char slips in the
;; subject and drives mu4e crazy! Let's fix it and truncate
;; the string at 100 characters.
(replace-regexp-in-string
"[\n\r]" ""
(mu4e-message-field msg :subject))
(- 100 (length prefix)) nil nil t))))))
(:account-stripe
. (:name "Account"
:shortname "▐"
:help "Which account/maildir this email belongs to"
:function
(lambda (msg)
(let ((account
(replace-regexp-in-string
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir))))
(propertize
(+mu4e-colorize-str "▌" '+mu4e-header--maildir-colors account)
'help-echo account)))))
(:recipnum
. (:name "Number of recipients"
:shortname " ⭷"
:help "Number of recipients for this message"
:function
(lambda (msg)
(propertize (format "%2d"
(+ (length (mu4e-message-field msg :to))
(length (mu4e-message-field msg :cc))))
'face 'mu4e-footer-face))))))))
(advice-add #'mu4e--main-action :override #'+mu4e--main-action-prettier-a))

(defun +mu4e-ui-setup ()
(if (display-graphic-p)
Expand Down

0 comments on commit 117a9f4

Please sign in to comment.