aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-transient.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-10-09 09:13:53 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-10-09 09:13:53 +0200
commit30a3f5606b5eb9b10f48a1e358e1415b7bb016e8 (patch)
tree1f9882e00291e8c7dda6ffcc0aada318750081b5 /lisp/mastodon-transient.el
parent1968cacb26593ca00f79637c73af1e9079cc6656 (diff)
transient: fix user settings sending source keys
Diffstat (limited to 'lisp/mastodon-transient.el')
-rw-r--r--lisp/mastodon-transient.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el
index 946d28a..fe70eac 100644
--- a/lisp/mastodon-transient.el
+++ b/lisp/mastodon-transient.el
@@ -90,9 +90,9 @@ the format fields.X.keyname."
(transient-define-suffix mastodon-user-settings-update (&optional args)
"Update current user settings on the server."
:transient 'transient--do-exit
- ;; interactive receives args from the prefix:
(interactive (list (transient-args 'mastodon-user-settings)))
- (let* ((strs (tp-parse-args-for-send args :strings))
+ (let* ((parsed (tp-parse-args-for-send args :strings))
+ (strs (mastodon-transient-parse-source-keys parsed))
(url (mastodon-http--api "accounts/update_credentials"))
(resp (mastodon-http--patch url strs))) ;; :json fails
(mastodon-http--triage