SPA navigation

Main.elm

main : Program Flags Model Msg
main =
    Browser.application
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        , onUrlChange = PathChange
        , onUrlRequest = LinkClicked
        }


update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        PathChange urlString ->
            -- decode the URL into a route, handle `onPathChange` hooks, etc.

        LinkClicked request ->
            case request of
                Internal linkUrl ->
                    ( model
                    , linkUrl
                        |> Url.toString
                        |> Browser.Navigation.pushUrl model.navKey
                    )

                External linkUrl ->
                    ( model
                    , Browser.Navigation.load linkUrl 
                    )