notmuch tweaks

2 files changed, 19 insertions, 1 deletions

diff --git a/custom.el b/custom.el
index 6bc7a7b..1af2488 100644
--- a/custom.el
+++ b/custom.el
@@ -9,6 +9,14 @@
  '(display-line-numbers-type 'relative t)
  '(display-time-mode t)
  '(ispell-dictionary nil)
+ '(notmuch-saved-searches
+   '((:name "Inbox" :query "tag:inbox" :count-query "tag:inbox and tag:unread" :sort-order newest-first :key "i")
+     (:name "Unread" :query "tag:unread" :sort-order newest-first :key "u")
+     (:name "Sent" :query "tag:sent" :sort-order newest-first :key "s")
+     (:name "All Mail" :query "*" :sort-order newest-first :key "a")
+     (:name "School" :query "tag:school" :sort-order newest-first :key "S")
+     (:name "Deleted" :query "tag:deleted" :sort-order newest-first :key "d")
+     (:name "todo" :query "tag:todo")))
  '(package-selected-packages
    '(flycheck-clj-kondo pass vertico denote orderless consult-lsp undo-tree embark-consult embark marginalia markdown-mode eglot helm popup async notmuch ivy calfw-org calfw unicode-fonts deft cider org-roam org yasnippet-snippets which-key vterm use-package rainbow-delimiters pdf-tools paredit magit ledger-mode gruvbox-theme flycheck expand-region evil elpy elfeed-score diminish counsel cmake-mode browse-kill-ring beacon auto-package-update amx ace-window ace-jump-mode))
  '(safe-local-variable-values
diff --git a/init.el b/init.el
index 74a2264..c3a442e 100644
--- a/init.el
+++ b/init.el
@@ -572,11 +572,17 @@ Restart works only on graphic display."
           (notmuch-search-tag (list "-deleted"))
         (notmuch-search-tag (list "+deleted")))))
   (setq send-mail-function 'sendmail-send-it
+        notmuch-search-result-format '(("date" . "%12s ")
+                                       ("count" . "%7s ")
+                                       ("authors" . "%-20s ")
+                                       ("subject" . "%-80s ")
+                                       ("tags" . "(%s) "))
         sendmail-program "/usr/bin/msmtp"
+        notmuch-archive-tags '("-inbox" "+archived" "-new")
         message-kill-buffer-on-exit t
         notmuch-draft-folder "fastmail/Drafts"
         notmuch-fcc-dirs "fastmail/Sent +sent -unread -inbox"
-        notmuch-search-oldest-first t
+        notmuch-search-oldest-first nil
         mail-specify-envelope-from t
         message-signature "\n\n-- \nMatthew"
         mm-text-html-renderer 'lynx
@@ -599,6 +605,10 @@ Restart works only on graphic display."
                                         :query "*"
                                         :sort-order newest-first
                                         :key "a")
+                                 (:name "School"
+                                        :query "tag:school"
+                                        :sort-order newest-first
+                                        :key "S")                                 
                                  (:name "Deleted"
                                         :query "tag:deleted"
                                         :sort-order newest-first