delete nodes, refactor scripts

gray background, one column on small devices
This commit is contained in:
DieMyst 2020-12-07 13:56:36 +03:00
parent ed1d9b72b9
commit 0bbc73c1b5
6 changed files with 52 additions and 49 deletions

View File

@ -3,6 +3,43 @@ module AirScripts.GetAll exposing (..)
import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set)
import Json.Encode exposing (list, string)
askRelayScript : Air
askRelayScript =
(seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(askAllAndSend "relayId")
)
askPeersScript : Air
askPeersScript =
(fold "knownPeers" "p" <|
par
(seq
(callBI "p" ( "op", "identity" ) [] Nothing)
(askAllAndSend "p")
)
(next "p")
)
findAndAskNeighbours : Air
findAndAskNeighbours =
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(seq
(callBI "relayId" ( "dht", "neighborhood" ) [ "clientId" ] (Just "neigh"))
(fold "neigh" "n" <|
par
(seq
(callBI "n" ( "dht", "neighborhood" ) [ "clientId" ] (Just "moreNeigh"))
(fold "moreNeigh" "mp" <|
par
(askAllAndSend "mp")
(next "mp")
)
)
(next "n")
))
air : String -> String -> List String -> Air
air peerId relayId peers =
let
@ -17,44 +54,15 @@ air peerId relayId peers =
askRelay = (\innerAir ->
par
(seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(askAllAndSend "relayId")
)
askRelayScript
innerAir
)
askPeers = (\innerAir ->
par
(fold "knownPeers" "p" <|
par
(seq
(callBI "p" ( "op", "identity" ) [] Nothing)
(askAllAndSend "p")
)
(next "p")
)
askPeersScript
innerAir
)
findAndAskNeighbours =
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(seq
(callBI "relayId" ( "dht", "neighborhood" ) [ "clientId" ] (Just "neigh"))
(fold "neigh" "n" <|
par
(seq
(callBI "n" ( "dht", "neighborhood" ) [ "clientId" ] (Just "moreNeigh"))
(fold "moreNeigh" "mp" <|
par
(askAllAndSend "mp")
(next "mp")
)
)
(next "n")
))
in
clientIdSet <| relayIdSet <| peersSet <| (askRelay <| askPeers <| findAndAskNeighbours)

View File

@ -35,7 +35,7 @@ view model =
viewService : BlueprintInfo -> Html msg
viewService blueprint =
div [ classes "fl w-third pr3 lucida" ]
div [ classes "fl w-100 w-third-ns pr3 lucida" ]
[ a [ attribute "href" ("/blueprint/" ++ blueprint.id), classes "fl w-100 bg-white black mw6 mr3 mb3 ph3 hide-child pa2 br3 element-box ba b--white bw1 no-underline" ]
[ div [ classes "w-100 mb2 pt1 b" ] [ text blueprint.name ]
, div [ classes "w-100 mb4 f7" ] [ text "By ", span [classes "b lucida-in"] [text blueprint.author] ]

View File

@ -59,7 +59,7 @@ view modules =
viewService : ModuleShortInfo -> Html msg
viewService moduleInfo =
div [ classes "fl w-third pr3" ]
div [ classes "fl w-100 w-third-ns pr3" ]
[ a [ attribute "href" ("/module/" ++ moduleInfo.moduleInfo.name), classes "fl w-100 bg-white black mw6 mr2 mb3 ph3 hide-child pa2 br3 element-box ba b--white bw1" ]
[ p [ classes "tl di" ] [ div [ classes "fl b w-100 mb1 lucida" ] [ b [] [text moduleInfo.moduleInfo.name ] ], div [ classes "fl w-100 mt1 lucida gray" ] [ instancesText moduleInfo.instanceNumber ] ]
]

View File

@ -40,24 +40,26 @@ body model =
layout <|
List.concat
[ [ header [ classes "w-100" ]
[ div [ classes "fl pa2 pb1 bg-white w-100 one-edge-shadow" ]
[ div [ classes "fl mv1 pl3", style "max-width" "96px" ]
[ a [ attribute "href" "/" ]
[ img [ classes "v-mid dib mw-100 h-auto", attribute "src" "/images/logo_new.svg" ] []
[ div [ classes "w-100 fl pa2 pb1 bg-white one-edge-shadow" ]
[ div [ classes "mw8-ns center ph3"]
[ div [ classes "fl mv1 pl3", style "max-width" "96px" ]
[ a [ attribute "href" "/" ]
[ img [ classes "v-mid dib mw-100 h-auto", attribute "src" "/images/logo_new.svg" ] []
]
]
, div [ classes "fl pl5 h-100" ] [ p [ classes "mv2" ] [ b [] [text "Developer Hub" ]] ]
]
, div [ classes "fl pl5 h-100" ] [ p [ classes "mv2" ] [ b [] [text "Developer Hub" ]] ]
]
]
]
, [ div [ classes "w-100 pa4 pt3 mt4" ] [ routeView model model.page ] ]
, [ div [ classes "mw8-ns center w-100 pa4 pt3 mt4" ] [ routeView model model.page ] ]
]
layout : List (Html Msg) -> Html Msg
layout elms =
div [ classes "mw8-ns center w-100" ]
[ div [ classes "fl w-100 bg-near-white" ]
div [ classes "center w-100" ]
[ div [ classes "fl w-100" ]
([]
++ elms
)

View File

@ -53,10 +53,6 @@ export const faasNet: Node[] = [
multiaddr: '/ip4/165.227.164.206/tcp/9990/ws/p2p/12D3KooWMhVpgfQxBLkQkJed8VFNvgN4iE6MD7xCybb1ZYWW2Gtz',
peerId: '12D3KooWMhVpgfQxBLkQkJed8VFNvgN4iE6MD7xCybb1ZYWW2Gtz',
},
{
multiaddr: '/ip4/165.227.164.206/tcp/9100/ws/p2p/12D3KooWPnLxnY71JDxvB3zbjKu9k1BCYNthGZw6iGrLYsR1RnWM',
peerId: '12D3KooWPnLxnY71JDxvB3zbjKu9k1BCYNthGZw6iGrLYsR1RnWM',
},
{
multiaddr: '/ip4/138.197.189.50/tcp/9001/ws/p2p/12D3KooWHk9BjDQBUqnavciRPhAYFvqKBe4ZiPPvde7vDaqgn5er',
peerId: '12D3KooWHk9BjDQBUqnavciRPhAYFvqKBe4ZiPPvde7vDaqgn5er',
@ -104,10 +100,6 @@ export const faasNetHttps: Node[] = [
multiaddr: '/dns4/net01.fluence.dev/tcp/19990/wss/p2p/12D3KooWMhVpgfQxBLkQkJed8VFNvgN4iE6MD7xCybb1ZYWW2Gtz',
peerId: '12D3KooWMhVpgfQxBLkQkJed8VFNvgN4iE6MD7xCybb1ZYWW2Gtz',
},
{
multiaddr: '/dns4/net01.fluence.dev/tcp/19100/wss/p2p/12D3KooWPnLxnY71JDxvB3zbjKu9k1BCYNthGZw6iGrLYsR1RnWM',
peerId: '12D3KooWPnLxnY71JDxvB3zbjKu9k1BCYNthGZw6iGrLYsR1RnWM',
},
{
multiaddr: '/dns4/net02.fluence.dev/tcp/19001/wss/p2p/12D3KooWHk9BjDQBUqnavciRPhAYFvqKBe4ZiPPvde7vDaqgn5er',
peerId: '12D3KooWHk9BjDQBUqnavciRPhAYFvqKBe4ZiPPvde7vDaqgn5er',

View File

@ -11,6 +11,7 @@
body {
font-family: 'Roboto Mono', monospace;
background-color: #F4F4F4;
}
h1 {