module Main exposing
  ( main
  )

import Html.App exposing (programWithFlags)
import Time
import Keyboard
import Keyboard.Extra as Keyboard

import Model exposing (init)
import Msg
import Update exposing (update)
import View exposing (view)

main : Program Float
main =
  programWithFlags
    { init = init
    , update = update
    , subscriptions = (\model ->
        Sub.batch
          [ Time.every 40 Msg.Time
          , Sub.map Msg.Keyboard Keyboard.subscriptions
          , Keyboard.downs (\keycode -> if keycode == 69 then Msg.Transform else Msg.NoOp)
          ]
      )
    , view = view
    }