alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make usage of fancy chars configurable.

Browse Source
This commit is contained in:
Florian Lindner
2015-09-10 12:32:49 +02:00
parent 7981845daa
commit 9780f076f1
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-headers.el
View File

@ -353,7 +353,8 @@ into a string."
"Calculate the thread prefix based on thread info THREAD."
(when thread
(let ((get-prefix
(lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell)))))
(lambda (cell) (if (or (eq mu4e-use-fancy-chars t)
(eq mu4e-use-fancy-chars 'threads)) (cdr cell) (car cell)))))
(concat
(make-string (* (if (plist-get thread :empty-parent) 0 1)
(plist-get thread :level)) ?\s)
@ -378,7 +379,9 @@ internally, the Maildir spec determines what the flags look like,
while our display may be different)."
(let ((str "")
(get-prefix
(lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell)))))
(lambda (cell) (if (or (eq mu4e-use-fancy-chars t)
(eq mu4e-use-fancy-chars 'marks)) (cdr cell) (car cell)))))
(dolist (flag mu4e-headers-visible-flags)
(when (member flag flags)
(setq str