aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-12 10:32:50 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-12 10:32:50 +0100
commitcca9f1d70ca9e3f873e60d9b98065de74d026a3a (patch)
tree9b5ae53741981c600afe30f187518c23348a9cb8 /lisp/mastodon-tl.el
parentb50a1a3458733c9f7976056494ec560111f59851 (diff)
flycheck -tl
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 9563bd3..e0268af 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -69,7 +69,7 @@
(autoload 'mastodon-profile--view-author-profile "mastodon-profile")
(autoload 'mastodon-profile--get-preferences-pref "mastodon-profile")
(autoload 'mastodon-http--get-response-async "mastodon-http")
-
+(autoload 'mastodon-url-lookup "mastodon")
(when (require 'mpv nil :no-error)
(declare-function mpv-start "mpv"))
(defvar mastodon-instance-url)
@@ -709,7 +709,8 @@ LINK is maybe the '@handle' to search for."
(mastodon-tl--extract-el-from-mentions 'acct toot link))
(defun mastodon-tl--extract-userid-toot (toot link)
- "Extract a user id for an ACCT from mentions in a TOOT."
+ "Extract a user id for an ACCT from mentions in a TOOT.
+LINK is maybe the '@handle' to search for."
(mastodon-tl--extract-el-from-mentions 'id toot link))
(defun mastodon-tl--extract-el-from-mentions (el toot link)
@@ -1286,7 +1287,7 @@ ID is that of the toot to view."
(mastodon-mode)
(mastodon-tl--set-buffer-spec buffer
(format "statuses/%s" id)
- (lambda (toot) (message "END of thread.")))
+ (lambda (_toot) (message "END of thread.")))
(let ((inhibit-read-only t))
(mastodon-tl--toot toot :detailed-p))))))
@@ -1326,7 +1327,7 @@ ID is that of the toot to view."
(mastodon-tl--set-buffer-spec
buffer
(format "statuses/%s/context" id)
- (lambda (toot) (message "END of thread.")))
+ (lambda (_toot) (message "END of thread.")))
(let ((inhibit-read-only t))
(mastodon-tl--timeline (alist-get 'ancestors context))
(goto-char (point-max))