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

Merge pull request #2546 from progfolio/feat/thread-prefix-face 

mu4e: propertize thread prefix characters
This commit is contained in:
Dirk-Jan C. Binnema 2023-08-31 18:49:10 +03:00 committed by GitHub
parent 7859268202 375e684ce6
commit 82152d7fb3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mu4e/mu4e-headers.el
View File

@ -329,17 +329,19 @@ into a string."
(let ((get-prefix
(lambda (cell)
(if mu4e-use-fancy-chars (cdr cell) (car cell)))))
(cl-case type
(child (funcall get-prefix mu4e-headers-thread-child-prefix))
(first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix))
(last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix))
(connection (funcall get-prefix mu4e-headers-thread-connection-prefix))
(blank (funcall get-prefix mu4e-headers-thread-blank-prefix))
(orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix))
(single-orphan (funcall get-prefix
mu4e-headers-thread-single-orphan-prefix))
(duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix))
(t "?"))))
(propertize
(cl-case type
(child (funcall get-prefix mu4e-headers-thread-child-prefix))
(first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix))
(last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix))
(connection (funcall get-prefix mu4e-headers-thread-connection-prefix))
(blank (funcall get-prefix mu4e-headers-thread-blank-prefix))
(orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix))
(single-orphan (funcall get-prefix
mu4e-headers-thread-single-orphan-prefix))
(duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix))
(t "?"))
'face 'mu4e-thread-fold-face)))
;; headers in the buffer are prefixed by an invisible string with the docid