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

emacs: tag: add customize for deleted/added tag formats

Browse source 
Add customize options for deleted/added tag formats.  These are not
used yet but will be later in the series.

We switch to using `notmuch-apply-face' rather than `propertize' in
the defcustom for faces so that the faces for deleted/added tags add
to the default face attributes for the tag.

We special case deleting the unread tag as that tag is a strong visual
cue and we don't need that cue when we are just saying it used to be
unread. Thus, we revert to the normal tag face with strikethough for
deleted unread tags.
This commit is contained in:
Mark Walters 2014-03-22 11:51:08 +00:00 committed by David Bremner
parent b9a777e0a3
commit d5acfdda5f
1 changed files with 45 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
emacs/notmuch-tag.el
View file

@ -39,7 +39,7 @@
(string :tag "Display as") (string :tag "Display as")
(list :tag "Face" :extra-offset -4 (list :tag "Face" :extra-offset -4
(const :format "" :inline t (const :format "" :inline t
(propertize tag 'face)) (notmuch-apply-face tag))
(list :format "%v" (list :format "%v"
(const :format "" quote) (const :format "" quote)
custom-face-edit)) custom-face-edit))
@ -87,6 +87,50 @@ See also `notmuch-tag-format-image', which can help replace tags
with images." with images."
:group 'notmuch-search :group 'notmuch-search
:group 'notmuch-show :group 'notmuch-show
:group 'notmuch-faces
:type 'notmuch-tag-format-type)
(defcustom notmuch-tag-deleted-formats
'(("unread" (notmuch-apply-face bare-tag
(if (display-supports-face-attributes-p '(:strike-through "red"))
'(:strike-through "red")
'(:inverse-video t))))
(".*" (notmuch-apply-face tag
(if (display-supports-face-attributes-p '(:strike-through "red"))
'(:strike-through "red")
'(:inverse-video t)))))
"Custom formats for tags when deleted.
For deleted tags the formats in `notmuch-tag-formats` are applied
first and then these formats are applied on top; that is `tag'
passed to the function is the tag with all these previous
formattings applied. The formatted can access the original
unformatted tag as `bare-tag'.
By default this shows deleted tags with strike-through in red,
unless strike-through is not available (e.g., emacs is running in
a terminal) in which case it uses inverse video. To hide deleted
tags completely set this to
'((\".*\" nil))
See `notmuch-tag-formats' for full documentation."
:group 'notmuch-show
:group 'notmuch-faces
:type 'notmuch-tag-format-type)
(defcustom notmuch-tag-added-formats
'((".*" (notmuch-apply-face tag '(:underline "green"))))
"Custom formats for tags when added.
For added tags the formats in `notmuch-tag-formats` are applied
first and then these formats are applied on top.
To disable special formatting of added tags, set this variable to
nil.
See `notmuch-tag-formats' for full documentation."
:group 'notmuch-show
:group 'notmuch-faces
:type 'notmuch-tag-format-type) :type 'notmuch-tag-format-type)
(defun notmuch-tag-format-image-data (tag data) (defun notmuch-tag-format-image-data (tag data)