aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2022-02-28 15:21:40 +0100
committermousebot <mousebot@riseup.net>2022-02-28 15:21:40 +0100
commitd90c104299636f2525f8b77001b4374e5b0df72a (patch)
tree8affc5825f3cb8540ce5d660060a63f79c2ca661 /lisp/mastodon-toot.el
parenta5fffb209d7bb2644741fd917768786628ec94b3 (diff)
add copy-toot-text function
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 48e7d96..1d80e55 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -271,6 +271,13 @@ Makes a POST request to the server."
(kill-new url)
(message "Toot URL copied to the clipboard.")))
+(defun mastodon-toot--copy-toot-text ()
+ "Copy text of toot at point."
+ (interactive)
+ (let* ((toot (mastodon-tl--property 'toot-json)))
+ (kill-new (mastodon-tl--content toot))
+ (message "Toot content copied to the clipboard.")))
+
(defun mastodon-toot--own-toot-p (toot)
"Check if TOOT is user's own, e.g. for deleting it."
(and (not (alist-get 'reblog toot))