From dbe15d905456d34b2f509c4b288168e02fb58b45 Mon Sep 17 00:00:00 2001 From: arne Date: Wed, 19 Nov 2025 19:50:26 +0100 Subject: [PATCH] Fix pagination direction for "fetch more" button --- src/computersandblues/lodestone/app.cljs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/computersandblues/lodestone/app.cljs b/src/computersandblues/lodestone/app.cljs index 1b9b27c..c5cd57f 100644 --- a/src/computersandblues/lodestone/app.cljs +++ b/src/computersandblues/lodestone/app.cljs @@ -387,9 +387,6 @@ (let [defaults {:max-id nil :on-response (fn [response] (let [url-params (url->search-params (.-url (:raw response)))] - (js/console.log :on-response - :max_id (.get url-params "max_id") - :min_id (.get url-params "min_id")) (doseq [post (:body response)] (db/put! ::db/posts (cond-> post ; these IDs are internal server ids and it looks like @@ -421,11 +418,11 @@ (when min-id (fetch-posts! {:instance-url (:instance_url application) :bearer-token (:bearer_token application) - :min-id min-id})) + :min-id max-id})) (when max-id (fetch-posts! {:instance-url (:instance_url application) :bearer-token (:bearer_token application) - :max-id max-id})) + :max-id min-id})) (when-not (or min-id max-id) (fetch-posts! {:instance-url (:instance_url application) :bearer-token (:bearer_token application)}))))))