(defun my-mastodon-tl-toot-get-url ()
  ;; format example:
  ;; https://mastodon.social/@user@instance.domain/1234566789009
  (let* ((toot (mastodon-tl--property 'item-json))
         (id (alist-get 'id toot))
         (remoteuri (alist-get 'uri toot))
         (acct (alist-get 'acct (alist-get 'account toot))))
    (concat mastodon-instance-url "@"  acct "/" id)))

(defun my-mastodon-tl-toot-get-original-url ()
  (let ((toot (or (mastodon-tl--property 'base-toot)
                  (mastodon-tl--property 'item-json))))
        (if (mastodon-tl--field 'reblog toot)
            (alist-get 'url (alist-get 'reblog toot))
          (alist-get 'url toot))))

(defun my-mastodon-tl-toot-browse-original-url ()
  (interactive)
  (browse-url (my-mastodon-tl-toot-get-original-url)))

(defun my-mastodon-tl-toot-browse-url ()
  (interactive)
  (browse-url (my-mastodon-tl-toot-get-url)))

(defun my-mastodon-tl-toot-json ()
  (interactive)
  (with-output-to-temp-buffer "*mastodon-json*"
    (pp (mastodon-tl--property 'item-json)))
  (other-window 1))