add view-item-on-own-instance fun

1 files changed, 13 insertions, 1 deletions

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index db923a4..ed6cfcc 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -473,7 +473,10 @@ You can enter any working instance domain. Domains that you want
 to regularly load can be stored in
 `mastodon-tl--remote-local-domains' for easy access with completion.
 Note that some instances do not make their local timelines public, in
-which case this will not work."
+which case this will not work.
+To interact with any item, you must view it from your own
+instance, which you can do with
+`mastodon-tl--view-item-on-own-instance'."
   (interactive)
   (let* ((domain (completing-read "Domain for remote local tl: "
                                   mastodon-tl--remote-local-domains))
@@ -496,6 +499,15 @@ which case this will not work."
                          "timelines/public" 'mastodon-tl--timeline nil
                          params nil domain))))
 
+(defun mastodon-tl--view-item-on-own-instance ()
+  "Load current toot on your own instance.
+Use this to re-load remote-local items in order to interact with them."
+  (interactive)
+  (mastodon-tl--do-if-item
+   (let* ((toot (mastodon-tl--property 'item-json))
+          (uri (mastodon-tl--field 'uri toot)))
+     (mastodon-url-lookup uri))))
+
 (defun mastodon-tl--get-local-timeline (&optional prefix)
   "Open local timeline.
 With a single PREFIX arg, hide-replies.