summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-08-13 19:54:26 +0100
committerjao <jao@gnu.org>2021-08-13 19:54:46 +0100
commit20683ace9609ebbd0916717aa3cd5b073cfdff43 (patch)
treeb189d4f068bcd238b9630a9a51f2ce831733c68b
parent178245f5ef8606338b768ebaffe9deeb1ab5f63b (diff)
downloadelibs-20683ace9609ebbd0916717aa3cd5b073cfdff43.tar.gz
elibs-20683ace9609ebbd0916717aa3cd5b073cfdff43.tar.bz2
notmuch: hello tweaks
-rw-r--r--notmuch.org27
1 files changed, 24 insertions, 3 deletions
diff --git a/notmuch.org b/notmuch.org
index e2584e8..8e4b068 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -151,8 +151,8 @@
:init
(setq notmuch-draft-folder "jao/drafts"
notmuch-draft-quoted-tags '("part")
- notmuch-column-control t ;; 1.0
- notmuch-hello-sections '(notmuch-hello-insert-saved-searches
+ notmuch-column-control t
+ notmuch-hello-sections '(jao-notmuch-hello-insert-searches
notmuch-hello-insert-alltags
notmuch-hello-insert-header)
notmuch-hello-thousands-separator ","
@@ -179,6 +179,14 @@
:config
+ (defun jao-notmuch-hello-insert-searches ()
+ (when-let (searches (notmuch-hello-query-counts notmuch-saved-searches))
+ (widget-insert "Saved searches:\n\n")
+ (let ((start (point)))
+ (let ((notmuch-column-control t))
+ (notmuch-hello-insert-buttons searches))
+ (indent-rigidly start (point) notmuch-hello-indent))))
+
(when (eq 'notmuch jao-afio-mail-function)
(setq message-directory "~/var/mail/"
message-auto-save-directory "/tmp")
@@ -212,7 +220,7 @@
(interactive)
(let ((inhibit-message t))
(beginning-of-buffer)
- (widget-forward 2)))
+ (widget-forward 1)))
(defun jao-notmuch-refresh-hello ()
(interactive)
@@ -308,6 +316,19 @@
:map notmuch-common-keymap
(("B" . jao-notmuch-browse-urls))))
#+end_src
+* notmuch-addr
+ #+begin_src emacs-lisp
+ (when (jao-load-path "notmuch-addr")
+ (with-eval-after-load 'notmuch-address
+ (jao-corfu-no-auto notmuch-message)
+ (defun jao-notmuch-message-corfu-setup ()
+ (setq-local corfu-quit-no-match nil
+ corfu-commit-predicate t
+ orderless-component-separator " +"))
+ (add-hook 'notmuch-message-mode-hook #'jao-notmuch-message-corfu-setup)
+ (require 'notmuch-addr)
+ (notmuch-addr-setup)))
+ #+end_src
* hydras
#+begin_src emacs-lisp
(major-mode-hydra-define notmuch-search-mode nil