emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge pull request #665 from floli/master 

mu4e: Make usage of fancy chars configurable.
This commit is contained in:
Dirk-Jan C. Binnema 2015-09-17 16:43:17 +03:00
parent 7981845daa 9780f076f1
commit 85e47820b2
2 changed files with 10 additions and 4 deletions
Show Stats 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

7
mu4e/mu4e-vars.el
View File

@ -140,8 +140,11 @@ personal message. This is used when indexing messages."
'mu4e-user-mail-address-list "0.9.9.x")
(defcustom mu4e-use-fancy-chars nil
"Whether to use fancy (non-ascii) characters."
:type 'boolean
"Whether to use fancy (non-ascii) characters for marks and/or threads."
:type '(choice (const :tag "Do not use fancy chars" nil)
(const :tag "Use fancy chars everywhere" t)
(const :tag "Use fancy chars only for threads" threads)
(const :tag "Use fancy chars only for marks" marks))
:group 'mu4e)
(defcustom mu4e-date-format-long "%c"