94 lines
2.6 KiB
Elm
94 lines
2.6 KiB
Elm
module Main exposing (main)
|
|
|
|
import Browser exposing (Document, UrlRequest(..))
|
|
import Browser.Navigation as Nav
|
|
import Html exposing (Html, a, br, button, div, h1, img, input, p, pre, span, text)
|
|
import Html.Attributes exposing (href, placeholder, src, value)
|
|
import Html.Events exposing (onClick, onInput)
|
|
import Http
|
|
import Layout
|
|
import Mi
|
|
import Mi.Switch
|
|
import Mi.WebMention
|
|
import Model exposing (Model, Msg(..), init)
|
|
import Page.Index
|
|
import Page.Login
|
|
import Route exposing (Route(..), routeParser)
|
|
import Url exposing (Url)
|
|
import Url.Parser as UrlParser exposing ((</>))
|
|
|
|
|
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
|
update msg model =
|
|
case msg of
|
|
UpdateToken newToken ->
|
|
( { model | token = Just newToken }, Cmd.none )
|
|
|
|
ChangeUrl url ->
|
|
( { model | route = UrlParser.parse routeParser url }, Cmd.none )
|
|
|
|
SubmitToken ->
|
|
( model
|
|
, Mi.request
|
|
"GET"
|
|
(Maybe.withDefault "" model.token)
|
|
Mi.tokenIntrospectURL
|
|
Http.emptyBody
|
|
(Mi.expectJson ValidateToken Mi.tokenDecoder)
|
|
)
|
|
|
|
ValidateToken result ->
|
|
case result of
|
|
Ok data ->
|
|
( { model | tokenData = Just data }
|
|
, Nav.pushUrl model.navKey "/"
|
|
)
|
|
|
|
Err why ->
|
|
( { model | error = Just <| Mi.errorToString why }, Cmd.none )
|
|
|
|
ClickLink urlRequest ->
|
|
case urlRequest of
|
|
Internal url ->
|
|
( model, Nav.pushUrl model.navKey <| Url.toString url )
|
|
|
|
External url ->
|
|
( model, Nav.load url )
|
|
|
|
ClearError ->
|
|
( { model | error = Nothing }, Cmd.none )
|
|
|
|
|
|
view : Model -> Document Msg
|
|
view model =
|
|
case model.error of
|
|
Nothing ->
|
|
case Maybe.withDefault Index model.route of
|
|
Index ->
|
|
Page.Index.view model
|
|
|
|
Login ->
|
|
Page.Login.view model
|
|
|
|
_ ->
|
|
Debug.todo "implement routing"
|
|
|
|
Just why ->
|
|
Layout.basic
|
|
"Error"
|
|
[ p [] [ text why, text ". Please clear the error to proceed." ]
|
|
, a [ onClick ClearError, href "/" ] [ text "Clear error" ]
|
|
]
|
|
|
|
|
|
main : Program () Model Msg
|
|
main =
|
|
Browser.application
|
|
{ view = view
|
|
, init = init
|
|
, update = update
|
|
, subscriptions = always Sub.none
|
|
, onUrlRequest = ClickLink
|
|
, onUrlChange = ChangeUrl
|
|
}
|