fix debounce

project.clj

@@ -1,4 +1,4 @@
-(defproject com.github.dgknght/app-lib "0.3.8"
+(defproject com.github.dgknght/app-lib "0.3.9"
   :description "Library of commonly used functions for web app development"
   :url "https://github.com/dgknght/app-lib"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

src/cljs/dgknght/app_lib/dom.cljs

@@ -110,10 +110,11 @@
   function after a delay (300 milliseconds unless otherwise specified) if
   the function is not invoked again during the delay (in which case case
   the timer starts again and the given fn invoked after the delay)."
-  ([f] (debounce f 300))
-  ([f timeout]
-   (let [id (atom nil)]
-     (fn [& args]
-       (js/clearTimeout @id)
-       (reset! id (js/setTimeout #(apply f args)
-                                 timeout))))))
+  [f & [timeout]]
+  (let [timeout-id (atom nil)]
+    (fn [& args]
+      (when-let [id @timeout-id]
+        (js/clearTimeout id))
+      (reset! timeout-id
+              (js/setTimeout #(apply f args)
+                             (or timeout 300))))))