From f6689901678240caadb67079b980d271c627ce3e Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 8 Mar 2026 17:52:31 +0000 Subject: nits --- custom/jao-custom-notmuch.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'custom') diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index bbae862..858ae6b 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -129,15 +129,16 @@ (defvar jao-notmuch-widened-searches nil) -(defun jao-notmuch-define-searches (s &optional other) +(defun jao-notmuch-init-searches (s &optional other) (jao-notmuch--set-new-search s) (setq notmuch-hello-sections nil notmuch-saved-searches nil jao-notmuch-widened-searches nil) - (when other (jao-notmuch--def-searches (car other) (cdr other))) + (when other (jao-notmuch--def-searches (car other) (cdr other)))) +(defun jao-notmuch-define-personal-searches () (jao-notmuch--def-searches "inbox" `(,(jao-notmuch--q "inbox" "i") ,(jao-notmuch--q "write" "w") @@ -175,8 +176,9 @@ ("sp" "physics") ("ss" "sci") ("sg" "gr-qc") - ("sq" "quant-ph")))) + ("sq" "quant-ph"))))) +(defun jao-notmuch-define-summary-searches () (jao-notmuch--def-searches "flags" (jao-notmuch-widen-searches notmuch-saved-searches " AND tag:flagged") t) @@ -201,8 +203,12 @@ (:query "tag:sent" :name "sent"))) (jao-notmuch--def-searches nil - '((:query "*" :name "messages" :search-type tree))) + '((:query "*" :name "messages" :search-type tree)))) +(defun jao-notmuch-define-searches (s &optional other skip-jao) + (jao-notmuch-init-searches s other) + (unless skip-jao (jao-notmuch-define-personal-searches)) + (jao-notmuch-define-summary-searches) ;; (add-to-list 'notmuch-hello-sections 'notmuch-hello-insert-alltags t) (when (display-graphic-p) -- cgit v1.2.3