step4-3.cljs

(defui Element
  static om/Ident
  (ident [this {:keys [id]}]
    [:element/by-id id])
  static om/IQuery
  (query [this]
    [:id :text])
  Object
  (render [this]
    (let [{:keys [id text]} (om/props this)
          {:keys [on-drag-start]} (om/get-computed this)]
      (dom/li #js {:draggable   true
                   :title       id
                   :onDragStart (fn [e]
                                  (if (instance? js/HTMLLIElement (.-target e))
                                    (let [dataTransfer (.-dataTransfer e)]
                                      (set! (.-effectAllowed dataTransfer) "move")
                                      (on-drag-start (om/get-ident this)))
                                    (.preventDefault e)))
                   :onDragEnd   (fn [e])}
              text))))