--- /dev/null
+Return-Path: <amdragon@mit.edu>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+ by olra.theworths.org (Postfix) with ESMTP id 64350431FD8\r
+ for <notmuch@notmuchmail.org>; Sat, 21 Jul 2012 10:37:23 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -0.7\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
+ tests=[RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+ by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+ with ESMTP id i3xXvnbdH4b8 for <notmuch@notmuchmail.org>;\r
+ Sat, 21 Jul 2012 10:37:21 -0700 (PDT)\r
+Received: from dmz-mailsec-scanner-8.mit.edu (DMZ-MAILSEC-SCANNER-8.MIT.EDU\r
+ [18.7.68.37])\r
+ by olra.theworths.org (Postfix) with ESMTP id E0DF9431FC0\r
+ for <notmuch@notmuchmail.org>; Sat, 21 Jul 2012 10:37:19 -0700 (PDT)\r
+X-AuditID: 12074425-b7f9b6d0000008c4-d5-500ae8ceb185\r
+Received: from mailhub-auth-3.mit.edu ( [18.9.21.43])\r
+ by dmz-mailsec-scanner-8.mit.edu (Symantec Messaging Gateway) with SMTP\r
+ id B0.FE.02244.EC8EA005; Sat, 21 Jul 2012 13:37:18 -0400 (EDT)\r
+Received: from outgoing.mit.edu (OUTGOING-AUTH.MIT.EDU [18.7.22.103])\r
+ by mailhub-auth-3.mit.edu (8.13.8/8.9.2) with ESMTP id q6LHbHpj018462; \r
+ Sat, 21 Jul 2012 13:37:17 -0400\r
+Received: from drake.dyndns.org\r
+ (209-6-116-242.c3-0.arl-ubr1.sbo-arl.ma.cable.rcn.com\r
+ [209.6.116.242]) (authenticated bits=0)\r
+ (User authenticated as amdragon@ATHENA.MIT.EDU)\r
+ by outgoing.mit.edu (8.13.6/8.12.4) with ESMTP id q6LHbF0g008012\r
+ (version=TLSv1/SSLv3 cipher=AES256-SHA bits=256 verify=NOT);\r
+ Sat, 21 Jul 2012 13:37:16 -0400 (EDT)\r
+Received: from amthrax by drake.dyndns.org with local (Exim 4.77)\r
+ (envelope-from <amdragon@mit.edu>)\r
+ id 1SsdcB-0001Zg-8M; Sat, 21 Jul 2012 13:37:15 -0400\r
+From: Austin Clements <amdragon@MIT.EDU>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH v4 2/8] emacs: Use text properties instead of overlays for tag\r
+ coloring\r
+Date: Sat, 21 Jul 2012 13:37:06 -0400\r
+Message-Id: <1342892232-5659-3-git-send-email-amdragon@mit.edu>\r
+X-Mailer: git-send-email 1.7.10\r
+In-Reply-To: <1342892232-5659-1-git-send-email-amdragon@mit.edu>\r
+References: <1341354059-29396-1-git-send-email-amdragon@mit.edu>\r
+ <1342892232-5659-1-git-send-email-amdragon@mit.edu>\r
+X-Brightmail-Tracker:\r
+ H4sIAAAAAAAAA+NgFjrCIsWRmVeSWpSXmKPExsUixCmqrXvuBVeAwc4j4hZ79nlZrJ7LY3H9\r
+ 5kxmB2aPu6e5PHbOusvu8WzVLeYA5igum5TUnMyy1CJ9uwSujNkbUwpmSFes2d3N2sDYJdbF\r
+ yMkhIWAisWDSBHYIW0ziwr31bF2MXBxCAvsYJRq6pjNCOBsYJe7v3gSVecQkcfz9JKjMXEaJ\r
+ twsmMYH0swloSGzbv5wRxBYRkJbYeXc2K4jNLJAm8b39LVhcWCBcYsu0lWwgNouAqsSXhoNg\r
+ u3kF7CWm/F7BCHGHvMTT+31gNZwCDhKPzh5gAbGFBMokFnccZpzAyL+AkWEVo2xKbpVubmJm\r
+ TnFqsm5xcmJeXmqRroVebmaJXmpK6SZGUGCxu6juYJxwSOkQowAHoxIPr4USV4AQa2JZcWXu\r
+ IUZJDiYlUd6++0AhvqT8lMqMxOKM+KLSnNTiQ4wSHMxKIrybTgPleFMSK6tSi/JhUtIcLEri\r
+ vDdSbvoLCaQnlqRmp6YWpBbBZGU4OJQkePmAESQkWJSanlqRlplTgpBm4uAEGc4DNFwMpIa3\r
+ uCAxtzgzHSJ/ilFRSpz333OghABIIqM0D64XFvmvGMWBXhHmNQBp5wEmDbjuV0CDmYAGS2eB\r
+ DS5JREhJNTCKc9277lF5emtb+w7t0oiv6nKXJy19stzScsv6otryTWK2e67LZO5+bR39SUzq\r
+ YJLm4UufakN9P81bMMHItaVuZs/Tv8fbTomw76zedj9W9mNy31ExFp37xwXur75uUnN9sUDP\r
+ mi/LZx7TX/1ecys7O6virKBJmlNq/4v/jT3ypvvI/oQcv1ZTJZbijERDLeai4kQA1d+d3tcC AAA=\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+ <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+ <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Sat, 21 Jul 2012 17:37:23 -0000\r
+\r
+Previously, tag-based search result highlighting was done by creating\r
+an overlay over each search result. However, overlays have annoying\r
+front- and rear-advancement semantics that make it difficult to\r
+manipulate text at their boundaries, which the next patch will do.\r
+They also have performance problems (creating an overlay is linear in\r
+the number of overlays between point and the new overlay, making\r
+highlighting a search buffer quadratic in the number of results).\r
+\r
+Text properties have neither problem. However, text properties make\r
+it more difficult to apply multiple faces since, unlike with overlays,\r
+a given character can only have a single 'face text property. Hence,\r
+we introduce a utility function that combines faces into any existing\r
+'face text properties.\r
+\r
+Using this utility function, it's straightforward to apply all of the\r
+appropriate tag faces in notmuch-search-color-line.\r
+---\r
+ emacs/notmuch-lib.el | 15 +++++++++++++++\r
+ emacs/notmuch.el | 21 +++++++--------------\r
+ 2 files changed, 22 insertions(+), 14 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el\r
+index aa25513..30db58f 100644\r
+--- a/emacs/notmuch-lib.el\r
++++ b/emacs/notmuch-lib.el\r
+@@ -269,6 +269,21 @@ current buffer, if possible."\r
+ (loop for (key value . rest) on plist by #'cddr\r
+ collect (cons (intern (substring (symbol-name key) 1)) value)))\r
+ \r
++(defun notmuch-combine-face-text-property (start end face)\r
++ "Combine FACE into the 'face text property between START and END.\r
++\r
++This function combines FACE with any existing faces between START\r
++and END. Attributes specified by FACE take precedence over\r
++existing attributes. FACE must be a face name (a symbol or\r
++string), a property list of face attributes, or a list of these."\r
++\r
++ (let ((pos start))\r
++ (while (< pos end)\r
++ (let ((cur (get-text-property pos 'face))\r
++ (next (next-single-property-change pos 'face nil end)))\r
++ (put-text-property pos next 'face (cons face cur))\r
++ (setq pos next)))))\r
++\r
+ ;; Compatibility functions for versions of emacs before emacs 23.\r
+ ;;\r
+ ;; Both functions here were copied from emacs 23 with the following copyright:\r
+diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
+index ef18927..82c148d 100644\r
+--- a/emacs/notmuch.el\r
++++ b/emacs/notmuch.el\r
+@@ -633,20 +633,13 @@ foreground and blue background."\r
+ \r
+ (defun notmuch-search-color-line (start end line-tag-list)\r
+ "Colorize lines in `notmuch-show' based on tags."\r
+- ;; Create the overlay only if the message has tags which match one\r
+- ;; of those specified in `notmuch-search-line-faces'.\r
+- (let (overlay)\r
+- (mapc (lambda (elem)\r
+- (let ((tag (car elem))\r
+- (attributes (cdr elem)))\r
+- (when (member tag line-tag-list)\r
+- (when (not overlay)\r
+- (setq overlay (make-overlay start end)))\r
+- ;; Merge the specified properties with any already\r
+- ;; applied from an earlier match.\r
+- (overlay-put overlay 'face\r
+- (append (overlay-get overlay 'face) attributes)))))\r
+- notmuch-search-line-faces)))\r
++ (mapc (lambda (elem)\r
++ (let ((tag (car elem))\r
++ (attributes (cdr elem)))\r
++ (when (member tag line-tag-list)\r
++ (notmuch-combine-face-text-property start end attributes))))\r
++ ;; Reverse the list so earlier entries take precedence\r
++ (reverse notmuch-search-line-faces)))\r
+ \r
+ (defun notmuch-search-author-propertize (authors)\r
+ "Split `authors' into matching and non-matching authors and\r
+-- \r
+1.7.10\r
+\r
projects / notmuch-archives.git / commitdiff