aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-27 13:19:00 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-27 13:19:00 +0100
commitb9865a58cf7f73c5205390dbf4df32d723ba15af (patch)
treeef17698aafd716d65eed7d2a9517585933402383 /lisp/mastodon-tl.el
parentfa82691cc42a4344015a4920ee0582a92897160b (diff)
autoloads and docstrings
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index fbf1b7b..2503516 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -79,6 +79,11 @@
(autoload 'mastodon-http--build-params-string "mastodon-http")
(autoload 'mastodon-notifications--filter-types-list "mastodon-notifications")
(autoload 'mastodon-toot--get-toot-edits "mastodon-toot")
+(autoload 'mastodon-toot--update-status-fields "mastodon-toot")
+(autoload 'mastodon-toot--compose-buffer "mastodon-toot")
+
+(defvar mastodon-toot--visibility)
+(defvar mastodon-active-user)
(when (require 'mpv nil :no-error)
(declare-function mpv-start "mpv"))
@@ -1157,7 +1162,7 @@ this just means displaying toot client."
(let* ((poll (mastodon-tl--field 'poll toot))
(expiry (mastodon-tl--field 'expires_at poll))
(expired-p (if (eq (mastodon-tl--field 'expired poll) :json-false) nil t))
- (multi (mastodon-tl--field 'multiple poll))
+ ;; (multi (mastodon-tl--field 'multiple poll))
(voters-count (mastodon-tl--field 'voters_count poll))
(vote-count (mastodon-tl--field 'votes_count poll))
(options (mastodon-tl--field 'options poll))
@@ -1539,7 +1544,7 @@ If UNMUTE, unmute it."
(if (not we-posted-p)
(message "You can only (un)mute a thread you have posted in.")
(when (if unmute
- (y-or-n-p "Unute this thread? ")
+ (y-or-n-p "Unnute this thread? ")
(y-or-n-p "Mute this thread? "))
(let ((response (mastodon-http--post url)))
(mastodon-http--triage response