diff options
Diffstat (limited to 'lib/doc/jao-mac.el')
| -rw-r--r-- | lib/doc/jao-mac.el | 9 |
1 files changed, 9 insertions, 0 deletions
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")) |