dashboard/src/Route.elm

module Route exposing (..)

import Air exposing (call, callBI, fold, next, par, relayEvent, seq, set)
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


routeCommand : Model -> Route -> Cmd msg
routeCommand m r =
    case r of
        Page _ ->
            let
                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