From c660e50a71e98a63a49f51dccb967ced347d8f3d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 18 Aug 2021 22:18:16 +0100
Subject: notmuch-tag-formats

---
 notmuch.org | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

(limited to 'notmuch.org')

diff --git a/notmuch.org b/notmuch.org
index 11358f2..e6b14fa 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -176,7 +176,20 @@
             notmuch-wash-signature-lines-max 0
             notmuch-wash-wrap-lines-length 80
             notmuch-wash-citation-lines-prefix 10
-            notmuch-wash-citation-lines-suffix 20)
+            notmuch-wash-citation-lines-suffix 20
+            notmuch-tag-formats
+            (let ((d `(:foreground ,(face-attribute 'jao-themes-dimm :foreground)))
+                  (e `(:foreground ,(face-attribute 'jao-themes-error :foreground))))
+              `(("unread" "U")
+                ("new" "N")
+                ("replied" "R")
+                ("sent" "S")
+                ("deleted" "×××"
+                 (propertize tag 'face '(:underline nil ,@e)))
+                ("flagged" "*" (propertize tag 'face ',e))
+                ("jao" "j" (propertize tag 'face ',d))
+                ("bigml" "b" (propertize tag 'face ',d))
+                ("feeds" "f" (propertize tag 'face ',d)))))
 
       (setq gnus-blocked-images ".")
       (setq notmuch-show-text/html-blocked-images ".")
@@ -281,11 +294,7 @@
       (add-hook 'notmuch-show-hook #'jao-notmuch-show-setup)
       (jao-notmuch-show-prefer-html)
 
-      (defun jao-notmuch-tree-setup ()
-        (setq-local scroll-preserve-screen-position nil
-                    scroll-margin 2
-                    scroll-step 1))
-
+      (jao-notmuch-tree-setup)
       (define-key notmuch-tree-mode-map (kbd "T") notmuch-tree-thread-map)
 
       :bind (:map notmuch-tree-mode-map
-- 
cgit v1.2.3