diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-notmuch.el | 14 |
1 files changed, 10 insertions, 4 deletions
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) |