step3.cljs

(defui ElementList
  static om/Ident
  (ident [this {:keys [id]}]
    [:list/by-id id])
  static om/IQuery
  (query [this]
    [:id {:elements (om/get-query Element)}])
  Object
  (render [this]
    (let [{:keys [id elements]} (om/props this)]
      (dom/div nil
               (dom/h4 nil (str "List with id : " id))
               (dom/ul #js {:onDragEnter (fn [e]
                                           (.preventDefault e))
                            :onDragOver  (fn [e]
                                           (set! (.. e -dataTransfer -dropEffect) "move")
                                           (.preventDefault e))
                            :onDrop      (fn [e]
                                           (.preventDefault e)
                                           ;; Change our app state
                                           )}
                       (map element elements))))))