frontend: start to do switch data
This commit is contained in:
parent
a364713031
commit
da98792d35
|
|
@ -5,7 +5,6 @@ import (
|
|||
"encoding/hex"
|
||||
"flag"
|
||||
"net/http"
|
||||
"strings"
|
||||
"time"
|
||||
|
||||
"github.com/google/uuid"
|
||||
|
|
@ -71,6 +70,8 @@ func init() {
|
|||
publicRoutes = map[string]bool{
|
||||
"/webhooks/": true,
|
||||
"/static/": true,
|
||||
"/static/main.js": true,
|
||||
"/static/gruvbox.css": true,
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -91,7 +92,7 @@ func (pm PasetoMiddleware) ServeHTTP(w http.ResponseWriter, r *http.Request) {
|
|||
}
|
||||
|
||||
for k := range publicRoutes {
|
||||
if strings.HasPrefix(r.URL.EscapedPath(), k) {
|
||||
if r.URL.EscapedPath() == k {
|
||||
goto ok
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -11,12 +11,14 @@
|
|||
"elm/html": "1.0.0",
|
||||
"elm/http": "2.0.0",
|
||||
"elm/json": "1.1.3",
|
||||
"elm/url": "1.0.0"
|
||||
"elm/time": "1.0.0",
|
||||
"elm/url": "1.0.0",
|
||||
"rtfeldman/elm-iso8601-date-strings": "1.1.3"
|
||||
},
|
||||
"indirect": {
|
||||
"elm/bytes": "1.0.8",
|
||||
"elm/file": "1.0.5",
|
||||
"elm/time": "1.0.0",
|
||||
"elm/parser": "1.1.0",
|
||||
"elm/virtual-dom": "1.0.2"
|
||||
}
|
||||
},
|
||||
|
|
|
|||
|
|
@ -7,9 +7,11 @@ import Html.Attributes exposing (..)
|
|||
import Html.Events exposing (onInput)
|
||||
import Http
|
||||
import Json.Decode as D
|
||||
import SwitchData
|
||||
import Url
|
||||
import Url.Builder
|
||||
|
||||
|
||||
-- MAIN
|
||||
main : Program () Model Msg
|
||||
main =
|
||||
Browser.application
|
||||
|
|
@ -21,48 +23,53 @@ main =
|
|||
, onUrlRequest = LinkClicked
|
||||
}
|
||||
|
||||
-- MODEL
|
||||
|
||||
type alias Model =
|
||||
{ key : Nav.Key
|
||||
, url : Url.Url
|
||||
, token: Maybe String
|
||||
, token_data: Maybe TokenData
|
||||
, switch_data : Maybe ( List Switch )
|
||||
, token : Maybe String
|
||||
, token_data : Maybe TokenData
|
||||
, switch_cursor : ( Int, Int )
|
||||
, switch_data : Maybe (List SwitchData.Switch)
|
||||
}
|
||||
|
||||
|
||||
init : () -> Url.Url -> Nav.Key -> ( Model, Cmd Msg )
|
||||
init flags url key =
|
||||
( Model key url Nothing Nothing Nothing, Cmd.none )
|
||||
( Model
|
||||
key
|
||||
url
|
||||
Nothing
|
||||
Nothing
|
||||
( 40, 0 )
|
||||
Nothing
|
||||
, Cmd.none
|
||||
)
|
||||
|
||||
|
||||
-- UPDATE
|
||||
type Msg
|
||||
= LinkClicked Browser.UrlRequest
|
||||
| UrlChanged Url.Url
|
||||
| TokenInput String
|
||||
| TokenValidate ( Result Http.Error TokenData )
|
||||
| TokenValidate (Result Http.Error TokenData)
|
||||
| Logout
|
||||
| NoSwitchData
|
||||
| GotSwitchData ( List Switch )
|
||||
| GetSwitchData ( Int, Int )
|
||||
| GotSwitchData (Result Http.Error (List SwitchData.Switch))
|
||||
|
||||
type alias Switch
|
||||
= { id : String
|
||||
, who : String
|
||||
, started_at : String
|
||||
, ended_at : Maybe String
|
||||
, duration : Int
|
||||
}
|
||||
|
||||
type alias TokenData
|
||||
= { sub : String
|
||||
type alias TokenData =
|
||||
{ sub : String
|
||||
, jti : String
|
||||
}
|
||||
|
||||
|
||||
tokenDecoder : D.Decoder TokenData
|
||||
tokenDecoder =
|
||||
D.map2 TokenData
|
||||
(D.field "sub" D.string)
|
||||
(D.field "jti" D.string)
|
||||
|
||||
|
||||
request method token path body expect =
|
||||
Http.request
|
||||
{ method = method
|
||||
|
|
@ -76,6 +83,7 @@ request method token path body expect =
|
|||
, tracker = Nothing
|
||||
}
|
||||
|
||||
|
||||
update : Msg -> Model -> ( Model, Cmd Msg )
|
||||
update msg model =
|
||||
case msg of
|
||||
|
|
@ -118,41 +126,80 @@ update msg model =
|
|||
( { model | token = Nothing, token_data = Nothing }
|
||||
, Nav.load "/"
|
||||
)
|
||||
|
||||
GetSwitchData ( limit, page ) ->
|
||||
case model.token of
|
||||
Just token ->
|
||||
( model
|
||||
, request "GET"
|
||||
token
|
||||
(SwitchData.dataURL limit page)
|
||||
Http.emptyBody
|
||||
(expectJson GotSwitchData (D.list SwitchData.decoder))
|
||||
)
|
||||
|
||||
Nothing ->
|
||||
( model, Cmd.none )
|
||||
|
||||
_ ->
|
||||
( model, Cmd.none )
|
||||
|
||||
-- SUBSCRIPTIONS
|
||||
|
||||
subscriptions : Model -> Sub Msg
|
||||
subscriptions _ =
|
||||
Sub.none
|
||||
|
||||
-- VIEW
|
||||
|
||||
view : Model -> Browser.Document Msg
|
||||
view model =
|
||||
case model.token of
|
||||
case model.token_data of
|
||||
Nothing ->
|
||||
template "Login"
|
||||
{ title = "Login"
|
||||
, body =
|
||||
[ node "main"
|
||||
[ style "align" "center" ]
|
||||
[ h1 [] [ text "Login" ]
|
||||
, viewInput "password" "API Token" "" TokenInput
|
||||
]
|
||||
Just token ->
|
||||
]
|
||||
}
|
||||
|
||||
Just token_data ->
|
||||
case model.url.path of
|
||||
"/" ->
|
||||
template "Mi"
|
||||
[ navBar
|
||||
, h1 [] [ text "Mi" ]
|
||||
, p [] [ text "TODO: everything" ]
|
||||
[ h1 [] [ text "Mi" ]
|
||||
, h2 [] [ text "TODO" ]
|
||||
, ul []
|
||||
[ li [] [ text "Switch CRUD" ]
|
||||
, li [] [ text "POSSE manual announcement" ]
|
||||
]
|
||||
, h2 [] [ text "Token data" ]
|
||||
, p []
|
||||
[ text "Token sub: "
|
||||
, text (Maybe.withDefault (TokenData "" "") model.token_data).sub
|
||||
, text " ID: "
|
||||
, text (Maybe.withDefault (TokenData "" "") model.token_data).jti
|
||||
, text token_data.sub
|
||||
, Html.br [] []
|
||||
, text "ID: "
|
||||
, text token_data.jti
|
||||
]
|
||||
]
|
||||
|
||||
"/switch" ->
|
||||
case model.switch_data of
|
||||
Nothing ->
|
||||
template "Switch counter"
|
||||
[ h1 [] [ text "Switch counter" ]
|
||||
, p [] [ text "loading..." ]
|
||||
]
|
||||
|
||||
Just switches ->
|
||||
template "Switch counter"
|
||||
[ h1 [] [ text "TODO: table" ]
|
||||
]
|
||||
|
||||
other ->
|
||||
template "Not found"
|
||||
[ navBar
|
||||
, h1 [] [ text "Not found" ]
|
||||
[ h1 [] [ text "Not found" ]
|
||||
, p []
|
||||
[ text "The requested URL "
|
||||
, b [] [ text other ]
|
||||
|
|
@ -160,26 +207,35 @@ view model =
|
|||
]
|
||||
]
|
||||
|
||||
|
||||
viewInput : String -> String -> String -> (String -> msg) -> Html msg
|
||||
viewInput t p v toMsg =
|
||||
input [ type_ t, placeholder p, value v, onInput toMsg ] []
|
||||
|
||||
|
||||
viewLink : String -> String -> Html msg
|
||||
viewLink path title =
|
||||
a [ href path ] [ text title ]
|
||||
|
||||
|
||||
template : String -> List (Html msg) -> Browser.Document msg
|
||||
template title body =
|
||||
{ title = title
|
||||
, body =
|
||||
[ node "main" []
|
||||
body
|
||||
[ node "main"
|
||||
[]
|
||||
[ navBar
|
||||
, div [] body
|
||||
, footer
|
||||
]
|
||||
]
|
||||
}
|
||||
|
||||
|
||||
navBar : Html msg
|
||||
navBar =
|
||||
node "nav" []
|
||||
node "nav"
|
||||
[]
|
||||
[ p []
|
||||
[ viewLink "/" "Mi"
|
||||
, text " - "
|
||||
|
|
@ -189,6 +245,19 @@ navBar =
|
|||
]
|
||||
]
|
||||
|
||||
|
||||
footer : Html msg
|
||||
footer =
|
||||
node "footer"
|
||||
[]
|
||||
[ p []
|
||||
[ a [ href "https://within.website" ] [ text "From Within" ]
|
||||
, text " - "
|
||||
, a [ href "https://tulpa.dev/cadey/mi" ] [ text "Source code" ]
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
expectJson : (Result Http.Error a -> msg) -> D.Decoder a -> Http.Expect msg
|
||||
expectJson toMsg decoder =
|
||||
Http.expectStringResponse toMsg <|
|
||||
|
|
|
|||
|
|
@ -0,0 +1,30 @@
|
|||
module SwitchData exposing (..)
|
||||
|
||||
import Iso8601
|
||||
import Json.Decode exposing (Decoder, field, int, map5, nullable, string)
|
||||
import Time exposing (Posix)
|
||||
import Url.Builder as UB
|
||||
|
||||
|
||||
type alias Switch =
|
||||
{ id : String
|
||||
, who : String
|
||||
, started_at : Posix
|
||||
, ended_at : Maybe Posix
|
||||
, duration : Int
|
||||
}
|
||||
|
||||
|
||||
decoder : Decoder Switch
|
||||
decoder =
|
||||
map5 Switch
|
||||
(field "id" string)
|
||||
(field "who" string)
|
||||
(field "started_at" Iso8601.decoder)
|
||||
(field "ended_at" (nullable Iso8601.decoder))
|
||||
(field "duration" int)
|
||||
|
||||
|
||||
dataURL : Int -> Int -> String
|
||||
dataURL limit page =
|
||||
UB.absolute [ "switches" ] [ UB.int "limit" limit, UB.int "page" page ]
|
||||
Loading…
Reference in New Issue