Debounce in Clojure on the JVM

debounce.clj

(import '[java.util Timer TimerTask])

(defn debounce
  ([f] (debounce f 1000))
  ([f timeout]
    (let [timer (Timer.)
          task (atom nil)]
      (with-meta
        (fn [& args]
          (when-let [t ^TimerTask @task]
            (.cancel t))
          (let [new-task (proxy [TimerTask] []
                           (run []
                             (apply f args)
                             (reset! task nil)
                             (.purge timer)))]
            (reset! task new-task)
            (.schedule timer new-task timeout)))
        {:task-atom task}))))

;; example usage
(def say-hello (debounce #(println "Hello" %1)))
(say-hello "is it me you're looking for?")
(say-hello "Lionel")
;; one second later...
;; Hello Lionel

Works great!