aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-27 10:35:07 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-27 10:35:07 +0100
commite23ef05fabe038396875c118101847d69e5de7f6 (patch)
tree6ac6f89e30396701475efd8dcdae0dc164a70a5d /lisp/mastodon-tl.el
parent21bb3bff54c766514b93d8022f149f4179e9d31e (diff)
add fun mastodon-tl--dm-user
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index a5b5ed7..53ab57a 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2175,6 +2175,16 @@ LANGS is the accumulated array param alist if we re-run recursively."
(message "Looks like you have no mutes to unmute!")
(mastodon-tl--do-user-action-and-response user-handle "unmute" t)))
+(defun mastodon-tl--dm-user (user-handle)
+ "Query for USER-HANDLE from current status and compose a message to that user."
+ (interactive
+ (list
+ (mastodon-tl--interactive-user-handles-get "message")))
+ (mastodon-tl--do-if-toot
+ (mastodon-toot--compose-buffer (concat "@" user-handle))
+ (setq mastodon-toot--visibility "direct")
+ (mastodon-toot--update-status-fields)))
+
(defun mastodon-tl--interactive-user-handles-get (action)
"Get the list of user-handles for ACTION from the current toot."
(mastodon-tl--do-if-toot