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


(defmulti element-component dispatch-on-element-type)


(defmethod element-component :text [elem owner]
  (reify
    om/IRenderState
    (render-state [_ state]
      (dom/span #js {:className "xml-text-element"} elem))))

(defmethod element-component :elem [elem owner]
  (reify
    om/IInitState
    (init-state [_] {:hoverTimeout nil

             (dom/span #js {:className "attribute-quote"} "\"")])
          atts)))))


(defn dispatch-on-element-type-xml [el]
  (let [t (dispatch-on-element-type el)]
    (if (= :elem-no-edit t)
      :elem
      t)))

(defmulti xml-display dispatch-on-element-type-xml)

(defmethod xml-display :elem [elem owner]
  (reify
