From cc42a096c267ae184e20960d3f397ef083855f04 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 21 Jan 2026 13:40:13 +0000 Subject: mac badges: whitespace in app names --- custom/jao-custom-notmuch.el | 3 ++- 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 ;; 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)))) ) -- cgit v1.2.3