diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 19:52:48 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 19:52:48 +0200 |
commit | 41f814cc44bb49e341cc921d83c174c721fc0beb (patch) | |
tree | c16bbcfd0e36c6d7d13240ca087fc1e43674b973 /lisp | |
parent | 5875220d7a2df6eda5606304067f85d6c3b3e10f (diff) |
improve processing for trending-statuses
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-search.el | 7 |
1 files changed, 1 insertions, 6 deletions
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)))) |