PLT-7515 add container around contract list and apply position absolu…

…te on app navbar
input-output-hk · Sep 21, 2023 · 021097c · 021097c
1 parent b125af3
commit 021097c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Component/App.purs b/src/Component/App.purs
@@ -281,8 +281,8 @@ mkApp = do
         , landingPage { setWalletInfo: setWalletInfo <<< Just }
         ]
       _ -> provider walletInfoCtx ((/\) <$> possibleWalletInfo <*> possibleWalletContext) $
-        [ DOM.nav { className: "navbar navbar-expand-sm navbar-light" } $
-            DOM.div { className: "container-fluid" }
+        [ DOM.div {} $ DOM.nav { className: "navbar navbar-expand-sm navbar-light position-absolute w-100" } $
+            DOM.div { className: "container-fluid d-flex justify-content-between" }
               [ DOM.a { href: "#", className: "navbar-brand" }
                   [ svgImg { src: marloweLogoUrl } ]
               , DOM.div { className: "navbar-collapse justify-content-end text-end" } $

diff --git a/src/Component/ContractList.purs b/src/Component/ContractList.purs
@@ -317,7 +317,7 @@ mkContractList = do
           }
 
         Nothing, _ -> React.fragment
-          [ DOM.div { className: "row p-4 mt-5" } do
+          [ DOM.div { className: "container pt-5" } $ DOM.div { className: "row pt-5" } do
               let
                 disabled = isNothing connectedWallet
                 newContractButton = buttonWithIcon
@@ -437,7 +437,7 @@ mkContractList = do
                             $ unsafeIcon "clipboard-plus ms-1 d-inline-block"
                         ]
 
-                  [ table { striped: Table.striped.boolean true, hover: true }
+                  [ DOM.div { className: "container" } $ DOM.div { className: "row" } $ table { striped: Table.striped.boolean true, hover: true }
                       [ DOM.thead {} do
                           let
                             orderingTh = Table.orderingHeader ordering updateOrdering
@@ -561,7 +561,7 @@ mkContractList = do
                               , tdCentered [ DOOM.text $ intercalate ", " tags ]
                               , tdCentered ([ DOOM.text "Placeholder - CREATED" ] :: Array JSX) -- FIXME: Withdrawals should be still possible
                               ]
-                            NotSyncedUpdatedContract { contractInfo }-> do
+                            NotSyncedUpdatedContract { contractInfo } -> do
                               [ tdInstant createdAt
                               , tdInstant $ updatedAt <|> createdAt
                               , do