From 3cc43ddbc9d603f430dd6efc6d217cb6364c241e Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Fri, 23 Feb 2024 18:19:41 +0100
Subject: add eww--url-at-point to thing-at-point-provider-alist

---
 lisp/mastodon.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lisp/mastodon.el')

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 7a04c87..4928bf1 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -463,7 +463,12 @@ Calls `mastodon-tl--get-buffer-type', which see."
       (mastodon-toot--enable-custom-emoji)))
   (mastodon-profile--fetch-server-account-settings)
   (when mastodon-tl--highlight-current-toot
-    (cursor-face-highlight-mode))) ; 29.1
+    (cursor-face-highlight-mode)) ; 29.1
+  ;; make `thing-at-point' functions work:
+  (setq-local thing-at-point-provider-alist
+              (append thing-at-point-provider-alist
+                      '((url . eww--url-at-point)))))
+
 
 ;;;###autoload
 (add-hook 'mastodon-mode-hook #'mastodon-mode-hook-fun)
-- 
cgit v1.2.3