studio: Parameterise app title via State. #344

Author: epost

halogen-tx-browser/src/Statebox/Browser/Main.purs

@@ -0,0 +1,35 @@
+module Statebox.Browser.Main where
+
+import Prelude
+import Effect (Effect)
+import Effect.Class (liftEffect)
+import Effect.Console (log)
+import Halogen as H
+import Halogen.Aff (awaitBody, runHalogenAff)
+import Halogen.VDom.Driver (runUI)
+import Routing.Hash as Routing
+
+import View.Studio as Studio
+import View.Studio (Query(LoadTransactionsThenView))
+import View.Studio.Model.Route (RouteF(Home))
+
+import ExampleData as Ex
+
+main :: Effect Unit
+main = runHalogenAff do
+  urlHash <- liftEffect Routing.getHash
+  liftEffect $ log $ "tx browser: transaction hash to be visited: " <> urlHash
+  body <- awaitBody
+  io <- runUI Studio.ui initialState body
+  _ <- io.query $ H.tell (LoadTransactionsThenView Ex.endpointUrl urlHash)
+  pure io
+  where
+    initialState :: Studio.Input
+    initialState =
+      { title:       "Statebox Transaction Browser"
+      , msg:         "Welcome to the Statebox Transaction Browser!"
+      , projects:    mempty
+      , hashSpace:   mempty
+      , apiUrl:      Ex.endpointUrl
+      , route:       Home
+      }

studio/src/Main.purs

@@ -26,7 +26,8 @@ main = runHalogenAff do
   where
     initialState :: Studio.Input
     initialState =
-      { msg:         "Welcome to Statebox Studio!"
+      { title:       "Statebox Studio"
+      , msg:         "Welcome to Statebox Studio!"
       , projects:    Ex.projects
       , hashSpace:   mempty
       , apiUrl:      Ex.endpointUrl

studio/src/View/Studio/Model.purs

@@ -52,6 +52,7 @@ type State =
   { route       :: Route
   , projects    :: Array Project
   , hashSpace   :: AdjacencySpace HashStr TxSum -- ^ Hashes and their (tree of) links.
+  , title       :: String
   , msg         :: String
   , apiUrl      :: URL
   }

studio/src/View/Studio/View.purs

@@ -60,7 +60,7 @@ data VoidF a
 render :: ∀ m. MonadAff m => State -> ComponentHTML Action ChildSlots m
 render state =
   div []
-    [ navBar
+    [ navBar state.title
     , div [ classes [ ClassName "flex" ] ]
           [ div [ classes [ ClassName "w-1/6", ClassName "h-12" ] ]
                 [ slot _objectTree unit (TreeMenu.menuComponent (_ == state.route)) (stateMenu state) ((\(TreeMenu.Clicked menuNodeId route) -> ShowDiagramNodeContent route) >>> Just) ]
@@ -141,13 +141,14 @@ routeBreadcrumbs route =
   where
     crumb str = li [] [ a [ href "#" ] [ text str ] ]
 
-navBar :: ∀ m. ComponentHTML Action ChildSlots m
-navBar =
+navBar :: ∀ m. String -> ComponentHTML Action ChildSlots m
+navBar title =
   nav [ classes $ ClassName <$> [ "css-navbar", "flex", "items-center", "justify-between", "flex-wrap", "bg-purple-darker", "p-6" ] ]
-  [ div [ classes $ ClassName <$> [ "flex", "items-center", "flex-no-shrink", "text-white", "mr-6" ] ]
-            [ span [ classes [ ClassName "css-logo-statebox" ] ] []
+      [ div [ classes $ ClassName <$> [ "flex", "items-center", "flex-no-shrink", "text-white", "mr-6" ] ]
+            [ span [ classes [ ClassName "css-logo-statebox" ] ]
+                   []
             , span [ classes $ ClassName <$> [ "navbar-item", "ml-4", "font-semibold", "text-xl" ] ]
-                   [ text "Statebox Studio" ]
+                   [ text title ]
             ]
       , menu [ "Home"    /\ Just Home
              , "Project" /\ Nothing