                                       (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

                          :synths []
                          :types ["synth" "sample" "grid"]
                          :grid-types ["synth" "sample"]
                          :errors []
                          :console []
                          :beat-cursors []}))

                             (let [grid-id (new-id)
                                   grid {"name" ""
                                         "id" grid-id
                                         "bpc" "1"
                                         "tracks" []}]
                               (om/transact! cursor (fn [c] (assoc c
                                                                   "type" value
