emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mastodon 50e9fc677f 06/52: fix pagination for trending tag


From: ELPA Syncer
Subject: [nongnu] elpa/mastodon 50e9fc677f 06/52: fix pagination for trending tags
Date: Mon, 30 Oct 2023 16:01:24 -0400 (EDT)

branch: elpa/mastodon
commit 50e9fc677fd405a4e957c617f4dc31306321b9fc
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>

    fix pagination for trending tags
---
 lisp/mastodon-search.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index 3fd552d0e3..9b4bb68028 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]