Light.elm

module Light exposing (..)

import Html exposing (Html, div, section, figure)
import Html.Attributes exposing (style, id, class)
import Html.Events exposing (onClick)


-- MODEL


type Model
    = On
    | Off


init : Model
init =
    Off



-- UPDATE


type Msg
    = Toggle


update : Msg -> Model -> Model
update message model =
    case model of
        On ->
            Off

        Off ->
            On



-- VIEW


view : Model -> Html Msg
view model =
    let
        lightClass =
            case model of
                On ->
                    ""

                Off ->
                    "flipped"

        divStyle =
            style
                [ ( "height", "95%" )
                , ( "width", "95%" )
                , ( "border-radius", "15px" )
                ]
    in
        section [ class "container", onClick Toggle ]
            [ div
                [ id "light", class lightClass ]
                [ figure [ class "on" ] []
                , figure [ class "off" ] []
                ]
            ]