debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-03 15:21:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: hello: use batch count

Browse source 
This modifies notmuch hello to use the new count --batch
functionality. It should give exactly the same results as before but
under many conditions it should be much faster. In particular it is
much faster for remote use.

The code is a little ugly as it has to do some working out of the
query when asking the query and some when dealing with the result.
However, the code path is exactly the same in both local and remote
use.
This commit is contained in:
Mark Walters 2013-03-31 12:46:03 +03:00 committed by David Bremner
parent 360c3c8607
commit c933e54227
1 changed files with 32 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
emacs/notmuch-hello.el
View file

@ -381,26 +381,38 @@ The result is the list of elements of the form (NAME QUERY COUNT).
The values :show-empty-searches, :filter and :filter-count from
options will be handled as specified for
`notmuch-hello-insert-searches'."
(with-temp-buffer
(dolist (elem query-alist nil)
(let ((count-query (if (consp (cdr elem))
;; do we have a different query for the message count?
(third elem)
(cdr elem))))
(insert
(notmuch-hello-filtered-query count-query
(or (plist-get options :filter-count)
(plist-get options :filter)))
"\n")))
(call-process-region (point-min) (point-max) notmuch-command
t t nil "count" "--batch")
(goto-char (point-min))
(notmuch-remove-if-not
#'identity
(mapcar
(lambda (elem)
(let* ((name (car elem))
(query-and-count (if (consp (cdr elem))
(let ((name (car elem))
(search-query (if (consp (cdr elem))
;; do we have a different query for the message count?
(cons (second elem) (third elem))
(cons (cdr elem) (cdr elem))))
(message-count
(string-to-number
(notmuch-saved-search-count
(notmuch-hello-filtered-query (cdr query-and-count)
(or (plist-get options :filter-count)
(plist-get options :filter)))))))
(second elem)
(cdr elem)))
(message-count (prog1 (read (current-buffer))
(forward-line 1))))
(and (or (plist-get options :show-empty-searches) (> message-count 0))
(list name (notmuch-hello-filtered-query
(car query-and-count) (plist-get options :filter))
search-query (plist-get options :filter))
message-count))))
query-alist)))
query-alist))))
(defun notmuch-hello-insert-buttons (searches)
"Insert buttons for SEARCHES.