diff options
| author | jao <jao@gnu.org> | 2022-01-11 01:17:32 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-11 01:17:32 +0000 |
| commit | e110f33f1756a7090ca36f3f5505f790c13d9379 (patch) | |
| tree | ece07e0ca79f5aa0262c8750167fe65690a62b4d | |
| parent | f90ffdc12fd51c88099cd279bde0576dec3d5695 (diff) | |
| download | elibs-e110f33f1756a7090ca36f3f5505f790c13d9379.tar.gz elibs-e110f33f1756a7090ca36f3f5505f790c13d9379.tar.bz2 | |
notmuch: separate emacs section in hello
| -rw-r--r-- | notmuch.org | 18 |
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) |