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

emacs: Fix notmuch-hello to use its own function for counting search results.

Browse source 
Previously, this was calling into a notmuch-folder-count
function. Only, everything related to notmuch-folder is about to go
away, so lets have notmuch-hello define its own function
(notmuch-saved-search-count) for this purpose.
This commit is contained in:
Carl Worth 2010-04-26 22:40:31 -07:00
parent f1f7e71e03
commit fa5279113b
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch-hello.el
View file

@ -142,6 +142,9 @@ diagonal."
notmuch-search-oldest-first
nil nil #'notmuch-hello-search-continuation))
(defun notmuch-saved-search-count (search)
(car (process-lines notmuch-command "count" search)))
(defun notmuch-hello-insert-tags (tag-alist widest target)
(let* ((tags-per-line (max 1
(/ (- (window-width) notmuch-hello-indent)
@ -160,7 +163,7 @@ diagonal."
do (progn
;; (not elem) indicates an empty slot in the matrix.
(when elem
(widget-insert (format "%6s " (notmuch-folder-count (cdr elem))))
(widget-insert (format "%6s " (notmuch-saved-search-count (cdr elem))))
(if (string= (format "%s " (car elem)) target)
(setq found-target-pos (point-marker)))
(widget-create 'push-button
@ -268,7 +271,7 @@ diagonal."
(if notmuch-show-empty-saved-searches
notmuch-saved-searches
(loop for elem in notmuch-saved-searches
if (> (string-to-number (notmuch-folder-count (cdr elem))) 0)
if (> (string-to-number (notmuch-saved-search-count (cdr elem))) 0)
collect elem)))
(saved-widest (notmuch-hello-longest-label saved-alist))
(alltags-alist (mapcar '(lambda (tag) (cons tag (concat "tag:" tag)))