From b9049485f0c69225a841889785d7b54f189215e9 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 30 Oct 2021 23:30:06 +0100 Subject: jao-notmuch: old-school pagination --- lib/net/jao-notmuch.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib') 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) -- cgit v1.2.3