DragAndDrop with Library

Example.elm

import DragAndDrop exposing (..)
import Html exposing (div, p, text)
import Html.Attributes exposing (draggable)
import Html.Events exposing (onClick)
import Signal exposing (foldp)
import Color exposing (black)

hover = Signal.mailbox False

box = p [draggable "true", (onClick hover.address True)] [text "drag-and-drop me"]

main =
  let update m =
        case (Debug.log "m" m) of
          _                     -> identity
  in Signal.map (\model -> div [] [box, p [] [text (toString model)]])
                (foldp update (0,0) (track False hover.signal))