diff options
author | mousebot <mousebot@riseup.net> | 2021-09-23 11:42:14 +0200 |
---|---|---|
committer | mousebot <mousebot@riseup.net> | 2021-09-23 11:42:14 +0200 |
commit | 21c6572d62d9129b48003129e60c97d0f64868d0 (patch) | |
tree | a4a028a0c46808726e2c5095bc48e4e3a82bafb7 | |
parent | 7e78f3ef2ce5001de9b06488acff246a7f1fc3ce (diff) |
hacks to minimize toot bug: copy text, only kill buffer after post
-rw-r--r-- | lisp/mastodon-toot.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index d86eefd..1c8a475 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -301,10 +301,12 @@ If media items have been uploaded with `mastodon-toot--add-media-attachment', at (message "Looks like your uploads are not yet ready...") (if empty-toot-p (message "Empty toot. Cowardly refusing to post this.") - (mastodon-toot--kill) - (let ((response (mastodon-http--post endpoint args nil))) + (let ((response (mastodon-http--post endpoint args nil))) (mastodon-http--triage response - (lambda () (message "Toot toot!")))))))) + (lambda () + (kill-new toot) ; copy toot text to kill ring + (mastodon-toot--kill) ; only kill buffer after sending + (message "Toot toot!")))))))) (defun mastodon-toot--process-local (acct) "Adds domain to local ACCT and replaces the curent user name with \"\". |