darwin: better way of getting app badge

1 files changed, 8 insertions, 4 deletions

diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el
index ad11ea2..eca5d9a 100644
--- a/lib/doc/jao-mac.el
+++ b/lib/doc/jao-mac.el
@@ -81,6 +81,13 @@
    (format "display notification %S with title %S subtitle %S"
            msg title subtitle)))
 
+(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))
+         (s (shell-command-to-string c)))
+    (when (string-match ".*=\"\\([0-9]+\\)\" ." s)
+      (string-to-number (match-string 1 s)))) )
+
 ;;; Skim
 (defvar jao-skim--current-file-script
   (jao-mac-applescript-prepare
@@ -156,10 +163,7 @@
   "lsappinfo info -app NetNewsWire -only StatusLabel")
 
 (defun jao-nnw-unread-count ()
-  "A very hacky, yet efficient, way of getting NNW's badge."
-  (let ((s (shell-command-to-string jao-nnw--label-cmd)))
-    (when (string-match ".*=\"\\([0-9]+\\)\" ." s)
-      (string-to-number (match-string 1 s)))))
+  (jao-mac-app-badge "NetNewsWire"))
 
 (defun jao-mac-open-nnw ()
   (interactive)