(ns dragspike.dragspike
  (:require [reagent.core]))

;; | Chromium 62 | all events fire                               |
;; | Firefox 57  | on-drag and on-drag-end events don't fire |

(defn on-drag-start
  ""
  [event]
  (.log js/console "drag started on" (-> event .-target .-id)))

(defn on-drag
  [event]
  (.log js/console (str "draggin " (-> event .-target .-id)))

(defn on-drag-end
  ""
  [event]
  (.log js/console "drag ended on " (-> event .-target .-id)))

(defn draggable
  ""
  [id]
  [:div.draggable
   {:id            id
    :draggable     true
    :on-drag-start on-drag-start
    :on-drag       on-drag
    :on-drag-end   on-drag-end}
   [:p "Draggable " id])

(defn app []
  [:div
   [draggable "1"]])

(defn mount-root []
  (reagent.core/render [app] (.getElementById js/document "app")))

(defn init! []
  (mount-root))