[PATCH 3/7] emacs: tag: add customize for deleted/added tag formats
Mark Walters
markwalters1009 at gmail.com
Sat Jan 18 15:30:51 PST 2014
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
More information about the notmuch
mailing list