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

Fix bug in debounce

Browse source
This commit is contained in:
arne 2025-11-19 22:14:32 +01:00
commit b0b4b01e37
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/computersandblues/lodestone/app.cljs
View file

@ -267,18 +267,21 @@
;;; views ;;; views
(defn debounce [ms f] (defn debounce
"Wraps `f` so it's called at most once every `ms` milliseconds. Will schedule
the last call to `f` so that it's called after the delay has passed, and will
always prefer to call the most recent call to `f` as close to the delay
as possible."
[ms f]
(let [prev (volatile! (js/Date.now)) (let [prev (volatile! (js/Date.now))
trail (volatile! (js/setTimeout (fn dummy []) ms))] scheduled (volatile! (js/setTimeout (fn dummy []) ms))]
(fn debounced-fn [& args] (fn debounced-fn [& args]
(let [now (js/Date.now)] (let [now (js/Date.now)]
(if (> (- now @prev) ms) (js/clearTimeout @scheduled)
(do (vreset! prev now) (vreset! scheduled (js/setTimeout (fn []
(apply f args)) (vreset! prev (js/Date.now))
(do (js/clearTimeout @trail) (apply f args))
(vreset! trail (js/setTimeout (fn [] (max 0 (- ms (- now @prev)))))))))
(vreset! prev (js/Date.now))
(apply f args))))))))))
(defn search [] (defn search []
[:input {:placeholder "Start typing to search…" [:input {:placeholder "Start typing to search…"