     (.put im input-event uuid)
     (.put am uuid action)))
 
-(defn bind-window-key
-  [window input-key action-fn]
-  (bind-key (.getContentPane window) input-key action-fn true))
+(defn bind-keys
+  [component input-keys action-fn global?]
+  (dorun (map #(bind-key component % action-fn global?) input-keys)))
+
+(defn bind-window-keys
+  [window input-keys action-fn]
+  (bind-keys (.getContentPane window) input-keys action-fn true))
 
 ;; full screen
 

    (full-screen! (default-screen-device) window)))

(defn setup-fullscreen [window]
  (bind-window-key window "F" #(full-screen! window))
  (bind-window-key window "ESCAPE" #(full-screen! nil)))

;; positional controls



(defn display-follow [panel reference]
  (add-watch reference "display"
             (fn [_ _ _ _]
                (.post display-updater #(.repaint panel)))))

;; key binding

