From: Damien Cassou Date: Sun, 18 Nov 2012 19:18:39 +0000 (+0100) Subject: [PATCH 1/4] Add a thread's tags to emacs header-line X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=718f5c5cf6a32bc4c7a604fc21cb49075177f860;p=notmuch-archives.git [PATCH 1/4] Add a thread's tags to emacs header-line --- diff --git a/1a/3644eeb479c2a6b7f1ae69d8886db1d7692a30 b/1a/3644eeb479c2a6b7f1ae69d8886db1d7692a30 new file mode 100644 index 000000000..e489acb9c --- /dev/null +++ b/1a/3644eeb479c2a6b7f1ae69d8886db1d7692a30 @@ -0,0 +1,170 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by olra.theworths.org (Postfix) with ESMTP id EF6C1431FDA + for ; Sun, 18 Nov 2012 11:19:18 -0800 (PST) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: -0.799 +X-Spam-Level: +X-Spam-Status: No, score=-0.799 tagged_above=-999 required=5 + tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, + FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled +Received: from olra.theworths.org ([127.0.0.1]) + by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id WQX5bciRr10W for ; + Sun, 18 Nov 2012 11:19:17 -0800 (PST) +Received: from mail-wg0-f45.google.com (mail-wg0-f45.google.com + [74.125.82.45]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client + certificate requested) by olra.theworths.org (Postfix) with ESMTPS id + 45365431FC0 for ; Sun, 18 Nov 2012 11:19:17 -0800 + (PST) +Received: by mail-wg0-f45.google.com with SMTP id dq11so838560wgb.2 + for ; Sun, 18 Nov 2012 11:19:16 -0800 (PST) +DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; + h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references + :mime-version:content-type:content-transfer-encoding; + bh=onHk67cScTJNp2gozO0WJgxX9RxqiJzg1GvFczObDjs=; + b=aXw22UFlCKOxEF7DLqt7Hip8Z+p/swJV0NmnZeBhMSquy2qvaaPX4oub7sW9PoSxJ5 + VFazoxIJGbHx9ebrzKXnMXPxU5EPzDg6bdJ8JmPxOGyA/D9Csm1vOEvDlzON5//i63/j + WomJNONE8lgkfWFEoahHhVbF4q9PXVnMCV+G6SfGG+tqojN8xEjFfGbsvvfa8hFdGtEI + WXq7OBFSLlyWdMtHst3xKtTpBXEXTQpCAFWPEE0/JpEm0uQUB4ZFu8VDh1BnUJuRTC6f + prb2o7W64llhDiOCDgWo1JYVE7rI9G0VTzWQQL0CDWcuBI85TLcd4KoWBlpUKnJxTShb + EdOw== +Received: by 10.216.217.214 with SMTP id i64mr3666202wep.124.1353266354696; + Sun, 18 Nov 2012 11:19:14 -0800 (PST) +Received: from localhost.localdomain (ble59-4-82-228-190-150.fbx.proxad.net. + [82.228.190.150]) + by mx.google.com with ESMTPS id i2sm10290063wiw.3.2012.11.18.11.19.13 + (version=TLSv1/SSLv3 cipher=OTHER); + Sun, 18 Nov 2012 11:19:13 -0800 (PST) +From: Damien Cassou +To: notmuch mailing list +Subject: [PATCH 1/4] Add a thread's tags to emacs header-line +Date: Sun, 18 Nov 2012 20:18:39 +0100 +Message-Id: <1353266322-20318-2-git-send-email-damien.cassou@gmail.com> +X-Mailer: git-send-email 1.7.10.4 +In-Reply-To: <1353266322-20318-1-git-send-email-damien.cassou@gmail.com> +References: <1353266322-20318-1-git-send-email-damien.cassou@gmail.com> +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.13 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Sun, 18 Nov 2012 19:19:19 -0000 + +Signed-off-by: Damien Cassou +--- + emacs/notmuch-show.el | 24 +++++++++++++++++++++--- + emacs/notmuch-tagger.el | 44 ++++++++++++++++++++++++++++++++++++++++++++ + 2 files changed, 65 insertions(+), 3 deletions(-) + create mode 100644 emacs/notmuch-tagger.el + +diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el +index 5b3e70e..988e27c 100644 +--- a/emacs/notmuch-show.el ++++ b/emacs/notmuch-show.el +@@ -36,6 +36,7 @@ + (require 'notmuch-mua) + (require 'notmuch-crypto) + (require 'notmuch-print) ++(require 'notmuch-tagger) + + (declare-function notmuch-call-notmuch-process "notmuch" (&rest args)) + (declare-function notmuch-fontify-headers "notmuch" nil) +@@ -1121,11 +1122,28 @@ function is used." + + (jit-lock-register #'notmuch-show-buttonise-links) + +- ;; Set the header line to the subject of the first message. +- (setq header-line-format (notmuch-show-strip-re (notmuch-show-get-subject))) +- ++ (notmuch-show-update-header-line) + (run-hooks 'notmuch-show-hook)))) + ++(defun notmuch-show-thread-tags () ++ "Return the list of tags for the current thread." ++ (let ((tags (list))) ++ (notmuch-show-mapc (lambda () ++ (mapcar (lambda (elt) ++ ;; Avoid adding duplicate tags ++ (add-to-list 'tags elt)) ++ (notmuch-show-get-tags)))) ++ tags)) ++ ++(defun notmuch-show-update-header-line () ++ "Make the header-line show the thread's subject and tags." ++ (let ((thread-subject (notmuch-show-strip-re (notmuch-show-get-subject)))) ++ (setq header-line-format ++ (list ++ thread-subject ++ " " ++ (notmuch-tagger-present-tags-header-line (notmuch-show-thread-tags)))))) ++ + (defun notmuch-show-capture-state () + "Capture the state of the current buffer. + +diff --git a/emacs/notmuch-tagger.el b/emacs/notmuch-tagger.el +new file mode 100644 +index 0000000..5ca190e +--- /dev/null ++++ b/emacs/notmuch-tagger.el +@@ -0,0 +1,44 @@ ++;; notmuch-tagger.el --- Library to improve the way tags are displayed ++;; ++;; Copyright © Damien Cassou ++;; ++;; This file is part of Notmuch. ++;; ++;; Notmuch is free software: you can redistribute it and/or modify it ++;; under the terms of the GNU General Public License as published by ++;; the Free Software Foundation, either version 3 of the License, or ++;; (at your option) any later version. ++;; ++;; Notmuch is distributed in the hope that it will be useful, but ++;; WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ++;; General Public License for more details. ++;; ++;; You should have received a copy of the GNU General Public License ++;; along with Notmuch. If not, see . ++;; ++;; Authors: Damien Cassou ++;;; Commentary: ++;; ++;;; Code: ++;; ++(defun notmuch-tagger-separate-elems (list sep) ++ "Return a list with all elements of LIST separated by SEP." ++ (let ((first t) ++ (res nil)) ++ (dolist (elt (reverse list) res) ++ (unless first ++ (push sep res)) ++ (setq first nil) ++ (push elt res)))) ++ ++(defun notmuch-tagger-present-tags-header-line (tags) ++ "Return a property list to present TAGS in emacs header-line." ++ (list ++ "(" ++ (notmuch-tagger-separate-elems tags " ") ++ ")")) ++ ++ ++(provide 'notmuch-tagger) ++;;; notmuch-tagger.el ends here +-- +1.7.10.4 +