unofficial mirror of notmuch@notmuchmail.org
 help / color / mirror / code / Atom feed
* [PATCH] emacs: Do not color non-matching authors by tag
@ 2010-10-22  5:42 Michal Sojka
  2010-11-04 13:55 ` David Edmondson
  0 siblings, 1 reply; 8+ messages in thread
From: Michal Sojka @ 2010-10-22  5:42 UTC (permalink / raw)
  To: notmuch

Customizing notmuch-search-line-faces to color lines in search result
according to tags has the effect that the color overrides other faces
set for the line. This is usually what the user wants with the
exception that it also colors non-matching authors and it is then not
possible to visually distinguish between matching and non-matching
authors.

This patch changes the way how are the faces specified in
notmuch-search-line-faces applied to the search results. In
particular, instead of adding an overlay for the whole line, the
existing faces of the line are replaced with what is given in
notmuch-search-line-faces. The only exception is that
notmuch-search-non-matching-authors face is never replaced.

Signed-off-by: Michal Sojka <sojkam1@fel.cvut.cz>

---
 emacs/notmuch.el |   20 +++++++++++++++++---
 1 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 42619b2..d0fb834 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -593,17 +593,31 @@ matching will be applied."
   :type '(alist :key-type (string) :value-type (list))
   :group 'notmuch)
 
+(defun notmuch-search-set-line-face (start end face)
+  "Change face propery to value FACE expect for non-matching authors."
+  (save-excursion
+    (save-restriction
+      (narrow-to-region start end)
+      (goto-char (point-min))
+      (let ((fstart (point))
+	    fend)
+	(while (< fstart (point-max))
+	  (setq fend (or (next-single-property-change fstart 'face)
+			 (point-max)))
+	  (when (not (eq (get-text-property fstart 'face) 'notmuch-search-non-matching-authors))
+	    (put-text-property fstart fend 'face face))
+	  (setq fstart fend))))))
+
 (defun notmuch-search-color-line (start end line-tag-list)
   "Colorize lines in notmuch-show based on tags"
   (if notmuch-search-line-faces
-      (let ((overlay (make-overlay start end))
-	    (tags-faces (copy-alist notmuch-search-line-faces)))
+      (let ((tags-faces (copy-alist notmuch-search-line-faces)))
 	(while tags-faces
 	  (let* ((tag-face (car tags-faces))
 		 (tag (car tag-face))
 		 (face (cdr tag-face)))
 	    (cond ((member tag line-tag-list)
-		   (overlay-put overlay 'face face)
+		   (notmuch-search-set-line-face start end face)
 		   (setq tags-faces nil))
 		  (t
 		   (setq tags-faces (cdr tags-faces)))))))))
-- 
tg: (f117d80..) t/do-not-colorize-non-matching-authors-by-tag (depends on: master)

^ permalink raw reply related	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2010-11-05 11:43 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-10-22  5:42 [PATCH] emacs: Do not color non-matching authors by tag Michal Sojka
2010-11-04 13:55 ` David Edmondson
2010-11-04 14:12   ` Michal Sojka
2010-11-04 14:45     ` David Edmondson
2010-11-05  8:10       ` Michal Sojka
2010-11-05  8:17         ` Michal Sojka
2010-11-05  8:55           ` David Edmondson
2010-11-05 11:42           ` Jameson Rollins

Code repositories for project(s) associated with this public inbox

	https://yhetil.org/notmuch.git/

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).