Clojurescript function which takes a function as an argument and returns a debounced version of the function. Inspired by http://underscorejs.org/#debounce

debounce.cljs

(ns util.core
  (:import [goog Delay]))

(defn debounce [f interval]
  (let [timeout (atom nil)]
    (fn [& args]
      (when-not (nil? @timeout)
        (.disposeInternal @timeout))
      (reset! timeout (Delay. #(apply f args)))
      (.start @timeout interval))))