                                       (if-not (:grid-expanded state)
                                         (dom/div nil " ")
                                         (dom/div nil 
-                                                 (dom/p style-grey
-                                                        (dom/span nil (str name " "))
-                                                        (om/build grid-editor {:id id
+                                                 (dom/div style-grey
+                                                        (om/build grid-editor {:name name
+                                                                               :id id
                                                                                :set-state-ch (:set-state-ch state)
                                                                                :cursor cursor}))
                                                  (dom/table nil

(def sample-editor
  (select-editor-builder "sample" samples))

(def type-editor
  (select-editor-builder "type" types
                         (fn [{:keys [cursor id set-state-ch key value owner]}]

                        (om/transact! cursor (fn [c] (assoc c "tracks" (clj->js halved-tracks))))
                        (go (>! set-state-ch id)))]
        (condp = (:state state)
          :init (dom/table nil
                           (dom/tbody nil
                                      (dom/tr nil
                                              (dom/td nil (str name " "))
                                              (dom/td #js {:onClick #(transition {:state :open})
                                                           :style #js {:color (:link theme)}}
                                                      "{..}"))))
          :open (dom/table nil
                           (dom/tbody nil
                                      (dom/tr nil
                                              (dom/td nil (str name " "))
                                              (dom/td nil (closer "{"))
                                              (dom/td nil " bpc: ")
                                              (dom/td nil (om/build bpc-editor inputs))
                                              (dom/td nil " ")
                                              (dom/td nil " width: ")
                                              (dom/td #js {:onClick double-width
                                                           :style #js {:color (:link theme)}} "+")
                                              (dom/td nil "/")
                                              (dom/td #js {:onClick half-width
                                                           :style #js {:color (:link theme)}} "-")
                                              (dom/td nil " ")
                                              (dom/td nil " res ")
                                              (dom/td #js {:onClick double-res
                                                           :style #js {:color (:link theme)}} "+")
                                              (dom/td nil "/")
                                              (dom/td #js {:onClick half-res
                                                           :style #js {:color (:link theme)}} "-")
                                              (dom/td nil " }")))))))))

(defn grid-view [{:keys [id beat-cursors]} owner]
  (reify
