diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-02-01 15:58:07 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-02-01 15:58:07 +0100 |
| commit | 136e4d387a99ea5a1eb5cd1eee85d927b04203d1 (patch) | |
| tree | bc1634665af09e819fbf5a10f749eb345227b9b2 /lisp/mastodon-views.el | |
| parent | a8c80d25b7790746a439ae6c2deea3dc6bcac710 (diff) | |
| parent | fda3e5963d803754fc2e4d0bdbc005ab5e47a93d (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp/mastodon-views.el')
| -rw-r--r-- | lisp/mastodon-views.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index b1ff70d..8e04434 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -3,7 +3,6 @@ ;; Copyright (C) 2020-2022 Marty Hiatt ;; Author: Marty Hiatt <martianhiatus@riseup.net> ;; Maintainer: Marty Hiatt <martianhiatus@riseup.net> -;; Version: 1.0.0 ;; Homepage: https://codeberg.org/martianh/mastodon.el ;; This file is not part of GNU Emacs. @@ -573,14 +572,14 @@ NO-CONFIRM means there is no ask or message, there is only do." (let* ((toot (mastodon-tl--property 'scheduled-json :no-move)) (scheduled (alist-get 'scheduled_at toot))) (let-alist (alist-get 'params toot) + ;; TODO: preserve polls ;; (poll (alist-get 'poll params)) - ;; (media (alist-get 'media_attachments toot))) - (mastodon-toot--compose-buffer) + (mastodon-toot--compose-buffer nil .in_reply_to_id nil .text :edit) (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)))))) + .in_reply_to_id .visibility .spoiler_text .language + scheduled id (alist-get 'media_attachments toot))))))) ;;; FILTERS |