From d1ffaca6e21b988255d1b980a9de6bb1d976e1af Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 27 Mar 2023 15:14:48 +0200
Subject: work on reloading a view after sending an edited toot. FIX #421.

- fix up reload-timeline-or-profile
- additions to --send for edited toots

position of point is only rough, chosen from buffer point prior to reload, but
buffers change on reload (things added if timeline, things removed if delete
toot or clear notif. we may need to find a much better way.
---
 lisp/mastodon-toot.el | 34 +++++++++++++++++++---------------
 1 file changed, 19 insertions(+), 15 deletions(-)

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

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index dfc02ee..81185e8 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -773,11 +773,12 @@ instance to edit a toot."
   (let* ((toot (mastodon-toot--remove-docs))
          (scheduled mastodon-toot--scheduled-for)
          (scheduled-id mastodon-toot--scheduled-id)
+         (edit-id mastodon-toot--edit-toot-id)
          (endpoint
-          (if mastodon-toot--edit-toot-id
+          (if edit-id
               ;; we are sending an edit:
               (mastodon-http--api (format "statuses/%s"
-                                          mastodon-toot--edit-toot-id))
+                                          edit-id))
             (mastodon-http--api "statuses")))
          (spoiler (when (and (not (mastodon-toot--empty-p))
                              mastodon-toot--content-warning)
@@ -819,22 +820,25 @@ instance to edit a toot."
           ((mastodon-toot--empty-p)
            (message "Empty toot. Cowardly refusing to post this."))
           (t
-           (let ((response (if mastodon-toot--edit-toot-id
+           (let ((response (if edit-id
                                ;; we are sending an edit:
                                (mastodon-http--put endpoint args)
                              (mastodon-http--post endpoint args))))
-             (mastodon-http--triage response
-                                    (lambda ()
-                                      (mastodon-toot--kill)
-                                      (if scheduled
-                                          (message "Toot scheduled!")
-                                        (message "Toot toot!"))
-                                      ;; cancel scheduled toot if we were editing it:
-                                      (when scheduled-id
-                                        (mastodon-views--cancel-scheduled-toot
-                                         scheduled-id :no-confirm))
-                                      (mastodon-toot--restore-previous-window-config
-                                       prev-window-config))))))))
+             (mastodon-http--triage
+              response
+              (lambda ()
+                (mastodon-toot--kill)
+                (if scheduled
+                    (message "Toot scheduled!")
+                  (message "Toot toot!"))
+                ;; cancel scheduled toot if we were editing it:
+                (when scheduled-id
+                  (mastodon-views--cancel-scheduled-toot
+                   scheduled-id :no-confirm))
+                (mastodon-toot--restore-previous-window-config prev-window-config)
+                (when edit-id
+                  (let ((pos (marker-position (cadr prev-window-config))))
+                    (mastodon-tl--reload-timeline-or-profile pos))))))))))
 
 ;; EDITING TOOTS:
 
-- 
cgit v1.2.3