insane skullduggery

Main.elm

view : Model -> Html Msg
view model =
    Material.Scheme.topWithScheme Color.BlueGrey Color.LightBlue <|
        Layout.render Mdl
            model.mdl
            [ Layout.selectedTab model.selectedTab
            , Layout.onSelectTab SelectTab
            , Layout.fixedHeader
            , Layout.fixedDrawer
            ]
            { header = header model
            , drawer = drawer model
            , tabs =
                ( tabs model
                , []
                )
            , main = body model
            }

Route.elm

type Location
    = Login
    | Dashboard
    | Tools (Maybe ToolsRoute.Location)


type alias Model =
    Maybe Location

tabs2Location : Model -> Int -> Maybe Location
tabs2Location model k =
    case model of
        Just (Tools a) ->
            Just (Tools (nth k <| List.map (\x -> x.route) ToolsRoute.tabs))

        _ ->
            model
            
urlFor : Location -> String
urlFor loc =
    let
        url =
            case loc of
                Login ->
                    "/"

                Dashboard ->
                    "/dashboard"

                Tools (Just k) ->
                    "/tools" ++ ToolsRoute.urlFor k

                Tools Nothing ->
                    "/tools"
    in
        "#" ++ url

ToolsRoute.Elm

type Location
    = Dashboard
    | Browser


urlFor : Location -> String
urlFor loc =
    let
        url =
            case loc of
                Dashboard ->
                    "/"

                Browser ->
                    "/browser"
    in
        url
        
type alias Tool =
    { title : String
    , url : String
    , route : Location
    }


tabs : List Tool
tabs =
    [ { title = "Dashboard", url = "dashboard", route = Dashboard }
    , { title = "Tools", url = "browser", route = Browser }
    ]
    
nth : Int -> List a -> Maybe a
nth k xs =
    List.drop k xs |> List.head

Update.Elm

NavigateTo maybeLocation ->
    case maybeLocation of
        Nothing ->
            model ! []

        Just location ->
            model ! [ Navigation.newUrl (Route.urlFor location) ]

SelectTab k ->
    let
        newRoute =
            tabs2Location model.route k
          
    in
        case newRoute of
            Nothing ->
                model ! []

            Just location ->
                { model | selectedTab = k, route = newRoute }
                    ! [ Navigation.newUrl (Route.urlFor location)
                      ]