Add customize options for deleted/added tag formats. These are not used yet but will be later in the series. --- emacs/notmuch-tag.el | 25 +++++++++++++++++++++++++ 1 files changed, 25 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el index 92c1249..9757a0e 100644 --- a/emacs/notmuch-tag.el +++ b/emacs/notmuch-tag.el @@ -86,6 +86,31 @@ with images." :group 'notmuch-show :type 'notmuch-tag-format-type) +(defcustom notmuch-tag-deleted-formats + '(("" (propertize tag 'face + (if (display-supports-face-attributes-p '(:strike-through "red")) + '(:strike-through "red") + '(:inverse-video t))))) + "Custom formats for tags when deleted. + +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 + :type 'notmuch-tag-format-type) + +(defcustom notmuch-tag-added-formats + '(("" (propertize tag 'face '(:underline "green")))) + "Custom formats for tags when added. + +See `notmuch-tag-formats' for full documentation." + :group 'notmuch-show + :type 'notmuch-tag-format-type) + (defun notmuch-tag-format-image-data (tag data) "Replace TAG with image DATA, if available. -- 1.7.9.1