From 2c45e0f8fc8dbe29aefc3f53392c7d9d3bf54b08 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 2 Oct 2025 17:45:51 +0100 Subject: nnw badge in gnus notifications --- lib/doc/jao-mac.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib/doc') diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el index 06d6ad3..822cdb0 100644 --- a/lib/doc/jao-mac.el +++ b/lib/doc/jao-mac.el @@ -130,6 +130,15 @@ (browse-url url)) (message "No article selected in NetNewsWire"))) +(defvar jao-nnw--label-cmd + "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))))) + ;;; Safari (defun jao-safari-current-url () (jao-mac-tell-app "Safari" "return URL of current tab of window 1")) -- cgit v1.2.3