   (:require [seesaw.bind :as bind]))
 
 (defn- make-initial-state [metro steps instruments]
-  {:playing?  false 
+  {:playing?  false
    :metronome metro
    :step      0
-   :rows      (into 
+   :rows      (into
                 {}
                 (for [i instruments]
                   [(:name i) (vec (repeat steps false))]))})

                   (repaint! step-lbls)))
      (listen play-btn :action
              (fn [e]
                (let [playing? (:playing? (swap! state-atom toggle-playing))] 
                  (config! play-btn :text (if playing? "stop" "play"))
                  (if playing?
                    (step-player state-atom (metro) steps instruments)))))


(defn- step-player
  [state-atom beat steps instruments]
  (let [state @state-atom]
    (when (:playing? state)
      (let [metro (:metronome state)
            index (mod beat steps)
