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

emacs: update defcustom for notmuch-unthreaded-result-format

Browse source 
This is essentially a copy of that for notmuch-tree-result-format,
aside from the default value.
This commit is contained in:
David Bremner 2022-07-16 17:22:27 -04:00
parent dc2097ea9f
commit 9d013801bb
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
emacs/notmuch-tree.el
View file

@ -142,7 +142,11 @@ Note that the author string should not contain whitespace
("tags" . "(%s)")) ("tags" . "(%s)"))
"Result formatting for unthreaded tree view. "Result formatting for unthreaded tree view.
Supported fields are: date, authors, subject, tree, tags. List of pairs of (field . format-string). Supported field
strings are: \"date\", \"authors\", \"subject\", \"tree\",
\"tags\". It is also supported to pass a function in place of a
field-name. In this case the function is passed the thread
object (plist) and format string.
Tree means the thread tree box graphics. The field may Tree means the thread tree box graphics. The field may
also be a list in which case the formatting rules are also be a list in which case the formatting rules are
@ -150,14 +154,12 @@ applied recursively and then the output of all the fields
in the list is inserted according to format-string. in the list is inserted according to format-string.
Note that the author string should not contain whitespace Note that the author string should not contain whitespace
\(put it in the neighbouring fields instead). For example: \(put it in the neighbouring fields instead)."
(setq notmuch-unthreaded-result-format
'((\"authors\" . \"%-40s\") :type `(alist :key-type (choice ,notmuch-tree--field-names
(\"subject\" . \"%s\")))" (alist :key-type ,notmuch-tree--field-names
:type '(alist :key-type (choice string :value-type (string :tag "Format")))
(alist :key-type string :value-type (string :tag "Format"))
:value-type string))
:value-type string)
:group 'notmuch-tree) :group 'notmuch-tree)
(defun notmuch-tree-result-format () (defun notmuch-tree-result-format ()