       (and
         (contains? val :content)
         (contains? val :tag))
-      (let [el-type (get-in mk/markup [(:tag val) :type])]
+      (let [el-type (get-in mk/markup [(:tag val) :type])
+            edit-type (:edit-type val)]
         (cond
+          (= :unknown-element edit-type)
+          :unknown-element
+
           (#{:container :multi-chunk :chunk} el-type)
-          :elem
+          (if (= edit-type :no-text-edit)
+            :elem-no-edit
+            :elem)
 
           (= :inner el-type)
           :inner-elem

  (reify
    om/IRender
    (render [_]
      (.log js/console "WTF?")
      (dom/div nil (str "WTF? " (type (om/value elem)) " " elem)))))


           (apply dom/div #js {:className "block-contents col-md-10"}
             (om/build-all element-component (:content elem)))))))))

(defmethod element-component :inner-elem [elem owner]
  (reify
    om/IRender
