aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-08-20 17:39:37 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-08-20 17:42:53 +0200
commitd914d579221504f85ae95b0dec7fd9abedbd30a7 (patch)
treed649189c49e74969f686d0bb77b920684aae0ef5 /lisp/mastodon-toot.el
parentc135e23457b437b2c28722b352ad6ce02cc766b2 (diff)
flycheck and docstrings
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 0da660e..0e26bb2 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -207,7 +207,8 @@ Remove MARKER if REMOVE is non-nil, otherwise add it."
(defun mastodon-toot--action (action callback)
"Take ACTION on toot at point, then execute CALLBACK.
-Makes a POST request to the server."
+Makes a POST request to the server. Used for favouriting,
+boosting, or bookmarking toots."
(let* ((id (mastodon-tl--property 'base-toot-id))
(url (mastodon-http--api (concat "statuses/"
(mastodon-tl--as-string id)
@@ -240,11 +241,11 @@ TYPE is a symbol, either 'favourite or 'boost."
(if byline-region
(cond ;; actually there's nothing wrong with faving/boosting own toots!
;;((mastodon-toot--own-toot-p (mastodon-tl--property 'toot-json))
- ;;(error "You can't %s your own toots." action-string))
+ ;;(error "You can't %s your own toots" action-string))
((equal "reblog" toot-type)
- (error "You can't %s boosts." action-string))
+ (error "You can't %s boosts" action-string))
((equal "favourite" toot-type)
- (error "Your can't %s favourites." action-string))
+ (error "Your can't %s favourites" action-string))
(t
(mastodon-toot--action
action
@@ -402,7 +403,7 @@ NO-REDRAFT means delete toot only."
toot-cw)))))))))
(defun mastodon-toot-set-cw (&optional cw)
- "Set content warning to CW if it is non-nil"
+ "Set content warning to CW if it is non-nil."
(unless (equal cw "")
(setq mastodon-toot--content-warning t)
(setq mastodon-toot--content-warning-from-reply-or-redraft cw)))