diff options
| -rw-r--r-- | lib/net/jao-notmuch.el | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 626eee8..a4ce4fd 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -32,8 +32,7 @@ (require 'notmuch-tree) (require 'notmuch-show) - -;; Targetting the displayed message from the tree view +;;;; Targetting the displayed message from the tree view (defvar-local jao-notmuch--tree-buffer nil) (declare eww--url-at-point "eww") @@ -110,8 +109,8 @@ (funcall fn (completing-read "Browse URL: " urls)) (message "No URLs in this message"))))) - -;; Navigating URLs +;;;; Navigating URLs + (defun jao-notmuch-show-next-button () (interactive) (when (get-text-property (point) 'w3m-href-anchor) @@ -132,8 +131,7 @@ (thing-at-point-url-at-point))) (browse-url url))) - -;; Toggling mime parts and images +;;;; Toggling mime parts and images (defun jao-notmuch--toggle-mime () (save-excursion @@ -183,7 +181,8 @@ (add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images) -;; fix w3m renderer keymap +;;;; w3m renderer + (defun jao-w3m-gnus-html-renderer (handle) (let ((w3m-message-silent t) (mm-w3m-safe-url-regexp nil)) @@ -272,8 +271,7 @@ (interactive) (message (jao-notmuch--tree-update-buffer-name))) - -;; Outline mode for tree view +;;;; Outline mode for tree view (defun jao-notmuch-tree--msg-prefix (msg) (insert (propertize (if (plist-get msg :first) "> " " ") 'display ""))) @@ -330,8 +328,7 @@ (interactive "P") (jao-notmuch-tree--next t thread t)) - -;; Updating the tree window after insertion +;;;; Updating the tree window after insertion (defun jao-notmuch--tree-sentinel (proc &rest _) (when (eq (process-status proc) 'exit) @@ -343,8 +340,7 @@ (jao-notmuch-tree-outline-setup prefix) (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel)) - -;; Tagging +;;;; Tagging (defun jao-notmuch-tag-jump-and-next (reverse) (interactive "P") |