Skip to content

Commit

Permalink
Some random embellishments
Browse files Browse the repository at this point in the history
  • Loading branch information
paolino committed Sep 20, 2024
1 parent c1c6a11 commit 759f73f
Show file tree
Hide file tree
Showing 5 changed files with 15 additions and 13 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -46,5 +46,5 @@ bodyH sseLink header body = do
div_ [class_ "container-fluid"] $ do
div_ [class_ "main"] body
div_
[class_ "footer"]
[class_ "footer mt-5"]
footerH
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,7 @@ footerH =
term
"footer_"
[ class_
"text-center text-muted bg-secondary"
"text-center text-muted bg-secondary fs-6"
]
$ do
div_ [class_ "row d-md-flex align-items-center"]
Expand Down
4 changes: 2 additions & 2 deletions lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Pages/Page.hs
Original file line number Diff line number Diff line change
Expand Up @@ -100,8 +100,8 @@ headerH :: Text -> Page -> Monad m => HtmlT m ()
headerH prefix p =
navigationH
prefix
[ (is _About p, aboutPageLink, "About")
[ (is _Wallet p, walletPageLink, "Wallet")
, (is _Network p, networkPageLink, "Network")
, (is _Settings p, settingsPageLink, "Settings")
, (is _Wallet p, walletPageLink, "Wallet")
, (is _About p, aboutPageLink, "About")
]
18 changes: 10 additions & 8 deletions lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Pages/Wallet.hs
Original file line number Diff line number Diff line change
Expand Up @@ -100,6 +100,7 @@ import Lucid
, p_
, section_
, type_
, value_
)
import Lucid.Html5
( max_
Expand Down Expand Up @@ -187,29 +188,30 @@ deleteWalletModalH =
walletElementH :: (BL.ByteString -> Html ()) -> WalletPresent -> Html ()
walletElementH alert = \case
WalletPresent (WalletPublicIdentity xpub customers) -> do
div_ [class_ "row mt-5 "] $ do
h5_ [class_ "text-center"] "Wallet Details"
div_ [class_ "col"] $ record $ do
simpleField "Public Key" $ pubKeyH xpub
simpleField "Customer Discovery" $ toHtml $ toText customers
div_ [class_ "row mt-5"] $ do
h5_ [class_ "text-center"] "Query Address"
div_ [class_ "col"] $ record $ do
simpleField "Customer number"
simpleField "Customer Number"
$ input_
[ type_ "number"
, hxTarget_ "#customer-address"
, class_ "form-control"
, hxTrigger_ "change"
, hxTrigger_ "load, change"
, hxPost_ $ linkText customerAddressLink
, min_ "0"
, max_ $ toText $ customers - 1
, step_ "1"
, name_ "customer"
, value_ "0"
]
simpleField "Address" $ div_ [id_ "customer-address"] mempty
div_ [class_ "row mt-5 "] $ do
h5_ [class_ "text-center"] "Wallet Details"
div_ [class_ "col"] $ record $ do
simpleField "Public Key" $ pubKeyH xpub
simpleField "Customer Discovery" $ toHtml $ toText customers
div_ [class_ "row mt-5"] $ do
h5_ [class_ "text-center"] "Actions"
h5_ [class_ "text-center"] "Administration"
div_ [class_ "col"] $ do
deleteWalletButtonH
div_ [id_ "delete-result"] mempty
Expand Down
2 changes: 1 addition & 1 deletion lib/ui/src/Cardano/Wallet/UI/Deposit/Server.hs
Original file line number Diff line number Diff line change
Expand Up @@ -154,7 +154,7 @@ serveUI
-> BlockchainSource
-> Server UI
serveUI tr ul env dbDir config _ nl bs =
ph About
ph Wallet
:<|> ph About
:<|> ph Network
:<|> ph Settings
Expand Down

0 comments on commit 759f73f

Please sign in to comment.