delete nodes, refactor scripts

gray background, one column on small devices

src/AirScripts/GetAll.elm

@@ -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)
 

src/Blueprints/View.elm

@@ -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] ]

src/Modules/View.elm

@@ -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 ] ]
             ]

src/View.elm

@@ -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
             )

src/environments.ts

@@ -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',

src/main.css

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