Compare commits

...

3 Commits

Author SHA1 Message Date
Case Duckworth a44a825f2c Merge branch 'main' of tildegit.org:acdw/emacs 2022-04-01 18:56:05 -05:00
Case Duckworth 9742b1a3c8 Only load notmuch tab-bar if notmuch is in $PATH 2022-04-01 18:55:19 -05:00
Case Duckworth f75a2fc9e3 Fix arity of `consult--orderless-regex-compiler`
I might want to combine this and the one for affe.
2022-04-01 18:54:42 -05:00
1 changed files with 2 additions and 1 deletions

View File

@ -52,7 +52,8 @@
(defun +tab-bar-notmuch-count ()
"Display a notmuch count in the tab-bar."
(when (featurep 'notmuch)
(when (and (executable-find "notmuch")
(featurep 'notmuch))
(let* ((counts (notmuch-hello-query-counts notmuch-saved-searches))
(next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal))
(next-count (plist-get next :count)))