aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2021-12-25 14:53:30 +0100
committermousebot <mousebot@riseup.net>2021-12-25 14:53:30 +0100
commit81da5c5ecc97d257d0767fdeff1e9ad8c2cc9be4 (patch)
tree12a4bbfa3078b20f0e537db587af659b5c0d4fa7 /lisp
parent11352609304e1e2f328592332f31fc30cb327d8d (diff)
reload on pin toggle
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-toot.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 75f1f9e..befffee 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -96,7 +96,8 @@ followers-only), or \"direct\"."
:group 'mastodon-toot
:type 'integer)
-(defcustom mastodon-toot--enable-completion-for-mentions (if (require 'company nil :noerror) "following" "off")
+(defcustom mastodon-toot--enable-completion-for-mentions
+ (if (require 'company nil :noerror) "following" "off")
"Whether to enable company completion for mentions.
Used for completion in toot compose buffer.
@@ -125,7 +126,8 @@ This is only used if company mode is installed."
(defvar-local mastodon-toot--visibility "public"
"A string indicating the visibility of the toot being composed.
-Valid values are \"direct\", \"private\" (followers-only), \"unlisted\", and \"public\".")
+Valid values are \"direct\", \"private\" (followers-only),
+\"unlisted\", and \"public\".")
(defvar-local mastodon-toot--media-attachments nil
"A list of the media attachments of the toot being composed.")
@@ -279,6 +281,8 @@ Makes a POST request to the server."
(if (y-or-n-p (format "%s this toot? " msg-y-or-n))
(mastodon-toot--action action
(lambda ()
+ (when mastodon-tl--buffer-spec
+ (mastodon-tl--reload-timeline-or-profile))
(message "Toot %s!" msg)))))))
(defun mastodon-toot--delete-toot ()