diff options
author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-25 23:49:37 -0400 |
---|---|---|
committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-28 19:57:23 -0400 |
commit | bd32a1ce9e71280febd1625d42acceee846a1e53 (patch) | |
tree | 9136dce821ef181e6114203dc07134ae08e34b9d | |
parent | 5f496643a1c04532337d97c23dc09c650c39d1b5 (diff) |
Fix #57 by moving messages into callbacks
-rw-r--r-- | lisp/mastodon-toot.el | 12 |
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. |