[notmuch] [PATCH] notmuch.el: Completion for tag names.
Jan Janak
jan at ryngle.com
Thu Nov 19 06:18:19 PST 2009
Add support for completion of tag names. Several commands ask the user
for a tag name. With this feature the user can just press tab and emacs
automatically retrieves the list of all existing tags from notmuch
database with 'notmuch list tags' and presents a completion buffer to
the user.
Signed-off-by: Jan Janak <jan at ryngle.com>
---
notmuch.el | 22 +++++++++++++++++-----
1 files changed, 17 insertions(+), 5 deletions(-)
diff --git a/notmuch.el b/notmuch.el
index 706e9f3..587e093 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -165,7 +165,8 @@ Unlike builtin `next-line' this version accepts no arguments."
(defun notmuch-show-add-tag (&rest toadd)
"Add a tag to the current message."
- (interactive "sTag to add: ")
+ (interactive
+ (list (notmuch-tag-with-completion "Tag to add: ")))
(apply 'notmuch-call-notmuch-process
(append (cons "tag"
(mapcar (lambda (s) (concat "+" s)) toadd))
@@ -174,7 +175,8 @@ Unlike builtin `next-line' this version accepts no arguments."
(defun notmuch-show-remove-tag (&rest toremove)
"Remove a tag from the current message."
- (interactive "sTag to remove: ")
+ (interactive
+ (list (notmuch-tag-with-completion "Tag to remove: ")))
(let ((tags (notmuch-show-get-tags)))
(if (intersection tags toremove :test 'string=)
(progn
@@ -873,13 +875,22 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
(let ((end (- (point) 1)))
(split-string (buffer-substring beg end))))))
+(defun notmuch-tag-with-completion (prompt)
+ (let ((tag-list
+ (with-output-to-string
+ (with-current-buffer standard-output
+ (call-process "notmuch" nil t nil "list" "tags")))))
+ (completing-read prompt (split-string tag-list "\n+" t) nil nil nil)))
+
(defun notmuch-search-add-tag (tag)
- (interactive "sTag to add: ")
+ (interactive
+ (list (notmuch-tag-with-completion "Tag to add: ")))
(notmuch-call-notmuch-process "tag" (concat "+" tag) (notmuch-search-find-thread-id))
(notmuch-search-set-tags (delete-dups (sort (cons tag (notmuch-search-get-tags)) 'string<))))
(defun notmuch-search-remove-tag (tag)
- (interactive "sTag to remove: ")
+ (interactive
+ (list (notmuch-tag-with-completion "Tag to remove: ")))
(notmuch-call-notmuch-process "tag" (concat "-" tag) (notmuch-search-find-thread-id))
(notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
@@ -964,7 +975,8 @@ current search results AND the additional query string provided."
Runs a new search matching only messages that match both the
current search results AND that are tagged with the given tag."
- (interactive "sFilter by tag: ")
+ (interactive
+ (list (notmuch-tag-with-completion "Filter by tag: ")))
(notmuch-search (concat notmuch-search-query-string " and tag:" tag) notmuch-search-oldest-first))
(defun notmuch ()
--
1.6.3.3
More information about the notmuch
mailing list