near/computersandblues.lodestone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display feedback when filtering or requesting new posts

Browse source
This commit is contained in:
arne 2025-11-18 13:20:13 +01:00
commit d430d62c26
1 changed files with 36 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

62
src/main/computersandblues/lodestone/app.cljs
View file

@ -234,32 +234,36 @@
on-response on-response
on-error on-error}}]
((fn fetch-favorites' [url]
(println :calling url)
(swap! state assoc :api/state :loading)
(-> (mastodon-request! {:url url :bearer-token bearer-token})
(.then (fn [response]
(on-response response)
(if (continue? response)
(js/setTimeout #(fetch-favorites' (link-header "next" (:raw response))) 500)
(swap! state dissoc :api/state :loading))))
(.catch (fn [response]
(swap! state dissoc :api/state)
(on-error response)))))
(favorites-url {:instance-url instance-url :max-id max-id})))
(let [req-id (js/Date.now)]
(println :calling url)
(swap! state assoc-in [:section/posts :loading] req-id)
(-> (mastodon-request! {:url url :bearer-token bearer-token})
(.then (fn [response]
(on-response response)
(if (continue? response)
(js/setTimeout #(fetch-favorites' (link-header "next" (:raw response))) 500)
(when (= req-id (-> @state :section/posts :loading))
(swap! state update :section/posts dissoc :loading))))
(.catch (fn [response]
(when (= req-id (-> @state :section/posts :loading))
(swap! state update :section/posts dissoc :loading))
(on-error response))))))
(favorites-url {:instance-url instance-url :max-id max-id}))))
;;; views
(defn debounce [ms f]
(let [timeout (volatile! nil)]
(let [prev (volatile! (js/Date.now))
trail (volatile! (js/setTimeout (fn dummy []) ms))]
(fn debounced-fn [& args]
(when @timeout
(js/clearTimeout @timeout))
(js/console.log "debounced-fn called" (js/Date.now))
(vreset! timeout
(js/setTimeout (fn scheduled-fn []
(js/console.log "scheduled-fn called" (js/Date.now))
(vreset! timeout nil)
(apply f args)) ms)))))
(let [now (js/Date.now)]
(if (> (- now @prev) ms)
(do (vreset! prev now)
(apply f args))
(do (js/clearTimeout @trail)
(vreset! trail (js/setTimeout (fn []
(vreset! prev (js/Date.now))
(apply f args))))))))))
(defn search []
[:input {:placeholder "Start typing to search…"
@ -341,15 +345,20 @@
(matches? (j/get-in post [:account :acct])) ; search for url + username of poster
(some #(matches? (j/get % :username)) (j/get post :mentions))))) ; search only for username of mentions
(take per-page)
(map #(js->clj % :keywordize-keys true)))]
(map #(js->clj % :keywordize-keys true)))
refresh-id (js/Date.now)]
(swap! state assoc-in [:section/posts :loading] refresh-id)
(-> (js/Promise.all #js [(db/count! ::db/posts)
(-> (db/open-cursor! ::db/posts db/all "prev")
(db/transduce-cursor xform))])
(.then (fn [[total displayed-posts]]
(swap! state update :section/posts #(-> (assoc % :total total)
(assoc :displayed-posts displayed-posts))))))))
(swap! state update :section/posts #(let [v (-> (assoc % :total total)
(assoc :displayed-posts displayed-posts))]
(if (= refresh-id (:loading %))
(dissoc v :loading)
v))))))))
(def debounced-refresh! (debounce 100 (partial refresh-displayed-posts!)))
(def debounced-refresh! (debounce 20 (partial refresh-displayed-posts!)))
(defn- fetch-posts! [opts]
(let [defaults {:max-id nil
@ -360,7 +369,7 @@
(fetch-favorites! (merge defaults opts))))
(defn posts-section [{:keys [posts]}]
(let [{:keys [per-page query total displayed-posts]} posts]
(let [{:keys [per-page query total displayed-posts loading]} posts]
[:section.favorites
[:h2 "Favorites"]
[:header.controls
@ -370,6 +379,7 @@
(str ", displaying " (count displayed-posts) (when query " matches"))))]
[:div.search-form
[search]
(when loading " …")
#_(cond (= api-state :loading) " …"
(= api-state :error) " API Error!")]]
[:ul.results (map-indexed (fn [idx favorite]