diff options
| author | jao <jao@gnu.org> | 2024-04-02 23:04:49 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-04-02 23:06:43 +0100 |
| commit | 5660eb048b483889d10c28ff70dcdac3027a0cc4 (patch) | |
| tree | 511eae4ccaf591e80bfc7c2c601265ff3b407f15 /lib | |
| parent | d431600144b54eac44a3f43289b64cf573ae0561 (diff) | |
| download | elibs-5660eb048b483889d10c28ff70dcdac3027a0cc4.tar.gz elibs-5660eb048b483889d10c28ff70dcdac3027a0cc4.tar.bz2 | |
notmuch: tree message counts in modeline rather than header
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/net/jao-notmuch.el | 13 | ||||
| -rw-r--r-- | lib/themes/jao-light-theme.el | 1 |
2 files changed, 13 insertions, 1 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 92ed49f..aef9757 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -1,6 +1,6 @@ ;;; jao-notmuch.el --- Extensions for notmuch -*- lexical-binding: t; -*- -;; Copyright (C) 2021, 2022, 2023 jao +;; Copyright (C) 2021, 2022, 2023, 2024 jao ;; Author: jao <mail@jao.io> ;; Keywords: mail @@ -269,6 +269,17 @@ `((:eval (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject))) (concat " " subject))) +(defun jao-notmuch--format-lighter () + (when (derived-mode-p 'notmuch-tree-mode) + (let* ((n (jao-notmuch--message-counts (current-buffer))) + (nc (jao-notmuch--message-counts (current-buffer) t)) + (nc (append (or n '(0 0 0)) (or nc '(0 0 0))))) + (apply 'jao-notmuch--format-counts "" nc)))) + +(define-minor-mode jao-notmuch-thread-info-mode "" + :lighter (:eval (format " %s" (jao-notmuch--format-lighter)))) + + ;;; tagging (defsubst jao-notmuch--has-tag (tag) diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index d4f3f6a..a172f84 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -100,6 +100,7 @@ :box (:line-width 1 :color "grey90")) (magit-diff-context-highlight (c nil yellow) ex) (magit-diff-hunk-heading-highlight (c nil hl) it bf) + (message-header-subject (p warning) nbf) (mode-line (c "grey20") :box (:line-width 1 :color "grey80")) (mode-line-inactive (c "grey40" bg-light) :box (:line-width 1 :color "grey80")) |