Main.gren

module Main exposing (main)

import Browser
import File exposing (File)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as D



-- MAIN


main =
  Browser.element
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }



-- MODEL


type alias Model = Array File


init : {} -> { model : Model, command : Cmd Msg }
init _ =
  { model = [], command = Cmd.none }



-- UPDATE


type Msg
  = GotFiles (Array File)


update msg model =
  when msg is
    GotFiles files ->
      { model = files, command = Cmd.none }



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
  Sub.none



-- VIEW


view : Model -> Html Msg
view model =
  div []
    [ input
        [ type_ "file"
        , multiple True
        , on "change" (D.map GotFiles filesDecoder)
        ]
        []
    , div
        [ id "file-view" ]
        [ text (Debug.toString model) ]
    ]


filesDecoder : D.Decoder (Array File)
filesDecoder =
  D.at ["target","files"] (D.array File.decoder)