aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authorJohnson Denen <johnson.denen@gmail.com>2017-04-25 23:49:37 -0400
committerJohnson Denen <johnson.denen@gmail.com>2017-04-28 19:57:23 -0400
commitbd32a1ce9e71280febd1625d42acceee846a1e53 (patch)
tree9136dce821ef181e6114203dc07134ae08e34b9d /lisp/mastodon-toot.el
parent5f496643a1c04532337d97c23dc09c650c39d1b5 (diff)
Fix #57 by moving messages into callbacks
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 6345e14..ce365a1 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -70,8 +70,10 @@ Remove MARKER if RM is non-nil."
(action (if boosted "unreblog" "reblog"))
(msg (if boosted "unboosted" "boosted"))
(remove (when boosted t)))
- (mastodon-toot--action action (lambda () (mastodon-toot--action-success "B" remove)))
- (message (format "%s #%s" msg id))))
+ (mastodon-toot--action action
+ (lambda ()
+ (mastodon-toot--action-success "B" remove)
+ (message (format "%s #%s" msg id))))))
(defun mastodon-toot--toggle-favourite ()
"Favourite/unfavourite toot at `point'."
@@ -80,8 +82,10 @@ Remove MARKER if RM is non-nil."
(faved (get-text-property (point) 'favourited-p))
(action (if faved "unfavourite" "favourite"))
(remove (when faved t)))
- (mastodon-toot--action action (lambda () (mastodon-toot--action-success "F" remove)))
- (message (format "%sd #%s" action id))))
+ (mastodon-toot--action action
+ (lambda ()
+ (mastodon-toot--action-success "F" remove)
+ (message (format "%sd #%s" action id))))))
(defun mastodon-toot--kill ()
"Kill `mastodon-toot-mode' buffer and window.