aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-15 22:32:01 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-15 22:32:01 +0200
commit26dadbec3aa68d4317548bae9dbd982df9361e00 (patch)
treed06bbb6123fdd892c74d58681726a4bdc9f7eb01 /lisp
parent4d896d56eb92b7652c751a1adf44daf5c22a2f21 (diff)
let-alist views--edit-scheduled-as-new
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-views.el25
1 files changed, 10 insertions, 15 deletions
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