module Pages.Top exposing (Model, Msg, page)

import Element exposing (..)
import Element.Font as Font
import Generated.Params as Params
import Generated.Routes as Routes exposing (Route, routes)
import Spa.Page
import Utils.Spa exposing (Page)


type alias Model =
    ()


type alias Msg =
    Never


page : Page Params.Top Model Msg model msg appMsg
page =
    Spa.Page.static
        { title = always "/"
        , view = view
        }



-- VIEW


view : Utils.Spa.PageContext -> Element Msg
view { global } =
    case global.token of
        Just _ ->
            column
                [ spacing 12
                ]
                [ row [ spacing 14 ]
                    [ el [ Font.size 48, Font.semiBold ] (text "Mi")
                    , el [ alpha 0.5 ] (text "POSSE and stuff")
                    ]
                , text "TODO:"
                , text "* POSSE"
                , text "* Switch Data"
                ]

        Nothing ->
            el
                [ Font.size 48, centerX, centerY ]
                (link
                    [ Font.underline
                    , Font.color (rgb255 204 75 75)
                    , Font.size 48
                    , mouseOver [ alpha 0.5 ]
                    ]
                    { label = text "Login"
                    , url = Routes.toPath routes.signIn
                    }
                )