diff options
| author | jao <jao@gnu.org> | 2026-01-21 13:40:13 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-01-21 13:40:13 +0000 |
| commit | cc42a096c267ae184e20960d3f397ef083855f04 (patch) | |
| tree | 9e93d57379bae5df6802b7defbcfab5d3142f4cd | |
| parent | 4e71898553e91f629c91fc13a123f85eb1475bae (diff) | |
| download | elibs-cc42a096c267ae184e20960d3f397ef083855f04.tar.gz elibs-cc42a096c267ae184e20960d3f397ef083855f04.tar.bz2 | |
mac badges: whitespace in app namesmain
| -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)))) ) |