diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 18:17:45 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 18:17:45 +0200 |
| commit | 50e9fc677fd405a4e957c617f4dc31306321b9fc (patch) | |
| tree | 5ccce6855271441a4207422ce96204607a095250 | |
| parent | d710763757d88e1b638e22b1b4aec5bf19a9d82f (diff) | |
fix pagination for trending tags
| -rw-r--r-- | lisp/mastodon-search.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 3fd552d..9b4bb68 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -89,7 +89,7 @@ QUERY is the string to search." "Display a list of tags trending on your instance." (interactive) (mastodon-search--view-trending "tags" - #'mastodon-search--print-tags-list)) + #'mastodon-search--print-tags)) (defun mastodon-search--trending-statuses () "Display a list of statuses trending on your instance." @@ -109,13 +109,7 @@ PRINT-FUN is the function used to print the data from the response." '("limit" . "20"))) (offset '(("offset" . "0"))) (params (push limit offset)) - (response (mastodon-http--get-json url params)) - (data (cond ((equal type "tags") - (mapcar #'mastodon-search--get-hashtag-info response)) - ((equal type "statuses") - response) ; no longer needs further processing - ((equal type "links") - (message "todo")))) + (data (mastodon-http--get-json url params)) (buffer (get-buffer-create (format "*mastodon-trending-%s*" type)))) (with-mastodon-buffer buffer #'mastodon-mode nil (mastodon-tl--set-buffer-spec (buffer-name buffer) |