         param  (scaled-param-map state r y-val)]
     {:row r :col c :r-size r-size :c-size c-size :y-val y-val :param param}))
 
-(defn- on-grid-clicked [state e]
+(defn- on-grid-clicked
+  [state e]
   (let [{:keys [row col param]} (parse-grid-click state e)
         new-state (cond (.isControlDown e) (delete-entry state row col)
                         (.isAltDown e)     (update-entry state row col param)

              index))
          rows)))

(defn- on-param-selection [state inst e]
  (let [r (inst->index (:rows state) inst)]
    (assoc-in state [:rows r :param] (selection e))))

(defn- step-grid [state-atom]
  (let [state @state-atom

        c (canvas :background :darkgrey


    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)
