Introduction to elm-mdl - 5

Main.elm

type Msg
    -- ...
    | SelectTab Int


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        -- ...
        SelectTab num ->
            let
                _ =
                    Debug.log "SelectTab: " num
            in
                model ! []


view : Model -> Html Msg
view model =
    Layout.render Mdl
        model.mdl
        [ Layout.fixedHeader
        , Layout.onSelectTab SelectTab -- <-- Add this
        ]
        { header = [ h1 [ style [ ( "padding", "2rem" ) ] ] [ text "Counter" ] ]
        , drawer = []
        , tabs = ( [ text "Milk", text "Oranges" ], [] )
        , main = [ viewBody model ]
        }