On Wed, 19 Feb 2014, Mark Walters <markwalters1009@gmail.com> wrote: > 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)) Should this be '((\".*\" 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 > > _______________________________________________ > notmuch mailing list > notmuch@notmuchmail.org > http://notmuchmail.org/mailman/listinfo/notmuch