debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Unthreaded mode: allow different result format

Browse source 
It is likely that the user will want a different line format for
unthreaded mode from tree mode; in particular the thread structure
graphics are unnecessary in unthreaded mode.

Add a new customisable variable and set it to something sensible.
This commit is contained in:
Mark Walters 2020-02-27 17:16:49 +00:00 committed by David Bremner
parent 63f4ba3057
commit a82fb6e670
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
emacs/notmuch-tree.el
View file

@ -76,6 +76,31 @@ Note the author string should not contain
:type '(alist :key-type (string) :value-type (string)) :type '(alist :key-type (string) :value-type (string))
:group 'notmuch-tree) :group 'notmuch-tree)
(defcustom notmuch-unthreaded-result-format
`(("date" . "%12s ")
("authors" . "%-20s")
((("subject" . "%s")) ." %-54s ")
("tags" . "(%s)"))
"Result formatting for unthreaded Tree view. Supported fields are: date,
authors, subject, tree, tags. Tree means the thread tree
box graphics. The field may also be a list in which case
the formatting rules are applied recursively and then the
output of all the fields in the list is inserted
according to format-string.
Note the author string should not contain
whitespace (put it in the neighbouring fields instead).
For example:
(setq notmuch-tree-result-format \(\(\"authors\" . \"%-40s\"\)
\(\"subject\" . \"%s\"\)\)\)"
:type '(alist :key-type (string) :value-type (string))
:group 'notmuch-tree)
(defun notmuch-tree-result-format ()
(if notmuch-tree-unthreaded
notmuch-unthreaded-result-format
notmuch-tree-result-format))
;; Faces for messages that match the query. ;; Faces for messages that match the query.
(defface notmuch-tree-match-face (defface notmuch-tree-match-face
'((t :inherit default)) '((t :inherit default))
@ -759,7 +784,7 @@ unchanged ADDRESS if parsing fails."
;; We need to save the previous subject as it will get overwritten ;; We need to save the previous subject as it will get overwritten
;; by the insert-field calls. ;; by the insert-field calls.
(let ((previous-subject notmuch-tree-previous-subject)) (let ((previous-subject notmuch-tree-previous-subject))
(insert (notmuch-tree-format-field-list notmuch-tree-result-format msg)) (insert (notmuch-tree-format-field-list (notmuch-tree-result-format) msg))
(notmuch-tree-set-message-properties msg) (notmuch-tree-set-message-properties msg)
(notmuch-tree-set-prop :previous-subject previous-subject) (notmuch-tree-set-prop :previous-subject previous-subject)
(insert "\n"))) (insert "\n")))