From 918bdac750d094844bf263427e3c880751af042a Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 3 Oct 2022 02:33:34 +0100 Subject: notmuch: search tweaks --- custom/jao-custom-notmuch.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'custom') diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 1dc5fc8..29497ce 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -145,29 +145,30 @@ ,(jao-notmuch--q "jao" "flagged" "rj" '("tag:flagged" "tag:jao")) ,(jao-notmuch--q "feeds" "flagged" "rf" '("tag:flagged" "tag:feeds")))) -(jao-notmuch-def-searches dynamic +(jao-notmuch-def-searches today `(,(jao-notmuch--q "new" nil "nn" '("tag:new" "not tag:draft")) ,(jao-notmuch--q "jao" "drafts" "d" '("tag:draft")) - ,(jao-notmuch--q "bml" "sent-today" "ts" - '("tag:bigml" "date:24h.." "tag:sent")) - ,(jao-notmuch--q "jao" "sent-today" "tS" '("tag:jao" "date:24h.." "tag:sent")) - ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) + ,(jao-notmuch--q "bml" "sent" "ts" + '("tag:bigml" "date:1d.." "tag:sent")) + ,(jao-notmuch--q "jao" "sent" "tS" + '("tag:\"/jao|hacking/\"" "date:1d.." "tag:sent")) + ,(jao-notmuch--q "bml" "today" "tb" + '("not tag:sent" "tag:bigml" "date:24h..")) ,(jao-notmuch--q "jao" "today" "tj" '("tag:jao" "date:24h.." - "not tag:\"/(feeds|spam|local)/\"")))) + "not tag:\"/(sent|feeds|spam|local)/\"")))) (jao-notmuch-def-searches trove (mapcar (lambda (m) (list :query (concat "tag:trove and tag:" m) :name (concat "trove/" m) :key (concat "t" (substring m 0 1)) :search-type 'tree)) - '("feeds" "hacking" "bills" "jao"))) + '("jao" "hacking" "feeds" "bills"))) (jao-notmuch-def-searches nil - '((:query "tag:sent and tag:bigml" :name "bigml/sent") + '((:query "not tag:trove and not tag:bigml" :name "jao/untroved") + (:query "tag:sent and tag:bigml" :name "bigml/sent") (:query "tag:sent and not tag:bigml" :name "jao/sent") - (:query "not tag:gmane" :name "email") - (:query "tag:gmane" :name "gmane") (:query "*" :name "messages"))) (defvar jao-notmuch-widened-searches -- cgit v1.2.3