 
 (def ^{:private true} NEW_ENTRY {:on true})
 
-(defn- toggle-playing [state]
+(defn- toggle-playing
+  [state]
   (update-in state [:playing?] not))
 
-(defn- get-entry [state row col]
+(defn- get-entry
+  [state row col]
   (get-in state [:rows row :value col]))
 
-(defn- set-entry [state row col v]
+(defn- set-entry
+  [state row col v]
   (if (< row (count (:rows state)))
     (assoc-in state [:rows row :value col] v)
     state))
 
-(defn- update-entry [state row col v]
+(defn- update-entry
+  [state row col v]
   (if (< row (count (:rows state)))
     (update-in state [:rows row :value col] merge NEW_ENTRY v)
     state))
 
-(defn- mute-entry [state row col]
+(defn- mute-entry
+  [state row col]
   (update-in state [:rows row :value col]
              (fn [v]
                (if (associative? v)
                  (assoc-in v [:on] false)
                  v))))
 
-(defn- toggle-entry [state row col]
+(defn- toggle-entry
+  [state row col]
   (update-in state [:rows row :value col]
              (fn [v]
                (if (associative? v)
                  (update-in v [:on] not)
                  NEW_ENTRY))))
 
-(defn- delete-entry [state row col]
+(defn- delete-entry
+  [state row col]
   (set-entry state row col false))
 
 (defn- get-row-param

        [seesaw.mig :only [mig-panel]])
  (:require [seesaw.bind :as bind]))

(defn- make-initial-state [metro steps instruments init-vals]
  {:playing?  false
   :metronome metro
   :steps     steps


    new-state))

(defn- on-grid-drag
  [state e]
  (let [{:keys [row col r-size c-size y-val param]} (parse-grid-click state e)]
    (cond (.isControlDown e) (delete-entry state row col)
          (.isShiftDown e)   (mute-entry state row col)
