debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 09:24:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Washing should use more `defcustom'.

Browse source 
More of the washing variables should be available through the standard
customisation interface.
This commit is contained in:
David Edmondson 2014-10-31 08:05:21 +00:00 committed by David Bremner
parent 092b159be7
commit 5ddaf59915
1 changed files with 54 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

82
emacs/notmuch-wash.el
View file

@ -31,73 +31,99 @@
"Cleaning up messages for display."
:group 'notmuch)
(defvar notmuch-wash-signature-regexp
"^\\(-- ?\\|_+\\)$"
"Pattern to match a line that separates content from signature.")
(defcustom notmuch-wash-signature-regexp "^\\(-- ?\\|_+\\)$"
"Pattern to match a line that separates content from signature."
:type 'regexp
:group 'notmuch-wash)
(defvar notmuch-wash-citation-regexp
"\\(^[[:space:]]*>.*\n\\)+"
"Pattern to match citation lines.")
(defcustom notmuch-wash-citation-regexp "\\(^[[:space:]]*>.*\n\\)+"
"Pattern to match citation lines."
:type 'regexp
:group 'notmuch-wash)
(defvar notmuch-wash-original-regexp "^\\(--+\s?[oO]riginal [mM]essage\s?--+\\)$"
"Pattern to match a line that separates original message from reply in top-posted message.")
(defcustom notmuch-wash-original-regexp "^\\(--+\s?[oO]riginal [mM]essage\s?--+\\)$"
"Pattern to match a line that separates original message from
reply in top-posted message."
:type 'regexp
:group 'notmuch-wash)
(defvar notmuch-wash-button-signature-hidden-format
(defcustom notmuch-wash-button-signature-hidden-format
"[ %d-line signature. Click/Enter to show. ]"
"String used to construct button text for hidden signatures.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-button-signature-visible-format
(defcustom notmuch-wash-button-signature-visible-format
"[ %d-line signature. Click/Enter to hide. ]"
"String used to construct button text for visible signatures.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-button-citation-hidden-format
(defcustom notmuch-wash-button-citation-hidden-format
"[ %d more citation lines. Click/Enter to show. ]"
"String used to construct button text for hidden citations.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-button-citation-visible-format
(defcustom notmuch-wash-button-citation-visible-format
"[ %d more citation lines. Click/Enter to hide. ]"
"String used to construct button text for visible citations.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-button-original-hidden-format
(defcustom notmuch-wash-button-original-hidden-format
"[ %d-line hidden original message. Click/Enter to show. ]"
"String used to construct button text for hidden citations.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-button-original-visible-format
(defcustom notmuch-wash-button-original-visible-format
"[ %d-line original message. Click/Enter to hide. ]"
"String used to construct button text for visible citations.
Can use up to one integer format parameter, i.e. %d")
Can use up to one integer format parameter, i.e. %d."
:type 'string
:group 'notmuch-wash)
(defvar notmuch-wash-signature-lines-max 12
"Maximum length of signature that will be hidden by default.")
(defcustom notmuch-wash-signature-lines-max 12
"Maximum length of signature that will be hidden by default."
:type 'integer
:group 'notmuch-wash)
(defvar notmuch-wash-citation-lines-prefix 3
(defcustom notmuch-wash-citation-lines-prefix 3
"Always show at least this many lines from the start of a citation.
If there is one more line than the sum of
`notmuch-wash-citation-lines-prefix' and
`notmuch-wash-citation-lines-suffix', show that, otherwise
collapse the remaining lines into a button.")
collapse the remaining lines into a button."
:type 'integer
:group 'notmuch-wash)
(defvar notmuch-wash-citation-lines-suffix 3
(defcustom notmuch-wash-citation-lines-suffix 3
"Always show at least this many lines from the end of a citation.
If there is one more line than the sum of
`notmuch-wash-citation-lines-prefix' and
`notmuch-wash-citation-lines-suffix', show that, otherwise
collapse the remaining lines into a button.")
collapse the remaining lines into a button."
:type 'integer
:group 'notmuch-wash)
(defvar notmuch-wash-wrap-lines-length nil
(defcustom notmuch-wash-wrap-lines-length nil
"Wrap line after at most this many characters.
If this is nil, lines in messages will be wrapped to fit in the
current window. If this is a number, lines will be wrapped after
this many characters or at the window width (whichever one is
lower).")
lower)."
:type '(choice (const :tag "window width" nil)
(integer :tag "number of characters"))
:group 'notmuch-wash)
(defface notmuch-wash-toggle-button
'((t (:inherit font-lock-comment-face)))