From d47e55c48417da0e822c82f7104af9a3d426ddfd Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Fri, 2 Sep 2022 16:56:24 +0200
Subject: start on loading masto URL links in mastodon.el

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

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 8e3ab30..816829e 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1174,6 +1174,13 @@ webapp"
         (reblog (alist-get 'reblog json)))
     (if reblog (alist-get 'id reblog) id)))
 
+(defun mastodon-tl--single-toot-from-url (url)
+  "Open the toot at URL in `mastodon.el'."
+  ;; TODO: test if URL is masto
+  ;; FIXME: this only works 1/2 the time
+  (let ((id (url-file-nondirectory url)))
+    (mastodon-tl--single-toot id)))
+
 (defun mastodon-tl--single-toot (&optional id)
   "View toot at point in separate buffer.
 ID is that of the toot to view."
-- 
cgit v1.2.3