diff options
| author | jao <jao@gnu.org> | 2021-09-01 02:02:21 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-09-01 02:02:21 +0100 |
| commit | 6d6f596043e5cf190a2d40534cfc70ffeabb9536 (patch) | |
| tree | 9ae92205ab1207095b4d820d9ac21d6f06c85ff9 /lib | |
| parent | 6c6ecf30da3a97c859b693ec09eae1a2ae1502ba (diff) | |
| download | elibs-6d6f596043e5cf190a2d40534cfc70ffeabb9536.tar.gz elibs-6d6f596043e5cf190a2d40534cfc70ffeabb9536.tar.bz2 | |
whitespace
Diffstat (limited to 'lib')
| -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") |