diff options
| author | Case Duckworth | 2022-04-01 18:55:19 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-01 18:55:19 -0500 |
| commit | 9742b1a3c84e0e9df70353e281e39fbbea77e543 (patch) | |
| tree | ca539e144406b880e26f10360ddd81be0f7fbe7f /lisp | |
| parent | Fix arity of `consult--orderless-regex-compiler` (diff) | |
| download | emacs-9742b1a3c84e0e9df70353e281e39fbbea77e543.tar.gz emacs-9742b1a3c84e0e9df70353e281e39fbbea77e543.zip | |
Only load notmuch tab-bar if notmuch is in $PATH
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+tab-bar.el | 3 |
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))) |