From fe27477d19cb78c75e0e9508041f58ff722ab8ca Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 3 Oct 2024 20:03:10 +0200 Subject: do-return (to parent) for fields update --- lisp/mastodon-transient.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lisp/mastodon-transient.el') diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el index 7738958..cc314f8 100644 --- a/lisp/mastodon-transient.el +++ b/lisp/mastodon-transient.el @@ -156,7 +156,7 @@ the inner key part." (transient-define-suffix mastodon-profile-fields-update (args) "Update current user profile fields." - :transient 'transient--do-exit + :transient 'transient--do-return (interactive (list (transient-args 'mastodon-profile-fields))) (let* ((alist (tp-transient-to-alist args)) ;; FIXME: maybe only changed also won't work with fields, as @@ -167,9 +167,7 @@ the inner key part." (url (mastodon-http--api endpoint)) (resp (mastodon-http--patch url arrays))) ; :json))) (mastodon-http--triage - resp - (lambda (_) - (message "Fields updated!\n%s" (pp-to-string arrays)))))) + resp (lambda (_) (message "Fields updated!"))))) (transient-define-prefix mastodon-profile-fields () "A transient for setting profile fields." -- cgit v1.2.3