aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-07-12 18:05:52 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-07-13 10:26:23 +0200
commita8112e5c150fc2ace856cb442fee6b1dd5d25066 (patch)
treef458bf37720a56cb0b3737b0c8e1b193c5030d11
parentb84bca8e91ee75704b6297e788944a07b5c364ee (diff)
message wait/done to attachment uploads, to avoid issues. See #478.
-rw-r--r--lisp/mastodon-http.el6
-rw-r--r--lisp/mastodon-toot.el3
2 files changed, 3 insertions, 6 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index 49ffbf8..dcde29a 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -352,11 +352,7 @@ item uploaded, and `mastodon-toot--update-status-fields' is run."
(when data
(push (alist-get 'id data)
mastodon-toot--media-attachment-ids) ; add ID to list
- (message "%s file %s with id %S and caption '%s' uploaded!"
- (capitalize (alist-get 'type data))
- file
- (alist-get 'id data)
- (alist-get 'description data))
+ (message "Uploading %s... (done)" file)
(mastodon-toot--update-status-fields))))
:error (cl-function
(lambda (&key error-thrown &allow-other-keys)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index eb92c27..e77787c 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1167,7 +1167,8 @@ which is used to attach it to a toot when posting."
(alist-get :filename attachment)))
(caption (alist-get :description attachment))
(url (concat mastodon-instance-url "/api/v2/media")))
- (message "Uploading %s..." (file-name-nondirectory filename))
+ (message "Uploading %s... (please wait before starting further uploads)"
+ (file-name-nondirectory filename))
(mastodon-http--post-media-attachment url filename caption)))
(defun mastodon-toot--refresh-attachments-display ()