[elpa] externals/notmuch-indicator e169f26958 19/36: Add notmuch-indicator-hide-empty-counters user option

[ELPA Syncer]

branch: externals/notmuch-indicator
commit e169f2695832a30e0b63d765c9f89da04e66115c
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add notmuch-indicator-hide-empty-counters user option
---
 README.md            |  3 +++
 notmuch-indicator.el | 21 ++++++++++++++++-----
 2 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 74516e0178..d58bd4b5a1 100644
--- a/README.md
+++ b/README.md
@@ -49,3 +49,6 @@ represents seconds.
 The user option `notmuch-indicator-force-refresh-commands` accepts as
 its value a list of symbols.  Those are commands that will forcefully
 update the indicator after they are invoked.
+
+The user option `notmuch-indicator-hide-empty-counters` hides zero
+counters from the indicator, when it is set to a non-nil value.
diff --git a/notmuch-indicator.el b/notmuch-indicator.el
index ab346c404d..db654ac391 100644
--- a/notmuch-indicator.el
+++ b/notmuch-indicator.el
@@ -71,6 +71,9 @@
 ;; The user option `notmuch-indicator-force-refresh-commands' accepts as
 ;; its value a list of symbols.  Those are commands that will forcefully
 ;; update the indicator after they are invoked.
+;;
+;; The user option `notmuch-indicator-hide-empty-counters' hides zero
+;; counters from the indicator, when it is set to a non-nil value.
 
 ;;; Code:
 
@@ -108,6 +111,11 @@ These form a string like: @50 🤡10."
   :type 'list ; TODO 2022-09-19: Use correct type
   :group 'notmuch-indicator)
 
+(defcustom notmuch-indicator-hide-empty-counters nil
+  "When non-nil, hide output of searches that have zero results."
+  :type 'boolean
+  :group 'notmuch-indicator)
+
 ;; TODO 2022-09-19: If this changes, the `notmuch-indicator-mode' needs
 ;; to be restarted.  We can add a custom setter here.  Perhaps there is
 ;; also some elegant way to handle this when the variable is changed
@@ -130,15 +138,18 @@ option `notmuch-indicator-refresh-count'."
 
 ;;;; Helper functions and the minor-mode
 
+(defun notmuch-indicator--format-output (properties)
+  "Format PROPERTIES of `notmuch-indicator-args'."
+  (let ((count (shell-command-to-string (format "notmuch count %s" (plist-get 
properties :terms)))))
+    (if (and (zerop (string-to-number count)) 
notmuch-indicator-hide-empty-counters)
+        ""
+      (format "%s%s" (or (plist-get properties :label)  "") 
(replace-regexp-in-string "\n" " " count)))))
+
 (defun notmuch-indicator--return-count ()
   "Parse `notmuch-indicator-args' and format them as single string."
   (mapconcat
    (lambda (props)
-     (format "%s%s" (or (plist-get props :label)  "")
-             (replace-regexp-in-string
-              "\n" " "
-              (shell-command-to-string
-               (format "notmuch count %s" (plist-get props :terms))))))
+     (notmuch-indicator--format-output props))
    notmuch-indicator-args
    " "))