Add customize options for deleted/added tag formats. These are not used yet but will be later in the series. --- emacs/notmuch-tag.el | 31 +++++++++++++++++++++++++++++++ 1 files changed, 31 insertions(+), 0 deletions(-)
diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el index 878aaf7..064fbdb 100644 --- a/emacs/notmuch-tag.el +++ b/emacs/notmuch-tag.el @@ -101,6 +101,37 @@ 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. + +For deleted tags the formats in `notmuch-tag-formats` are applied +first and then these formats are applied on top. + +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. + +For added tags the formats in `notmuch-tag-formats` are applied +first and then these formats are applied on top. + +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