#+property: header-args:emacs-lisp :lexical t :tangle yes :comments yes :results silent :shebang ";; -*- lexical-binding: t; -*-" :tangle-mode (identity #o644) #+title: notmuch configuration * minibuffer #+begin_src emacs-lisp (defvar jao-notmuch-minibuffer-string "") (defvar jao-notmuch-minibuffer-queries '((:name "" :query "tag:new" :face jao-themes-f00) (:name "B" :query "tag:new and tag:bigml and tag:inbox" :face default) (:name "b" :query "tag:new and tag:bigml and tag:bugs" :face jao-themes-error) (:name "S" :query "tag:new and tag:bigml and tag:support" :face default) (:name "W" :query "tag:new and tag:bigml" :face default) (:name "H" :query "tag:new and tag:jao and tag:hacking") (:name "T" :query "tag:new and tag:think") (:name "E" :query "tag:new and tag:\"/emacs/\"") (:name "l" :query "tag:new and tag:local") (:name "J" :query "tag:new and tag:jao and not tag:\"/local|hacking/\"" :face default) (:name "F" :query "tag:new and tag:feeds and not tag:\"/emacs|papers/\"") (:name "G" :query "tag:new and tag:gmane and not tag:\"/emacs|papers/\"") (:name "P" :query "tag:new and tag:papers"))) (defun jao-notmuch-notify () (let ((cnts (notmuch-hello-query-counts jao-notmuch-minibuffer-queries))) (setq jao-notmuch-minibuffer-string (mapconcat (lambda (c) (propertize (format "%s%s" (plist-get c :name) (plist-get c :count)) 'face (or (plist-get c :face) 'jao-themes-dimm))) cnts " ")) (jao-minibuffer-refresh))) (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20) #+end_src * saved searches #+begin_src emacs-lisp (defvar jao-notmuch--new "tag:\"/^(unread|new)$/\"") (defvar jao-notmuch--newa (concat jao-notmuch--new " AND ")) (defun jao-notmuch--q (d0 d1 &optional k qs st) (let ((q (or (when qs (mapconcat #'identity qs " AND ")) (concat jao-notmuch--newa (mapconcat (lambda (d) (when d (concat "tag:" d))) (list d0 d1) " AND "))))) (list :name (concat d0 (when (and d1 (not (string= "" d1))) "/") d1) :key k :query q :search-type (or st 'tree) :sort-order 'oldest-first))) (defun jao-notmuch--qn (d0 d1 k qs &optional st) (jao-notmuch--q d0 d1 k (cons jao-notmuch--new qs) st)) (defun jao-notmuch--mboxes-search (box &rest excluded) (let ((ms (seq-difference (jao-list-mailboxes box) excluded)) (bp (substring box 0 1))) (mapcar (lambda (m) (jao-notmuch--q box (car m) (concat bp (cdr m)))) (shorten-strings (sort ms #'string<))))) (defun jao-notmuch--sec (q) (append q '(:secondary t))) (defun jao-notmuch--sq (tag k &optional d0 d1) (jao-notmuch--sec (jao-notmuch--qn (or d0 "feeds") (or d1 tag) k (list (concat "tag:" tag))))) (setq notmuch-saved-searches `(,(jao-notmuch--q "bigml" "inbox" "bi") ,(jao-notmuch--q "bigml" "support" "bs") ,(jao-notmuch--q "bigml" "bugs" "bb") ,@(jao-notmuch--mboxes-search "bigml" "inbox" "support") ,@(jao-notmuch--mboxes-search "jao" "drafts") ,(jao-notmuch--sq "local" "l" "local" "") ,(jao-notmuch--sq "emacs" "ee" "emacs" "feeds") ,(jao-notmuch--sq "emacs-github" "eg" "emacs" "github") ,(jao-notmuch--sq "emacs-devel" "ed" "emacs" "devel") ,(jao-notmuch--sq "emacs-bugs" "eb" "emacs" "bugs") ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs") ,(jao-notmuch--sq "clojure" "fc") ,(jao-notmuch--sq "elixir" "fex") ,(jao-notmuch--sq "erlang" "fe") ,(jao-notmuch--sq "gnus" "fg") ,(jao-notmuch--sq "haskell" "fh") ,(jao-notmuch--sq "idris" "fid") ,(jao-notmuch--sq "lobsters" "fl") ,(jao-notmuch--sq "mailutils" "fm") ,(jao-notmuch--sq "notmuch" "fn") ,(jao-notmuch--sq "papers" "fax") ,(jao-notmuch--sq "scheme" "fl") ,(jao-notmuch--sq "xmobar" "fx") ,(jao-notmuch--sec (jao-notmuch--qn "feeds" "prog" "fp" '("tag:prog" "not tag:\"/(lobsters|clojure|xmobar|gmane)/\""))) ,@(mapcar #'jao-notmuch--sec (jao-notmuch--mboxes-search "feeds" "emacs" "prog")))) (defvar jao-notmuch-dynamic-searches `(,(jao-notmuch--q "jao" "draft" "d" '("tag:draft")) ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) ,(jao-notmuch--q "jao" "today" "tj" '("tag:jao" "date:24h.." "not tag:\"/(feeds|spam|local)/\"")) ,(jao-notmuch--q "bml" "flagged" "rb" '("tag:flagged" "tag:bigml")) ,(jao-notmuch--q "jao" "flagged" "rj" '("tag:flagged" "not tag:bigml")) ,(jao-notmuch--q "unread" nil "n" '("tag:unread")))) (defun jao-notmuch-tree-widen-search () (interactive) (when-let ((query (notmuch-tree-get-query))) (let ((notmuch-show-process-crypto (notmuch-tree--message-process-crypto))) (notmuch-tree-close-message-window) (notmuch-tree (string-replace jao-notmuch--newa "" query))))) (defun jao-notmuch-widen-searches (searches) (mapcar (lambda (s) (let ((q (plist-get s :query))) (plist-put (copy-sequence s) :query (string-replace jao-notmuch--newa "" q)))) searches)) (defvar jao-notmuch-widened-searches (jao-notmuch-widen-searches notmuch-saved-searches)) (defun jao-notmuch-jump-search (&optional widen) (interactive "P") (let ((notmuch-saved-searches (if widen jao-notmuch-widened-searches notmuch-saved-searches))) (notmuch-jump-search))) #+end_src * tags #+begin_src emacs-lisp (setq notmuch-archive-tags '("+trove" "-new") notmuch-show-mark-read-tags '("-new" "-unread") notmuch-tag-formats (let ((d `(:foreground ,(face-attribute 'jao-themes-dimm :foreground))) (e `(:foreground ,(face-attribute 'jao-themes-error :foreground) :weight bold))) `(("unread") ("signed") ("new" "N") ("replied" "↩" (propertize tag 'face '(:family "Fira Code"))) ("sent" "S") ("attachment" "📎") ("deleted" "🗙" (propertize tag 'face '(:underline nil ,@e))) ("flagged" "!" (propertize tag 'face ',e)) ("jao" "j") ("bigml" "b") ("feeds" "f") ("gmane" "g"))) notmuch-tag-deleted-formats '(("unread") ("new") (".*" (notmuch-apply-face tag 'notmuch-tag-deleted)))) (with-eval-after-load "notmuch-tag" (advice-add #'notmuch-read-tag-changes :filter-return (lambda (x) (mapcar #'string-trim x)))) #+end_src * package #+begin_src emacs-lisp (if (< emacs-major-version 28) (jao-load-path "notmuch") (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/")) (use-package notmuch :custom ((notmuch-draft-folder "jao/drafts") (notmuch-draft-quoted-tags '("part")) (notmuch-address-internal-completion '(received nil)) (notmuch-fcc-dirs '(("\\(support\\|education\\)@bigml.com" . nil) (".*@bigml.com" . "bigml/sent +bigml +sent -new") (".*" . "jao/trove +jao +sent +trove -new"))) (notmuch-maildir-use-notmuch-insert t) (notmuch-message-headers '("Subject" "To" "Cc" "Date" "List-Id"))) :config (when (eq 'notmuch jao-afio-mail-function) (setq message-directory "~/var/mail/" message-auto-save-directory "/tmp" mail-user-agent 'message-user-agent)) :bind (:map notmuch-common-keymap (("E" . jao-notmuch-open-enclosure) ("B" . notmuch-show-resend-message) ("b" . jao-notmuch-browse-urls)) :filter (eq 'notmuch jao-afio-mail-function) :map message-mode-map (("C-c C-d" . notmuch-draft-postpone)))) (use-package jao-notmuch :demand t) #+end_src * hello #+begin_src emacs-lisp (defun jao-notmuch-hello--insert-searches (searches title) (when-let (searches (notmuch-hello-query-counts searches)) (let ((cnt (seq-reduce (lambda (c q) (+ c (or (plist-get q :count) 0))) searches 0))) (widget-insert (format "%d %s\n\n" cnt title))) (let ((start (point))) (let ((notmuch-column-control t)) (notmuch-hello-insert-buttons searches)) (indent-rigidly start (point) notmuch-hello-indent)))) (defun jao-notmuch-hello-insert-primary-searches () (jao-notmuch-hello--insert-searches (seq-remove (lambda (q) (plist-get q :secondary)) notmuch-saved-searches) "inbox")) (defun jao-notmuch-hello-insert-secondary-searches () (jao-notmuch-hello--insert-searches (seq-filter (lambda (q) (plist-get q :secondary)) notmuch-saved-searches) "feeds")) (defun jao-notmuch-hello-insert-dynamic-searches () (jao-notmuch-hello--insert-searches jao-notmuch-dynamic-searches "dynamic")) (defun jao-notmuch-refresh-agenda () (interactive) (save-window-excursion (org-agenda-list)) (with-current-buffer "*Calendar*" (calendar-goto-today))) (defun jao-notmuch-hello-first () (interactive) (let ((inhibit-message t)) (beginning-of-buffer) (widget-forward 1))) (defun jao-notmuch-refresh-hello () (interactive) (ignore-errors (when (and (string= "Mail" (jao-afio-current-frame)) (derived-mode-p 'notmuch-hello-mode)) (when (not (string-blank-p jao-notmuch-minibuffer-string)) (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello))) (jao-notmuch-hello-first)))) (use-package notmuch-hello :init (setq notmuch-column-control t notmuch-hello-sections '(jao-notmuch-hello-insert-primary-searches jao-notmuch-hello-insert-secondary-searches jao-notmuch-hello-insert-dynamic-searches notmuch-hello-insert-alltags notmuch-hello-insert-header) notmuch-hello-thousands-separator "," notmuch-hello-auto-refresh t notmuch-show-all-tags-list t notmuch-show-logo nil notmuch-show-empty-saved-searches nil) :hook ((notmuch-hello-refresh . jao-notmuch-notify) (jao-afio-switch . jao-notmuch-refresh-hello)) :bind (:map notmuch-hello-mode-map (("a" . jao-notmuch-refresh-agenda) ("j" . jao-notmuch-jump-search) ("n" . widget-button-press) ("p" . widget-backward) ("S" . consult-notmuch) ("g" . jao-notmuch-refresh-hello) ("." . jao-notmuch-hello-first) ("SPC" . widget-button-press)))) #+end_src * show #+begin_src emacs-lisp (defun jao-notmuch-open-enclosure (add) (interactive "P") (with-current-notmuch-show-message (goto-char (point-min)) (if (not (search-forward "Enclosure:" nil t)) (user-error "No enclosure in message body") (re-search-forward "https?://" nil t) (if-let (url (thing-at-point-url-at-point)) (progn (message "%s %s ..." (if add "Adding" "Playing") url) (unless add (jao-mpc-clear)) (jao-mpc-add-url url) (unless add (jao-mpc-play))) (error "Found an enclosure, but not a link!"))))) (defconst jao-mail-clean-rx (regexp-opt '("ElDiario.es - ElDiario.es: " "The Guardian: " "The Conversation – Articles (UK): "))) (defun jao-mail-clean-address (args) (when-let ((address (car args))) (list (if (string-match ".+ updates on arXiv.org: \\(.+\\)" address) (with-temp-buffer (insert (match-string 1 address)) (let ((shr-width 1000)) (shr-render-region (point-min) (point-max))) (replace-regexp-in-string "\"" "" (buffer-string))) (replace-regexp-in-string jao-mail-clean-rx "" address))))) (defun jao-notmuch-show-setup () (setq header-line-format nil)) (use-package notmuch-show :init (setq gnus-blocked-images "." notmuch-show-only-matching-messages t notmuch-show-part-button-default-action 'notmuch-show-view-part 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-show-text/html-blocked-images ".") :config (advice-add 'notmuch-clean-address :filter-args #'jao-mail-clean-address) (add-hook 'notmuch-show-hook #'jao-notmuch-show-setup) (jao-notmuch-show-prefer-html) :bind (:map notmuch-show-mode-map (("h" . jao-notmuch-goto-tree-buffer) ("TAB" . jao-notmuch-show-next-button) ([backtab] . jao-notmuch-show-previous-button) ("RET" . jao-notmuch-show-ret)))) #+end_src * search #+begin_src emacs-lisp (use-package notmuch-search :init (setq notmuch-search-result-format '(("date" . "%12s ") ("count" . "%-7s ") ("authors" . "%-35s") ("subject" . " %-100s") (jao-notmuch-format-tags . " (%s)"))) :bind (:map notmuch-search-mode-map (("RET" . notmuch-tree-from-search-thread) ("M-RET" . notmuch-search-show-thread)))) #+end_src * tree #+begin_src emacs-lisp (use-package notmuch-tree :init (setq notmuch-tree-result-format `(("date" . "%12s ") ("authors" . "%-35s") (jao-notmuch-msg-ticks . ,jao-mails-regexp) (jao-notmuch-tree-and-subject . "%>-102s") (jao-notmuch-format-tags . " (%s)")) notmuch-unthreaded-result-format notmuch-search-result-format consult-notmuch-result-format `((jao-notmuch-msg-ticks . ,jao-mails-regexp) ("date" . "%12s ") ("authors" . "%-35s") ("subject" . " %-100s") (jao-notmuch-format-tags . " (%s)")) notmuch-tree-thread-symbols '((prefix . "─") (top . "─") (top-tee . "┬") (vertical . "│") (vertical-tee . "├") (bottom . "╰") (arrow . ""))) :config (let ((fg (face-attribute 'jao-themes-dimm :foreground))) (dolist (f '(notmuch-tree-match-tree-face notmuch-tree-no-match-tree-face)) (set-face-attribute f nil :family "Fira Code" :foreground fg))) (jao-notmuch-tree-setup "T") (defun jao-notmuch-tree--forward (&optional prev) (interactive) (forward-line (if prev -1 1)) (when prev (forward-char 2)) (jao-notmuch-tree-scroll-or-next)) (defun jao-notmuch-tree--backward () (interactive) (jao-notmuch-tree--forward t)) (defun jao-notmuch--via-url () (when (window-live-p notmuch-tree-message-window) (with-selected-window notmuch-tree-message-window (goto-char (point-min)) (when (re-search-forward "^Via: http" nil t) (thing-at-point-url-at-point))))) (defun jao-notmuch-browse-url (ext) (interactive "P") (when-let (url (or (jao-notmuch--via-url) (car (last (jao-notmuch-message-urls))))) (funcall (if ext browse-url-secondary-browser-function #'browse-url) url))) :bind (:map notmuch-tree-mode-map (("b" . jao-notmuch-browse-urls) ("C" . jao-notmuch-echo-count) ("d" . jao-notmuch-tree-delete-message) ("D" . jao-notmuch-tree-delete-thread) ("h" . jao-notmuch-goto-message-buffer) ("H" . jao-notmuch-click-message-buffer) ("i" . jao-notmuch-show-images) ("K" . jao-notmuch-tag-jump-and-next) ("k" . jao-notmuch-tree-read-thread) ("n" . jao-notmuch-tree-next) ("N" . jao-notmuch-tree--forward) ("O" . notmuch-tree-toggle-order) ("o" . jao-notmuch-tree-widen-search) ("p" . jao-notmuch-tree-previous) ("P" . jao-notmuch-tree--backward) ("r" . notmuch-tree-reply) ("R" . notmuch-tree-reply-sender) ("s" . jao-notmuch-tree-spam) ("u" . jao-notmuch-tree-flag) ("v" . notmuch-tree-scroll-message-window) ("V" . notmuch-tree-scroll-message-window-back) ("x" . jao-notmuch-arXiv-capture) ("<" . jao-notmuch-tree-beginning-of-buffer) (">" . jao-notmuch-tree-end-of-buffer) ("/" . notmuch-tree-view-raw-message) ("." . jao-notmuch-toggle-mime-parts) ("=" . jao-notmuch-tree-toggle-message) ("RET" . jao-notmuch-tree-show-or-scroll) ("SPC" . jao-notmuch-tree-scroll-or-next) ("M-g" . jao-notmuch-browse-url)))) #+end_src * consult #+begin_src emacs-lisp (jao-load-path "consult-notmuch") (setq consult-notmuch-authors-width 30) (require 'consult-notmuch) (consult-customize consult-notmuch :preview-key 'any) (defvar jao-consult-notmuch-history nil) (defun jao-consult-notmuch-folder (&optional tree folder) (interactive "P") (let* ((root "~/var/mail/") (folder (if folder (file-name-as-directory folder) (completing-read "Folder: " jao-mailbox-folders nil nil nil jao-consult-notmuch-history "."))) (folder (replace-regexp-in-string "/\\(.\\)" ".\\1" folder)) (init (read-string "Initial query: ")) (init (format "folder:/%s/ %s" folder init))) (if tree (consult-notmuch-tree init) (consult-notmuch init)))) (with-eval-after-load "notmuch-hello" (define-key notmuch-hello-mode-map "f" #'jao-consult-notmuch-folder)) #+end_src * org mode Stolen and adapted from [[https://gist.github.com/fedxa/fac592424473f1b70ea489cc64e08911][Fedor Bezrukov]]. #+begin_src emacs-lisp (with-eval-after-load "org" (with-eval-after-load "notmuch" (org-link-set-parameters "notmuch" :follow 'org-notmuch-open :store 'org-notmuch-store-link) (defun org-notmuch-open (id) "Visit the notmuch message or thread with id ID." (notmuch-show id)) (defvar jao-org-notmuch-last-subject nil) (defun jao-org-notmuch-last-subject () jao-org-notmuch-last-subject) (defun org-notmuch-store-link () "Store a link to a notmuch mail message." (cl-case major-mode ((notmuch-show-mode notmuch-tree-mode) ;; Store link to the current message (let* ((id (notmuch-show-get-message-id)) (link (concat "notmuch:" id)) (subj (notmuch-show-get-subject)) (description (format "Mail: %s" subj))) (setq jao-org-notmuch-last-subject subj) (when (y-or-n-p "Archive message? ") (if (derived-mode-p 'notmuch-show-mode) (notmuch-show-archive-message) (notmuch-tree-archive-message))) (when (y-or-n-p "Flag message? ") (if (derived-mode-p 'notmuch-show-mode) (notmuch-show-add-tag '("+flagged")) (notmuch-tree-add-tag '("+flagged")))) (org-store-link-props :type "notmuch" :link link :description description))) (notmuch-search-mode ;; Store link to the thread on the current line (let* ((id (notmuch-search-find-thread-id)) (link (concat "notmuch:" id)) (subj (notmuch-search-find-subject)) (description (format "Mail: %s" subj))) (setq jao-org-notmuch-last-subject subj) (org-store-link-props :type "notmuch" :link link :description description))))))) #+end_src * arXiv #+begin_src emacs-lisp (use-package org-capture :config (add-to-list 'org-capture-templates '("X" "arXiv" entry (file "notes/physics/arxiv.org") "* %(jao-org-notmuch-last-subject)\n %i" :immediate-finish t) t) (org-capture-upgrade-templates org-capture-templates)) (defun jao-notmuch-arXiv-capture () (interactive) (save-window-excursion (jao-notmuch-goto-message-buffer) (save-excursion (goto-char (point-min)) (re-search-forward "\\[ text/html \\]") (forward-paragraph) (setq-local transient-mark-mode 'lambda) (set-mark (point)) (goto-char (point-max)) (org-capture nil "X")))) #+end_src