step2.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)]
      (dom/li #js {:draggable   true
                   :onDragStart (fn [e]
                                  (if (instance? js/HTMLLIElement (.-target e))
                                    (let [dataTransfer (.-dataTransfer e)]
                                      (set! (.-effectAllowed dataTransfer) "move")
                                      ;; Save that this element is being dragged
                                      )
                                    (.preventDefault e)))
                   :onDragEnd   (fn [e]
                                  ;; Clear the saved information  
                                  )}
              text))))