Elm 0.18 Initial Window Size

main.elm

module Main exposing (main)

import Html exposing (Html, text)
import Window
import Task


main =
    Html.program
        { init = init
        , update = update
        , view = view
        , subscriptions = subscriptions
        }



-- MODEL


type alias Model =
    { window : Window.Size
    }


init =
    ( { window = initWindow
      }
    , Task.perform WindowResize Window.size
    )


initWindow =
    { height = 0
    , width = 0
    }



-- UPDATE


type Msg
    = WindowResize Window.Size


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        WindowResize size ->
            ( { model | window = size }, Cmd.none )



-- VIEW


view : Model -> Html Msg
view model =
    text <| toString model.window



-- SUBSCRIPTION


subscriptions : Model -> Sub Msg
subscriptions model =
    Window.resizes WindowResize