usage debounce-clj on blog "Debounce and Throttle in Clojure" on 2015/10/24

debounce-use.clj

(def sync-source (chan))
(def sync-sink (debounce sync-source 10000))

(defn handle-event! [event]
  (when-let
    [handler (case (:type event)
               :one-event     function-wanna-call
               unknown-event)]
    (try
      (apply handler (:args event))
      (catch Exception e nil))))

(go-loop [] (handle-event! (<! sync-sink)))