Skip to content

Instantly share code, notes, and snippets.

@rtrppl
rtrppl / hacks-for-mastodon.el
Last active December 14, 2023 01:09
Hacks for mastodon.el
(defun lt/mastodon-toot--copy-orgified-toot-to-clipboard ()
"Copy org-ified toot at point to clipboard."
(interactive)
(let* ((toot (or (mastodon-tl--property 'base-toot)
(mastodon-tl--property 'item-json))))
(let* ((url (mastodon-toot--toot-url))
(content (mastodon-tl--content toot)))
(-let* ((dom (plz 'get url :as #'org-web-tools--sanitized-dom))
((title . readable) (org-web-tools--eww-readable dom)))
(with-temp-buffer