diff options
| author | jao <jao@gnu.org> | 2022-01-12 18:29:08 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-12 18:29:08 +0000 |
| commit | 4165aa6e0859af2bbee3c02e1aaf5a664f411b32 (patch) | |
| tree | e10329dbde16502936e9b75b7802f0448f46f267 | |
| parent | 29cc19fc5eec7f9ddc7d56c475112e2ff7acb6a4 (diff) | |
| download | elibs-4165aa6e0859af2bbee3c02e1aaf5a664f411b32.tar.gz elibs-4165aa6e0859af2bbee3c02e1aaf5a664f411b32.tar.bz2 | |
whitespace
| -rw-r--r-- | notmuch.org | 49 |
1 files changed, 24 insertions, 25 deletions
diff --git a/notmuch.org b/notmuch.org index dd8d0d9..c12019a 100644 --- a/notmuch.org +++ b/notmuch.org @@ -398,9 +398,32 @@ #+end_src * tree #+begin_src emacs-lisp + (defun jao-notmuch-tree--forward (&optional prev) + (interactive) + (forward-line (if prev -1 1)) + (when prev (forward-char 2)) + (jao-notmuch-tree-scroll-or-next)) + + (defun jao-notmuch-tree--backward () + (interactive) + (jao-notmuch-tree--forward t)) + + (defun jao-notmuch--via-url () + (when (window-live-p notmuch-tree-message-window) + (with-selected-window notmuch-tree-message-window + (goto-char (point-min)) + (when (re-search-forward "^Via: http" nil t) + (thing-at-point-url-at-point))))) + + (defun jao-notmuch-browse-url (ext) + (interactive "P") + (when-let (url (or (jao-notmuch--via-url) + (car (last (jao-notmuch-message-urls))))) + (funcall (if ext browse-url-secondary-browser-function #'browse-url) + url))) + (use-package notmuch-tree :init - (setq notmuch-tree-result-format `(("date" . "%12s ") ("authors" . "%-35s") @@ -428,30 +451,6 @@ (jao-notmuch-tree-setup "T") - (defun jao-notmuch-tree--forward (&optional prev) - (interactive) - (forward-line (if prev -1 1)) - (when prev (forward-char 2)) - (jao-notmuch-tree-scroll-or-next)) - - (defun jao-notmuch-tree--backward () - (interactive) - (jao-notmuch-tree--forward t)) - - (defun jao-notmuch--via-url () - (when (window-live-p notmuch-tree-message-window) - (with-selected-window notmuch-tree-message-window - (goto-char (point-min)) - (when (re-search-forward "^Via: http" nil t) - (thing-at-point-url-at-point))))) - - (defun jao-notmuch-browse-url (ext) - (interactive "P") - (when-let (url (or (jao-notmuch--via-url) - (car (last (jao-notmuch-message-urls))))) - (funcall (if ext browse-url-secondary-browser-function #'browse-url) - url))) - :bind (:map notmuch-tree-mode-map (("b" . jao-notmuch-browse-urls) ("d" . jao-notmuch-tree-toggle-delete) |