From: Carl Worth Date: Tue, 27 Apr 2010 05:40:31 +0000 (-0700) Subject: emacs: Fix notmuch-hello to use its own function for counting search results. X-Git-Tag: 0.3~17 X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=fa5279113b8bc2d6f58d672867f980ef8f02a118;hp=f1f7e71e0347672e0658362c513e49c05b0f4161;p=obsolete%2Fnotmuch-old emacs: Fix notmuch-hello to use its own function for counting search results. 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. --- diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index bbeb5de0..db2da9f4 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -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)))