From ce30985860709a97fd408e45d3dd5e203ccb5881 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Fri, 13 Oct 2023 23:17:02 +0200
Subject: fix offset pagination for hashtags search

---
 lisp/mastodon-search.el | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index f4ce07d..5c05984 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -181,14 +181,9 @@ ACCOUNT-ID means limit search to that account, for \"statuses\" type only."
          (tags (when (equal type "hashtags")
                  (alist-get 'hashtags response)))
          (statuses (when (equal type "statuses")
-                     (alist-get 'statuses response)))
-         (tags-list (when tags
-                      (mapcar #'mastodon-search--get-hashtag-info tags))))
+                     (alist-get 'statuses response))))
     (with-mastodon-buffer buffer #'mastodon-mode nil
       (mastodon-search-mode)
-      (mastodon-tl--set-buffer-spec buffer "search"
-                                    'mastodon-tl--timeline
-                                    nil params)
       ;; user results:
       (when accts
         (mastodon-search--format-heading "USERS")
@@ -199,11 +194,17 @@ ACCOUNT-ID means limit search to that account, for \"statuses\" type only."
       ;; hashtag results:
       (when tags
         (mastodon-search--format-heading "HASHTAGS")
-        (mastodon-search--print-tags-list tags-list))
+        (mastodon-search--print-tags tags)
+        (mastodon-tl--set-buffer-spec buffer "search"
+                                      'mastodon-search--print-tags
+                                      nil params))
       ;; status results:
       (when statuses
         (mastodon-search--format-heading "STATUSES")
-        (mapc #'mastodon-tl--toot statuses))
+        (mapc #'mastodon-tl--toot statuses)
+        (mastodon-tl--set-buffer-spec buffer "search"
+                                      'mastodon-tl--timeline
+                                      nil params))
       (goto-char (point-min))
       (message
        (substitute-command-keys
@@ -270,7 +271,12 @@ If NOTE is non-nil, include user's profile note. This is also
       "\n")
      'toot-json acct))) ; for compat w other processing functions
 
-(defun mastodon-search--print-tags-list (tags)
+(defun mastodon-search--print-tags (tags)
+  "Print tags returned from a \"hashtags\" search query."
+  (let ((tags-list (mapcar #'mastodon-search--get-hashtag-info tags)))
+    (mastodon-search--print-tags-list tags-list)))
+
+(defun mastodon-search--print-tags-list (tags-list)
   "Insert a propertized list of TAGS."
   (mapc (lambda (el)
           (insert
@@ -283,7 +289,7 @@ If NOTE is non-nil, include user's profile note. This is also
                        'help-echo (concat "Browse tag #" (car el))
                        'keymap mastodon-tl--link-keymap)
            " : \n\n"))
-        tags))
+        tags-list))
 
 (defun mastodon-search--get-user-info (account)
   "Get user handle, display name, account URL and profile note from ACCOUNT."
-- 
cgit v1.2.3