                                    (vec (repeat steps false)))]
                     {:inst  i
                      :param (-> i :params first :name)
+                     :mute  false
                      :value i-vals})))
    })
 

(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]

  [state row col]
  (set-entry state row col false))

(defn- toggle-row-mute
  [state row]
  (update-in state [:rows row :mute] not))

(defn- get-row-param
  [state row]
  (get-in state [:rows row :param]))

(defn- set-row-param
  [state row val]
  (assoc-in state [:rows row :param] val))

(defn- get-param-info
  [state row]
