From d47e55c48417da0e822c82f7104af9a3d426ddfd Mon Sep 17 00:00:00 2001 From: marty hiatt 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/mastodon-tl.el') 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