debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Easy access to URLs mentioned in the current message

Browse source 
Add a new binding when looking at messages, B, that prompts with a
list of URLs found in the current message, if any. Open the one that
is selected in a browser.

amended by db: s/--browse-urls/-browse-urls/
This commit is contained in:
David Edmondson 2018-11-08 10:45:08 +00:00 committed by David Bremner
parent 4bfbd5baa1
commit 235fdc52f4
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
emacs/notmuch-show.el
View file

@ -1511,6 +1511,7 @@ reset based on the original query."
(define-key map "<" 'notmuch-show-toggle-thread-indentation)
(define-key map "t" 'toggle-truncate-lines)
(define-key map "." 'notmuch-show-part-map)
(define-key map "B" 'notmuch-show-browse-urls)
map)
"Keymap for \"notmuch show\" buffers.")
(fset 'notmuch-show-mode-map notmuch-show-mode-map)
@ -1573,6 +1574,8 @@ All currently available key bindings:
;; region a->b is not found when point is at b. We walk backwards
;; until finding the property.
(defun notmuch-show-message-extent ()
"Return a cons cell containing the start and end buffer offset
of the current message."
(let (r)
(save-excursion
(while (not (setq r (get-text-property (point) :notmuch-message-extent)))
@ -2519,6 +2522,32 @@ beginning of the line."
(point))
(line-end-position)))
(defmacro notmuch-show--with-currently-shown-message (&rest body)
"Evaluate BODY with display restricted to the currently shown
message."
`(save-excursion
(save-restriction
(let ((extent (notmuch-show-message-extent)))
(narrow-to-region (car extent) (cdr extent))
,@body))))
(defun notmuch-show--gather-urls ()
"Gather any URLs in the current message."
(notmuch-show--with-currently-shown-message
(let (urls)
(goto-char (point-min))
(while (re-search-forward goto-address-url-regexp (point-max) t)
(push (match-string-no-properties 0) urls))
(reverse urls))))
(defun notmuch-show-browse-urls ()
"Offer to browse any URLs in the current message."
(interactive)
(let ((urls (notmuch-show--gather-urls)))
(if urls
(browse-url (completing-read "Browse URL: " (cdr urls) nil nil (car urls)))
(message "No URLs found."))))
(provide 'notmuch-show)
;;; notmuch-show.el ends here