From 26dadbec3aa68d4317548bae9dbd982df9361e00 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Mon, 15 May 2023 22:32:01 +0200 Subject: let-alist views--edit-scheduled-as-new --- lisp/mastodon-views.el | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) (limited to 'lisp/mastodon-views.el') diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index d23626a..dc7eb14 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -556,21 +556,16 @@ NO-CONFIRM means there is no ask or message, there is only do." (if (null id) (message "no scheduled toot at point?") (let* ((toot (mastodon-tl--property 'scheduled-json :no-move)) - (scheduled (alist-get 'scheduled_at toot)) - (params (alist-get 'params toot)) - (text (alist-get 'text params)) - (visibility (alist-get 'visibility params)) - (cw (alist-get 'spoiler_text params)) - (lang (alist-get 'language params)) - ;; (poll (alist-get 'poll params)) - (reply-id (alist-get 'in_reply_to_id params))) - ;; (media (alist-get 'media_attachments toot))) - (mastodon-toot--compose-buffer) - (goto-char (point-max)) - (insert text) - ;; adopt properties from scheduled toot: - (mastodon-toot--set-toot-properties reply-id visibility cw - lang scheduled id))))) + (scheduled (alist-get 'scheduled_at toot))) + (let-alist (alist-get 'params toot) + ;; (poll (alist-get 'poll params)) + ;; (media (alist-get 'media_attachments toot))) + (mastodon-toot--compose-buffer) + (goto-char (point-max)) + (insert .text) + ;; adopt properties from scheduled toot: + (mastodon-toot--set-toot-properties + .in_reply_to_id .visibility .spoiler_text .language scheduled id)))))) ;;; FILTERS -- cgit v1.2.3