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-search-result-format.

Browse source 
It seems redundant to have the previous example, since the default
value is always show by describe variable.

Enforce more restrictions on the keys in the alist, since arbitrary
strings don't work as field names.

Document that functions can be used in lieu of field names.
This commit is contained in:
David Bremner 2022-07-16 17:22:25 -04:00
parent 2b10a56c78
commit 25ebb9e7d3
1 changed files with 20 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
emacs/notmuch-tree.el
View file

@ -97,6 +97,15 @@ different kind of arrow point."
:type '(alist :key-type symbol :value-type string) :type '(alist :key-type symbol :value-type string)
:group 'notmuch-tree) :group 'notmuch-tree)
(defconst notmuch-tree--field-names
'(choice :tag "Field"
(const :tag "Date" "date")
(const :tag "Authors" "authors")
(const :tag "Subject" "subject")
(const :tag "Tree" "tree")
(const :tag "Tags" "tags")
(function)))
(defcustom notmuch-tree-result-format (defcustom notmuch-tree-result-format
`(("date" . "%12s ") `(("date" . "%12s ")
("authors" . "%-20s") ("authors" . "%-20s")
@ -106,7 +115,11 @@ different kind of arrow point."
("tags" . "(%s)")) ("tags" . "(%s)"))
"Result formatting for tree view. "Result formatting for 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
@ -114,14 +127,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-tree-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)
(defcustom notmuch-unthreaded-result-format (defcustom notmuch-unthreaded-result-format