From 41f814cc44bb49e341cc921d83c174c721fc0beb Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 13 Oct 2023 19:52:48 +0200 Subject: improve processing for trending-statuses --- lisp/mastodon-search.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'lisp/mastodon-search.el') diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 768229e..56c833d 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -96,11 +96,6 @@ QUERY is the string to search." (mastodon-search--view-trending "statuses" #'mastodon-tl--timeline)) -(defun mastodon-search--get-full-statuses-data (response) - "For statuses list in RESPONSE, fetch and return full status JSON." - (let ((status-ids (mapcar #'mastodon-search--id-from-status response))) - (mapcar #'mastodon-search--full-status-from-id status-ids))) - (defun mastodon-search--view-trending (type print-fun) "Display a list of tags trending on your instance. TYPE is a string, either tags, statuses, or links. @@ -115,7 +110,7 @@ PRINT-FUN is the function used to print the data from the response." (data (cond ((equal type "tags") (mapcar #'mastodon-search--get-hashtag-info response)) ((equal type "statuses") - (mastodon-search--get-full-statuses-data response)) + response) ; no longer needs further processing ((equal type "links") (message "todo")))) (buffer (get-buffer-create (format "*mastodon-trending-%s*" type)))) -- cgit v1.2.3