From e110f33f1756a7090ca36f3f5505f790c13d9379 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 11 Jan 2022 01:17:32 +0000 Subject: notmuch: separate emacs section in hello --- notmuch.org | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/notmuch.org b/notmuch.org index 013587f..88f1b42 100644 --- a/notmuch.org +++ b/notmuch.org @@ -101,12 +101,6 @@ ,@(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 "emacs-orgmode" "eo" "emacs" "org") ,@(mapcar #'jao-notmuch--sq jao-notmuch--feed-tags) ,@(mapcar #'jao-notmuch--sq '("scheme" "notmuch" "erlang" "idris")) ,(jao-notmuch--sec @@ -116,6 +110,14 @@ (format "not tag:%s" tag)) jao-notmuch--feed-tags)))))) + (defvar jao-notmuch-emacs-searches + `(,(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 "emacs-orgmode" "eo" "emacs" "org"))) + (defvar jao-notmuch-dynamic-searches `(,(jao-notmuch--q "jao" "draft" "d" '("tag:draft")) ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) @@ -239,6 +241,9 @@ (seq-filter (lambda (q) (plist-get q :secondary)) notmuch-saved-searches) "feeds")) + (defun jao-notmuch-hello-insert-emacs-searches () + (jao-notmuch-hello--insert-searches jao-notmuch-emacs-searches "emacs")) + (defun jao-notmuch-hello-insert-dynamic-searches () (jao-notmuch-hello--insert-searches jao-notmuch-dynamic-searches "dynamic")) @@ -270,6 +275,7 @@ (setq notmuch-column-control t notmuch-hello-sections '(jao-notmuch-hello-insert-primary-searches jao-notmuch-hello-insert-secondary-searches + jao-notmuch-hello-insert-emacs-searches jao-notmuch-hello-insert-dynamic-searches notmuch-hello-insert-alltags notmuch-hello-insert-header) -- cgit v1.2.3