about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-01 18:55:19 -0500
committerCase Duckworth2022-04-01 18:55:19 -0500
commit9742b1a3c84e0e9df70353e281e39fbbea77e543 (patch)
treeca539e144406b880e26f10360ddd81be0f7fbe7f
parentFix arity of `consult--orderless-regex-compiler` (diff)
downloademacs-9742b1a3c84e0e9df70353e281e39fbbea77e543.tar.gz
emacs-9742b1a3c84e0e9df70353e281e39fbbea77e543.zip
Only load notmuch tab-bar if notmuch is in $PATH
-rw-r--r--lisp/+tab-bar.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index e328146..f0c4f62 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el
@@ -52,7 +52,8 @@
52 52
53(defun +tab-bar-notmuch-count () 53(defun +tab-bar-notmuch-count ()
54 "Display a notmuch count in the tab-bar." 54 "Display a notmuch count in the tab-bar."
55 (when (featurep 'notmuch) 55 (when (and (executable-find "notmuch")
56 (featurep 'notmuch))
56 (let* ((counts (notmuch-hello-query-counts notmuch-saved-searches)) 57 (let* ((counts (notmuch-hello-query-counts notmuch-saved-searches))
57 (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal)) 58 (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal))
58 (next-count (plist-get next :count))) 59 (next-count (plist-get next :count)))