From 2bbc9f7289e2e249d8b4c27a22446c20c5b21f1b Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Tue, 29 Nov 2022 11:42:43 +0100
Subject: work on scheduling toots, editing as new, display scheduled ts

---
 lisp/mastodon-tl.el | 50 +++++++++++++++++++++++++++++++++++---------------
 1 file changed, 35 insertions(+), 15 deletions(-)

(limited to 'lisp/mastodon-tl.el')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 4662fc3..6a90949 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1854,21 +1854,9 @@ If ID, just return that toot."
          (url (mastodon-http--api endpoint)))
     (mastodon-http--get-json url)))
 
-(defun mastodon-tl--reschedule-toot (&optional id)
+(defun mastodon-tl--reschedule-toot ()
   "Reschedule the scheduled toot at point."
-  (interactive)
-  (let* ((id (get-text-property (point) 'id))
-         (time-value (org-read-date nil t nil "Schedule toot:"))
-         (iso8601-str (format-time-string "%Y-%m-%dT%H:%M:%S%z" time-value))
-         (msg-str (format-time-string "%Y-%m-%d at %H:%M[%z]" time-value))
-         (args `(("scheduled_at" . ,iso8601-str)))
-         (url (mastodon-http--api (format "scheduled_statuses/%s" id)))
-         (response (mastodon-http--put url args)))
-    (mastodon-http--triage response
-                           (lambda ()
-                             (mastodon-tl--update)
-                             (message
-                              (format "Toot rescheduled for %s." msg-str))))))
+  (mastodon-toot--schedule-toot :reschedule))
 
 (defun mastodon-tl--view-scheduled-toots ()
   "Show the user's scheduled toots in a new buffer."
@@ -1905,7 +1893,7 @@ If ID, just return that toot."
     (insert
      (propertize (concat text
                          " | "
-                         scheduled)
+                         (mastodon-toot--iso-to-human scheduled))
                  'byline t ; so we nav here
                  'toot-id "0" ; so we nav here
                  'face 'font-lock-comment-face
@@ -1914,6 +1902,12 @@ If ID, just return that toot."
                  'id id)
      "\n")))
 
+(defun mastodon-toot--iso-to-human (ts)
+  "Format an ISO8601 timestamp TS to be more human-readable."
+  (let* ((decoded (iso8601-parse ts))
+         (encoded (encode-time decoded)))
+    (format-time-string "%d-%m-%y, %H:%M[%z]" encoded)))
+
 (defun mastodon-tl--copy-scheduled-toot-text ()
   "Copy the text of the scheduled toot at point."
   (interactive)
@@ -1934,6 +1928,32 @@ If ID, just return that toot."
                                  (mastodon-tl--view-scheduled-toots)
                                  (message "Toot cancelled!")))))))
 
+(defun mastodon-tl--edit-scheduled-as-new ()
+  "Edit scheduled status as new toot."
+  (interactive)
+  (let* ((toot (get-text-property (point) 'scheduled-json))
+         (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:
+    (when reply-id
+      (setq mastodon-toot--reply-to-id reply-id))
+    (setq mastodon-toot--visibility visibility)
+    (setq mastodon-toot--scheduled-for scheduled)
+    (when (not (equal "" lang))
+      (setq mastodon-toot--language lang))
+    (mastodon-toot--set-cw cw)
+    (mastodon-toot--update-status-fields)))
+
 ;;; FILTERS
 
 (defun mastodon-tl--create-filter ()
-- 
cgit v1.2.3