From f0822a697317e2e8bf320540e7ae1c80163bc90f Mon Sep 17 00:00:00 2001 From: mousebot Date: Thu, 23 Sep 2021 11:41:35 +0200 Subject: on delete toot, redraw current timeline or profile --- lisp/mastodon-toot.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/mastodon-toot.el') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index c9184fc..d86eefd 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -46,6 +46,7 @@ (autoload 'mastodon-toot "mastodon") (autoload 'mastodon-http--post-media-attachment "mastodon-http") (autoload 'mastodon-tl--toot-id "mastodon-tl") +(autoload 'mastodon-tl--reload-timeline-or-profile "mastodon-tl") (defgroup mastodon-toot nil "Tooting in Mastodon." @@ -215,7 +216,6 @@ Remove MARKER if REMOVE is non-nil, otherwise add it." (kill-new url) (message "Toot URL copied to the clipboard."))) -;; TODO redraw buffer on success? (defun mastodon-toot--delete-toot () "Delete user's toot at point synchronously." (interactive) @@ -231,6 +231,7 @@ Remove MARKER if REMOVE is non-nil, otherwise add it." (let ((response (mastodon-http--delete url))) (mastodon-http--triage response (lambda () + (mastodon-tl--reload-timeline-or-profile) (message "Toot deleted!")))))))) (defun mastodon-toot--kill () -- cgit v1.2.3