diff options
| author | jao <jao@gnu.org> | 2022-08-27 03:29:34 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-27 03:31:24 +0100 |
| commit | b820b18d7814c5291236d3aed26d34c6fc9c4d8d (patch) | |
| tree | e783fda019b32e830839155257e17d8cc0942904 /lib/net | |
| parent | 5718c83892fe4989712d362ecf653fb7926d7985 (diff) | |
| download | elibs-b820b18d7814c5291236d3aed26d34c6fc9c4d8d.tar.gz elibs-b820b18d7814c5291236d3aed26d34c6fc9c4d8d.tar.bz2 | |
nits
Diffstat (limited to 'lib/net')
| -rw-r--r-- | lib/net/jao-notmuch.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 5c0ba25..fa4fee5 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -1,4 +1,4 @@ -;;; jao-notmuch.el --- Extensions for notmuch -*- lexical-binding: t; -*- +;; jao-notmuch.el --- Extensions for notmuch -*- lexical-binding: t; -*- ;; Copyright (C) 2021, 2022 jao @@ -18,11 +18,9 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Commentary: +;; Extensions to vanilla notmuch, mostly for tree view -;; Extensions to vanilla notmuch, mostly for tree view - -;;; Code: +;;; require: (require 'outline) (require 'mm-decode) @@ -33,7 +31,7 @@ (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") @@ -125,7 +123,7 @@ (message "No URLs in this message"))) -;;; Navigating URLs +;;; navigating URLs (require 'ffap) @@ -152,7 +150,7 @@ (browse-url url))) -;;; Toggling mime parts and images +;;; toggling mime parts and images (defun jao-notmuch--toggle-mime () (save-excursion @@ -214,7 +212,7 @@ (with-current-buffer notmuch-tree-message-buffer (jao-notmuch--view-html)))))) -;;; Keeping track of unread messages in current tree view +;;; keeping track of unread messages in current tree view (defun jao-notmuch--looking-at-new-p (&optional p) (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags))) @@ -272,7 +270,7 @@ (concat " " subject))) -;;; 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 " "))) @@ -369,7 +367,7 @@ (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel)) -;;; Tagging +;;; tagging (defsubst jao-notmuch--has-tag (tag) (member tag (notmuch-tree-get-tags))) @@ -439,7 +437,7 @@ (advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply) -;;; Results formatters +;;; results formatters (defun jao-notmuch-format-tags (fmt msg) (let ((ts (thread-last (notmuch-tree-format-field "tags" "%s" msg) |