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

emacs: Try to name search buffers using info in notmuch-folders

Browse source 
As the user has already defined aliases for certain searches in
notmuch-folders, search buffer names that use these aliases will
be easier to identify.
This commit is contained in:
Servilio Afre Puentes 2010-04-18 23:55:50 -04:00 committed by Carl Worth
parent 40ff2ab62a
commit 3bf27d6c58
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
emacs/notmuch.el
View file

@ -665,6 +665,27 @@ characters as well as `_.+-'.
(apply 'notmuch-call-notmuch-process "tag" (apply 'notmuch-call-notmuch-process "tag"
(append action-split (list notmuch-search-query-string) nil)))) (append action-split (list notmuch-search-query-string) nil))))
(defun notmuch-search-buffer-title (query)
"Returns the title for a buffer with notmuch search results."
(let* ((folder (rassoc-if (lambda (key)
(string-match (concat "^" (regexp-quote key))
query))
notmuch-folders))
(folder-name (car folder))
(folder-query (cdr folder)))
(cond ((and folder (equal folder-query query))
;; Query is the same as folder search (ignoring case)
(concat "*notmuch-folder-" folder-name "*"))
(folder
(concat "*notmuch-search-"
(replace-regexp-in-string (concat "^" (regexp-quote folder-query))
(concat "[ " folder-name " ]")
query)
"*"))
(t
(concat "*notmuch-search-" query "*"))
)))
;;;###autoload ;;;###autoload
(defun notmuch-search (query &optional oldest-first target-thread target-line) (defun notmuch-search (query &optional oldest-first target-thread target-line)
"Run \"notmuch search\" with the given query string and display results. "Run \"notmuch search\" with the given query string and display results.
@ -677,7 +698,7 @@ The optional parameters are used as follows:
target-line: The line number to move to if the target thread does not target-line: The line number to move to if the target thread does not
appear in the search results." appear in the search results."
(interactive "sNotmuch search: ") (interactive "sNotmuch search: ")
(let ((buffer (get-buffer-create (concat "*notmuch-search-" query "*")))) (let ((buffer (get-buffer-create (notmuch-search-buffer-title query))))
(switch-to-buffer buffer) (switch-to-buffer buffer)
(notmuch-search-mode) (notmuch-search-mode)
(set 'notmuch-search-query-string query) (set 'notmuch-search-query-string query)