   [key]
   (handlers/remove-handler! handler-pool key))
 
-(defn remove-event-handlers
-  "Remove all handlers for events of type event-type."
-  [event-type]
-  (handlers/remove-event-handlers! handler-pool event-type))
-
 (defn remove-all-handlers
   "Remove all handlers."
   []


(defonce handler-pool (handlers/mk-handler-pool "Overtone Event Handlers"))
(defonce event-debug* (atom false))

(defn on-event
  "Asynchronously runs handler whenever events of event-type are

  (event ::my-event)
  (event ::filter-sweep-done :instrument :phat-bass)"
  [event-type & args]
  (log-event "event: " event-type " " args)
  (when @event-debug*
    (println "event: " event-type " " args "\n"))
  (binding [overtone.libs.handlers/*log-fn* log/error]
