         return))
 
 (defn keypress-channel! [key-change]
+    (println "KEYCHANGE" key-change)
     (let [old-keys (new-keys!)]
         (try
             (let [keys (new-keys! key-change)

(ns mediakeys.hotkeys
    (:use [mediakeys.file :only [DEFAULT_KEYS save-keys!]]
           clojure.core.async))

(import [com.tulskiy.keymaster.common Provider HotKeyListener])
(import [javax.swing KeyStroke])

        (go-loop []
            (let [value (<! channel)]
                (when not-nil? value
                    (pipe (f value) return)
                    (recur))))
        return))

(def new-provider!
    (let [provider (atom nil)]
        (fn [ ]
            (when @provider
                (doto @provider
                    (.reset)
