summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-11 01:17:32 +0000
committerjao <jao@gnu.org>2022-01-11 01:17:32 +0000
commite110f33f1756a7090ca36f3f5505f790c13d9379 (patch)
treeece07e0ca79f5aa0262c8750167fe65690a62b4d
parentf90ffdc12fd51c88099cd279bde0576dec3d5695 (diff)
downloadelibs-e110f33f1756a7090ca36f3f5505f790c13d9379.tar.gz
elibs-e110f33f1756a7090ca36f3f5505f790c13d9379.tar.bz2
notmuch: separate emacs section in hello
-rw-r--r--notmuch.org18
1 files 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)