diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-gnus.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index 125b4ca..e62b249 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -683,6 +683,11 @@ gnus-newsrc-alist ())) +(defun jao-gnus-unread-count () + (seq-reduce (lambda (c g) (+ c (or (gnus-group-unread (car g)) 0))) + gnus-newsrc-alist + 0)) + (defun jao-gnus--unread-label (counts rx label face) (let ((n (seq-reduce (lambda (n c) (if (string-match-p rx (car c)) (+ n (cdr c)) n)) @@ -697,6 +702,11 @@ (when-let* ((n (jao-nnw-unread-count))) (when (> n 0) (list (format "(%s)" n)))))) +(defun jao-gnus-xbar () + (let ((n (jao-gnus-unread-count))) + (concat (if (> n 0) (format "%s " n) "") + (or (car (jao-gnus--nnw-count)) "")))) + (defun jao-gnus--notify-strs () (let ((counts (jao-gnus--unread-counts))) (append @@ -827,3 +837,6 @@ (define-key gnus-summary-mode-map "e" 'jao-gnus-open-enclosure) (define-key gnus-summary-mode-map "\C-l" nil) (define-key gnus-group-mode-map "a" 'jao-gnus-refresh-workspace) + +(jao-when-darwin + (define-key gnus-group-mode-map "O" 'jao-mac-open-nnw)) |