diff options
author | jao <jao@gnu.org> | 2021-10-30 23:30:06 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-10-30 23:30:06 +0100 |
commit | b9049485f0c69225a841889785d7b54f189215e9 (patch) | |
tree | b13ed70a49ad51de7ac8af5b8db8784a0de1bdb3 /lib/net | |
parent | c662823eeb5f8213263ee59f592887569b4b3a28 (diff) | |
download | elibs-b9049485f0c69225a841889785d7b54f189215e9.tar.gz elibs-b9049485f0c69225a841889785d7b54f189215e9.tar.bz2 |
jao-notmuch: old-school pagination
Diffstat (limited to 'lib/net')
-rw-r--r-- | lib/net/jao-notmuch.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index b9a9be9..77d0d13 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -32,6 +32,7 @@ (require 'notmuch-tree) (require 'notmuch-show) + ;;;; Targetting the displayed message from the tree view (defvar-local jao-notmuch--tree-buffer nil) @@ -121,6 +122,7 @@ (completing-read "Browse URL: " urls)) (message "No URLs in this message"))) + ;;;; Navigating URLs (require 'ffap) @@ -147,6 +149,7 @@ (thing-at-point-url-at-point))) (browse-url url))) + ;;;; Toggling mime parts and images (defun jao-notmuch--toggle-mime () @@ -197,6 +200,7 @@ (add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images) + ;;;; w3m renderer (defun jao-w3m-gnus-html-renderer (handle) @@ -211,6 +215,7 @@ (setq mm-text-html-renderer #'jao-w3m-gnus-html-renderer) + ;;;; Keeping track of unread messages in current tree view (defvar-local jao-notmuch--query-name nil) @@ -280,6 +285,7 @@ (interactive) (message (jao-notmuch--tree-update-buffer-name))) + ;;;; Outline mode for tree view (defun jao-notmuch-tree--msg-prefix (msg) @@ -348,6 +354,7 @@ (interactive "P") (jao-notmuch-tree--next t t exit)) + ;;;; Updating the tree window after insertion (defun jao-notmuch--tree-sentinel (proc &rest _) @@ -360,6 +367,7 @@ (jao-notmuch-tree-outline-setup prefix) (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel)) + ;;;; Tagging (defun jao-notmuch-tag-jump-and-next (reverse) @@ -398,6 +406,7 @@ (let ((tags (if unmark '("-spam") '("-unread" "-new" "+spam")))) (jao-notmuch-tree--tag-and-next tags nil nil))) + ;;;; Results formatters (defun jao-notmuch-format-tags (fmt msg) |