From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 23 Jan 2021 19:39:45 +0000 (+0100)
Subject: Provide a (thing-at-point 'url) in eww buffers
X-Git-Tag: emacs-28.0.90~4133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7068be5c410c5592856aeebd7aa4d62b1dc68e5;p=emacs.git

Provide a (thing-at-point 'url) in eww buffers

* lisp/net/eww.el (eww-mode): Allow (thing-at-point 'url) to work
in eww buffers.
(eww--url-at-point): New function.
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d131b2bf8c9..e39a4c33b20 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1050,9 +1050,16 @@ the like."
   ;; multi-page isearch support
   (setq-local multi-isearch-next-buffer-function #'eww-isearch-next-buffer)
   (setq truncate-lines t)
+  (setq-local thing-at-point-provider-alist
+              (append thing-at-point-provider-alist
+                      '((url . eww--url-at-point))))
   (buffer-disable-undo)
   (setq buffer-read-only t))
 
+(defun eww--url-at-point ()
+  "`thing-at-point' provider function."
+  (get-text-property (point) 'shr-url))
+
 ;;;###autoload
 (defun eww-browse-url (url &optional new-window)
   "Ask the EWW browser to load URL.