debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +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." "Cleaning up messages for display."
:group 'notmuch) :group 'notmuch)
(defvar notmuch-wash-signature-regexp (defcustom notmuch-wash-signature-regexp "^\\(-- ?\\|_+\\)$"
"^\\(-- ?\\|_+\\)$" "Pattern to match a line that separates content from signature."
"Pattern to match a line that separates content from signature.") :type 'regexp
:group 'notmuch-wash)
(defvar notmuch-wash-citation-regexp (defcustom notmuch-wash-citation-regexp "\\(^[[:space:]]*>.*\n\\)+"
"\\(^[[:space:]]*>.*\n\\)+" "Pattern to match citation lines."
"Pattern to match citation lines.") :type 'regexp
:group 'notmuch-wash)
(defvar notmuch-wash-original-regexp "^\\(--+\s?[oO]riginal [mM]essage\s?--+\\)$" (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.") "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. ]" "[ %d-line signature. Click/Enter to show. ]"
"String used to construct button text for hidden signatures. "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. ]" "[ %d-line signature. Click/Enter to hide. ]"
"String used to construct button text for visible signatures. "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. ]" "[ %d more citation lines. Click/Enter to show. ]"
"String used to construct button text for hidden citations. "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. ]" "[ %d more citation lines. Click/Enter to hide. ]"
"String used to construct button text for visible citations. "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. ]" "[ %d-line hidden original message. Click/Enter to show. ]"
"String used to construct button text for hidden citations. "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. ]" "[ %d-line original message. Click/Enter to hide. ]"
"String used to construct button text for visible citations. "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 (defcustom notmuch-wash-signature-lines-max 12
"Maximum length of signature that will be hidden by default.") "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. "Always show at least this many lines from the start of a citation.
If there is one more line than the sum of If there is one more line than the sum of
`notmuch-wash-citation-lines-prefix' and `notmuch-wash-citation-lines-prefix' and
`notmuch-wash-citation-lines-suffix', show that, otherwise `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. "Always show at least this many lines from the end of a citation.
If there is one more line than the sum of If there is one more line than the sum of
`notmuch-wash-citation-lines-prefix' and `notmuch-wash-citation-lines-prefix' and
`notmuch-wash-citation-lines-suffix', show that, otherwise `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. "Wrap line after at most this many characters.
If this is nil, lines in messages will be wrapped to fit in the 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 current window. If this is a number, lines will be wrapped after
this many characters or at the window width (whichever one is 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 (defface notmuch-wash-toggle-button
'((t (:inherit font-lock-comment-face))) '((t (:inherit font-lock-comment-face)))