From 08ae79feb88f32c274ffb4d1a5de7aa58e0463da Mon Sep 17 00:00:00 2001
From: DieMyst <dmitry.shakhtarin@fluence.ai>
Date: Wed, 9 Dec 2020 14:28:54 +0300
Subject: [PATCH] send script only once, fix paddings

---
 src/HubPage/View.elm |  2 +-
 src/Main.elm         |  1 +
 src/Model.elm        |  1 +
 src/Route.elm        | 13 +------------
 src/Update.elm       |  4 +---
 5 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/src/HubPage/View.elm b/src/HubPage/View.elm
index eacee4d..33bf128 100644
--- a/src/HubPage/View.elm
+++ b/src/HubPage/View.elm
@@ -11,7 +11,7 @@ import Palette exposing (classes, redFont)
 
 view : Model -> Html msg
 view model =
-    div [ classes "pt4" ]
+    div [ classes "fl w-100 pt4" ]
         [ div [ redFont, classes "f1 fw4 pt3 pb3" ] [ text "Developer Hub" ]
         , welcomeText
         , div [ classes "pt4 f3 fw5 pb4" ] [ text "Featured Blueprints" ]
diff --git a/src/Main.elm b/src/Main.elm
index 144b896..5897189 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -57,6 +57,7 @@ init flags url key =
             , blueprints = Dict.empty
             , toggledInterface = Nothing
             , knownPeers = flags.knownPeers
+            , isInitialized = False
             }
     in
     ( emptyModel, Route.routeCommand emptyModel r )
diff --git a/src/Model.elm b/src/Model.elm
index 59fccb5..374b386 100644
--- a/src/Model.elm
+++ b/src/Model.elm
@@ -56,4 +56,5 @@ type alias Model =
     , blueprints : Dict String Blueprint
     , toggledInterface : Maybe String
     , knownPeers : List String
+    , isInitialized : Bool
     }
diff --git a/src/Route.elm b/src/Route.elm
index d5a4dab..5becb3a 100644
--- a/src/Route.elm
+++ b/src/Route.elm
@@ -60,15 +60,4 @@ getAllCmd peerId relayId knownPeers =
 
 routeCommand : Model -> Route -> Cmd msg
 routeCommand m r =
-    case r of
-        Page _ ->
-            getAllCmd m.peerId m.relayId m.knownPeers
-
-        Peer _ ->
-            getAllCmd m.peerId m.relayId m.knownPeers
-
-        Blueprint _ ->
-            getAllCmd m.peerId m.relayId m.knownPeers
-
-        Module _ ->
-            getAllCmd m.peerId m.relayId m.knownPeers
+    if m.isInitialized then Cmd.none else getAllCmd m.peerId m.relayId m.knownPeers
diff --git a/src/Update.elm b/src/Update.elm
index f96c7d9..e3deb89 100644
--- a/src/Update.elm
+++ b/src/Update.elm
@@ -16,7 +16,6 @@ limitations under the License.
 
 -}
 
-import AirScripts.GetAll
 import Blueprints.Model exposing (Blueprint)
 import Browser
 import Browser.Navigation as Nav
@@ -26,7 +25,6 @@ import Model exposing (Model, PeerData, emptyPeerData)
 import Modules.Model exposing (Module)
 import Msg exposing (..)
 import Nodes.Model exposing (Identify)
-import Port exposing (sendAir)
 import Route exposing (getAllCmd)
 import Service.Model exposing (Service)
 import Url
@@ -46,7 +44,7 @@ update msg model =
                 cmd =
                     Route.routeCommand model route
             in
-            ( { model | url = url, page = route, toggledInterface = Nothing }, cmd )
+            ( { model | url = url, isInitialized = True, page = route, toggledInterface = Nothing }, cmd )
 
         LinkClicked urlRequest ->
             case urlRequest of