diff options
| -rw-r--r-- | custom/jao-custom-notmuch.el | 3 | ||||
| -rw-r--r-- | lib/doc/jao-mac.el | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 77b0b8f..bbae862 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -38,7 +38,8 @@ (interactive) (let* ((cnts (notmuch-hello-query-counts jao-notmuch-minibuffer-queries)) (mc (jao-d-l - (when jao-notmuch-mac-mail-badge (jao-mac-app-badge "Mail")) + (when jao-notmuch-mac-mail-badge + (jao-mac-app-badge jao-notmuch-mac-mail-badge)) 0)) (cnts (if (> (or mc 0) 0) (cons `(:name "" :count ,mc) cnts) cnts))) (setq jao-notmuch-minibuffer-string diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el index eca5d9a..269e853 100644 --- a/lib/doc/jao-mac.el +++ b/lib/doc/jao-mac.el @@ -1,6 +1,6 @@ ;;; jao-mac.el --- Running applescript. -*- lexical-binding: t; -*- -;; Copyright (C) 2025 Jose Antonio Ortega Ruiz +;; Copyright (C) 2025, 2026 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz <mail@jao.io> ;; Keywords: lisp @@ -83,7 +83,7 @@ (defun jao-mac-app-badge (app) "A very hacky, yet efficient, way of getting and apps badge." - (let* ((c (format "lsappinfo info -app %s -only StatusLabel" app)) + (let* ((c (format "lsappinfo info -app %S -only StatusLabel" app)) (s (shell-command-to-string c))) (when (string-match ".*=\"\\([0-9]+\\)\" ." s) (string-to-number (match-string 1 s)))) ) |