debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Select tag names with completion.

Browse source 
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 search-tags' and
presents a completion buffer to the user.

This feature is very useful for users who have a large number of tags
because it saves typing and minimizes the risk of typos.

Signed-off-by: Jan Janak <jan@ryngle.com>
This commit is contained in:
Jan Janak 2009-11-23 01:10:56 +01:00 committed by Carl Worth
parent f8baa02335
commit 16eab4c87d
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
notmuch.el
View file

@ -137,6 +137,13 @@ within the current window."
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(defun notmuch-select-tag-with-completion (prompt)
(let ((tag-list
(with-output-to-string
(with-current-buffer standard-output
(call-process notmuch-command nil t nil "search-tags")))))
(completing-read prompt (split-string tag-list "\n+" t) nil nil nil)))
(defun notmuch-show-next-line ()
"Like builtin `next-line' but ensuring we end on a visible character.
@ -200,7 +207,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-select-tag-with-completion "Tag to add: ")))
(apply 'notmuch-call-notmuch-process
(append (cons "tag"
(mapcar (lambda (s) (concat "+" s)) toadd))
@ -209,7 +217,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-select-tag-with-completion "Tag to remove: ")))
(let ((tags (notmuch-show-get-tags)))
(if (intersection tags toremove :test 'string=)
(progn
@ -924,12 +933,14 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
(split-string (buffer-substring beg end))))))
(defun notmuch-search-add-tag (tag)
(interactive "sTag to add: ")
(interactive
(list (notmuch-select-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-select-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))))
@ -1064,7 +1075,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-select-tag-with-completion "Filter by tag: ")))
(notmuch-search (concat notmuch-search-query-string " and tag:" tag) notmuch-search-oldest-first))
(defun notmuch ()