1 files changed, 49 insertions, 28 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index aef9757..404eab7 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; -*-
+;; jao-notmuch.el --- Extensions for notmuch     -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021, 2022, 2023, 2024  jao
+;; Copyright (C) 2021, 2022, 2023, 2024, 2025  jao
 
 ;; Author: jao <mail@jao.io>
 ;; Keywords: mail
@@ -167,7 +167,7 @@
     (jao-notmuch-goto-tree-buffer t)))
 
 (defun jao-notmuch--view-html ()
-  "Open the text/html part of the current message using `notmuch-show-view-part'."
+  "Open the text/html part of current message using `notmuch-show-view-part'."
   (interactive)
   (save-excursion
     (goto-char
@@ -212,7 +212,7 @@
            (with-current-buffer notmuch-tree-message-buffer
              (jao-notmuch--view-html))))))
 
-;;; header line with thread message counts
+;;; header and mode lines with thread message counts
 
 (defun jao-notmuch--looking-at-new-p (&optional p)
   (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags)))
@@ -266,7 +266,8 @@
                             (with-current-buffer b
                               (and (derived-mode-p 'notmuch-tree-mode) b)))
                           (buffer-list))))
-      `((:eval (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject)))
+      `((:eval
+         (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject)))
     (concat " " subject)))
 
 (defun jao-notmuch--format-lighter ()
@@ -316,6 +317,12 @@
   (let ((undo (jao-notmuch--has-tag "deleted")))
     (jao-notmuch-tree-tag-thread '("+deleted" "-new"  "-unread") undo full)))
 
+(defun jao-notmuch-tree-mark-all-read ()
+  (interactive)
+  (when-let* ((q notmuch-tree-basic-query))
+    (when (yes-or-no-p "Mark all messages as read? ")
+      (notmuch-tag q '("-new" "-unread")))))
+
 (defun jao-notmuch-tree-read-thread (full)
   (interactive "P")
   (jao-notmuch-tree-tag-thread '("-unread" "-new") nil full))
@@ -339,35 +346,28 @@
   (let ((tags (plist-get (notmuch-tree-get-message-properties) :orig-tags)))
     (jao-notmuch-tree--tag tags nil)))
 
+(defun jao-notmuch-subtags (tag &rest excl)
+  (let* ((cmd (concat "notmuch search --output=tags tag:" tag))
+         (ts (split-string (shell-command-to-string cmd))))
+    (seq-difference ts (append jao-notmuch--shared-tags (cons tag excl)))))
+
+
 ;;; fcc
-(defvar jao-notmuch-mua-reply-not-inherited
-  '("attachment" "sent" "new" "bigml" "jao" "trove"))
-
-(defun jao-notmuch-mua--fcc-dirs ()
-  (let* ((otags (notmuch-show-get-tags))
-         (trove (or (seq-some (lambda (x) (and (member x otags) x))
-                              '("hacking" "bills" "feeds" "jao"))
-                    "jao"))
-         (tags (seq-difference otags jao-notmuch-mua-reply-not-inherited))
-         (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " "))
-         (fcc (concat "trove/" trove " " tagstr " -new +sent +trove"))
-         (fcc-dirs (assoc-delete-all ".*" (copy-alist notmuch-fcc-dirs))))
-    (append fcc-dirs `((".*" . ,fcc)))))
+(defvar jao-notmuch-tags-not-inherited
+  '("attachment" "sent" "new" "trove" "flagged" "drivel" "replied"))
+
+(defvar jao-notmuch-sent-dir "sent")
 
 (defun jao-notmuch-mua--inherited-fcc ()
-  (let* ((fn (notmuch-show-get-filename))
-         (dest (and (string-match ".*/var/mail/\\(.+?\\)/.+" fn)
-                    (match-string 1 fn)))
-         (tags (seq-difference (notmuch-show-get-tags)
-                               '("attachment" "sent" "new" "flagged")))
+  (let* ((tags (seq-difference (notmuch-show-get-tags)
+                               jao-notmuch-tags-not-inherited))
          (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " "))
-         (fcc (concat dest " " tagstr " -new +sent +trove"))
+         (fcc (concat jao-notmuch-sent-dir " " tagstr " -new +sent"))
          (fcc-dirs (assoc-delete-all ".*" (copy-alist notmuch-fcc-dirs))))
     (append fcc-dirs `((".*" . ,fcc)))))
 
 (defun jao-notmuch-mua-new-reply (fun &rest args)
-  (let ((notmuch-fcc-dirs (and (not (notmuch-show-get-header :List-Id))
-                               (jao-notmuch-mua--inherited-fcc))))
+  (let ((notmuch-fcc-dirs (jao-notmuch-mua--inherited-fcc)))
     (apply fun args)))
 
 (advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply)
@@ -384,9 +384,10 @@
               (seq-sort #'jao-notmuch-cmp-tags))))
     (format-spec fmt `((?s . ,(mapconcat #'identity ts " "))))))
 
-(defun jao-notmuch-format-tree-and-subject (fmt msg)
+(defun jao-notmuch-format-tree-and-subject (_fmt msg)
   (let ((tr (notmuch-tree-format-field "tree" " %s" msg))
-        (sb (notmuch-tree-format-field "subject" " %s" msg)))
+        (sb (notmuch-tree-format-field "subject" " %s" msg))
+        (fmt (format "%%>-%ds" (- (window-width) 60))))
     (format-spec fmt `((?s . ,(concat tr sb))))))
 
 (defun jao-notmuch-format-msg-ticks (mails-rx msg)
@@ -398,4 +399,24 @@
           (t "  "))))
 
 (provide 'jao-notmuch)
+;;; org links
+(defun jao-notmuch-id-file-name (id)
+  (let ((cmd (format "notmuch search --output=files id:%s" id)))
+    (car (split-string (shell-command-to-string cmd)))))
+
+(defun jao-notmuch-org-store ()
+  (when-let* ((d (and (derived-mode-p '(notmuch-show-mode notmuch-tree-mode))
+                      (cons (notmuch-show-get-message-id)
+                            (notmuch-show-get-subject)))))
+    (org-link-store-props :type "mail"
+                          :link (concat "mail:" (car d))
+                          :description (concat "Mail: " (cdr d)))))
+
+(defun jao-notmuch-org-links ()
+  (org-link-set-parameters "mail"
+                           :follow #'notmuch-show
+                           :store #'jao-notmuch-org-store)
+  (org-link-set-parameters "gnus" :store #'ignore)
+  (org-link-set-parameters "notmuch" :store #'ignore))
+
 ;;; jao-notmuch.el ends here