dashboard/src/Route.elm

module Route exposing (..)

import Air exposing (call, callBI, fold, next, par, relayEvent, seq, set)
import Html exposing (Html)
import HubPage.View as HubPage
import Json.Encode as Encode
import Model exposing (Model, Route(..))
import Port exposing (sendAir)
import Url.Parser exposing ((</>), Parser, map, oneOf, s, string)


routeParser : Parser (Route -> a) a
routeParser =
    oneOf
        [ map Peer (s "peer" </> string)
        , map Page string
        ]


parse url =
    Maybe.withDefault (Page "") <| Url.Parser.parse routeParser url

routeView : Route -> Html msg
routeView route =
    case route of
        Page page ->
            case page of
                "hub" ->
                    HubPage.view {}
                _ ->
                    Html.text ("undefined page: " ++ page)


        Peer peer ->
            Html.text peer

routeCommand : Model -> Route -> Cmd msg
routeCommand m r =
    case r of
        Page s ->
            let
                _ = Debug.log "page" s
                clientId =
                    set "clientId" <| Encode.string m.peerId

                relayId =
                    set "relayId" <| Encode.string m.relayId

                air =
                    seq
                        (callBI "relayId" ( "dht", "neighborhood" ) [ "clientId" ] (Just "peers"))
                        (par
                            (relayEvent "peers_discovered" [ "relayId", "peers" ])
                            (fold "peers" "p" <|
                                par
                                    (seq
                                        (callBI "p" ( "dht", "neighborhood" ) [ "clientId" ] (Just "morePeers[]"))
                                        (relayEvent "peers_discovered" [ "p", "morePeers" ])
                                    )
                                    (next "p")
                            )
                        )
            in
            sendAir (relayId <| clientId <| air)

        Peer _ ->
            Cmd.none