[ style "border" (if model.hover then "6px dashed purple" else "6px dashed #ccc")
-- Image upload with a drag and drop zone. See image previews!
--
-- Dependencies:
-- elm install elm/file
-- elm install elm/json
import Browser
import File exposing (File)
import File.Select as Select
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as D
import Task
-- MAIN
main =
Browser.element
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}
-- MODEL
type alias Model =
{ hover : Bool
, previews : List String
init : () -> (Model, Cmd Msg)
init _ =
(Model False [], Cmd.none)
-- UPDATE