diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/doc/jao-doc-view.el | 14 | ||||
| -rw-r--r-- | lib/net/jao-notmuch.el | 36 |
2 files changed, 20 insertions, 30 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index ea55565..b8fbe1b 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -1,4 +1,4 @@ -;; jao-doc-view.el -- Remembering visited documents -*- lexical-binding: t; -*- +;;; jao-doc-view.el -- extensions for doc-view -*- lexical-binding: t; -*- ;; Copyright (c) 2013, 2015, 2017, 2018, 2019, 2021, 2022 Jose Antonio Ortega Ruiz @@ -18,13 +18,7 @@ ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Start date: Fri Feb 15, 2013 01:21 -;;; Comentary: -;; Some utilities to keep track of visited documents and their structure. - -;;; Code: - - ;;; Session (require 'doc-view) @@ -84,7 +78,6 @@ (add-hook 'pdf-view-mode-hook #'jao-doc-view--save-session) (add-hook 'nov-mode-hook #'jao-doc-view--save-session) - ;;; PDF info (defvar-local jao--pdf-outline nil) @@ -145,7 +138,6 @@ (or (jao-doc-view-section-title) (when buffer-file-name (jao-doc-view-title buffer-file-name))))) - ;;; imenu (defvar-local jao-doc-view--imenu-file nil) (defvar-local jao-doc-view--goer 'jao-doc-view-goto-page) @@ -173,7 +165,6 @@ (add-hook 'doc-view-mode-hook #'jao-doc-view--enable-imenu) - ;;; Page trailing (defvar-local jao-doc-view--trail-back ()) (defvar-local jao-doc-view--trail-fwd ()) @@ -199,7 +190,6 @@ (advice-add 'doc-view-goto-page :before #'jao-doc-view--trail-push) - ;;; Find URLs (defun jao-doc-view--page-urls (all) (if doc-view--current-converter-processes @@ -232,5 +222,5 @@ (when (null (cdr urls)) (car urls)))) (browse-url url)))))) - +;;; . (provide 'jao-doc-view) diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 05ec394..edffade 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -32,8 +32,8 @@ (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") @@ -130,8 +130,8 @@ (completing-read "Browse URL: " urls)) (message "No URLs in this message"))) - -;;;; Navigating URLs + +;;; Navigating URLs (require 'ffap) @@ -157,8 +157,8 @@ (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 @@ -220,8 +220,8 @@ (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))) @@ -278,8 +278,8 @@ `((:eval (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject))) (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 " "))) @@ -347,8 +347,8 @@ (interactive "P") (jao-notmuch-tree--next t t exit)) - -;;;; 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) @@ -359,8 +359,8 @@ (jao-notmuch-tree-outline-setup prefix) (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))) @@ -430,8 +430,8 @@ (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) @@ -451,12 +451,12 @@ 'notmuch-tree-no-match-author-face))) (propertize auth 'face face))) -(defun jao-notmuch-tree-and-subject (fmt msg) +(defun jao-notmuch-format-tree-and-subject (fmt msg) (let ((tr (notmuch-tree-format-field "tree" " %s" msg)) (sb (notmuch-tree-format-field "subject" " %s" msg))) (format-spec fmt `((?s . ,(concat tr sb)))))) -(defun jao-notmuch-msg-ticks (mails-rx msg) +(defun jao-notmuch-format-msg-ticks (mails-rx msg) (let ((headers (plist-get msg :headers))) (cond ((string-match-p mails-rx (or (plist-get headers :To) "")) (propertize " ยป" 'face 'notmuch-tree-match-tree-face)) |