Layout

A Layout is a component that can render other components.

Example usage

type alias Model =
    { instances : List System.Process.PID
    }


type MsgIn
    = AddProcess System.Process.PID
    | OnClickKillProcess System.Process.PID
    | ProcessKilled System.Process.PID


type MsgOut
    = KillProcess System.Process.PID


component : Layout (Html msg) Model MsgIn MsgOut msg
component =
    { init =
        \_ ->
            ( { instances = [] }
            , []
            , Cmd.none
            )
    , update =
        \msgIn model ->
            case msgIn of
                AddProcess pid ->
                    ( { model
                        | instances = pid :: model.instances
                      }
                    , []
                    , Cmd.none
                    )


                OnClickKillProcess pid ->
                    ( model
                    , [ KillProcess pid ]
                    , Cmd.none
                    )


                ProcessKilled pid ->
                    ( { model
                        | instances = List.filter (not << System.Process.equals pid)
                      }
                    , []
                    , Cmd.none
                    )
    , view =
        \toSelf model renderPid ->
            model.instances
                |> List.map
                    (\pid ->
                        Html.div []
                            [ Html.button [ Html.Events.onClick (OnClickKillProcess pid) ] [ Html.text "kill process" ]
                                |> Html.map toSelf
                            , renderPid pid
                                |> Maybe.withDefault (Html.text "")
                            ]
                    )
                |> Html.div []
    , subscriptions = always Sub.none
    , events = System.Event.ignoreAll
    }

Types

Creation