diff options
| author | jao <jao@gnu.org> | 2025-10-06 18:52:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-10-06 18:52:52 +0100 |
| commit | d5056c83de34fadd4ee8438240d6a115c5377877 (patch) | |
| tree | b7874f3894abdde1a865f122038c9888a8cb6f7e /custom/jao-custom-gnus.el | |
| parent | a8966ff200e963ce40d5e3234e8f9a203f45a421 (diff) | |
| download | elibs-d5056c83de34fadd4ee8438240d6a115c5377877.tar.gz elibs-d5056c83de34fadd4ee8438240d6a115c5377877.tar.bz2 | |
mac navigation
Diffstat (limited to 'custom/jao-custom-gnus.el')
| -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)) |