Skip to content

Commit

Permalink
Make the table configuration sticky
Browse files Browse the repository at this point in the history
  • Loading branch information
@paolino
paolino committed Oct 11, 2024
1 parent 137a9e8 commit 04aa5cc
Show file tree
Hide file tree
Showing 3 changed files with 181 additions and 177 deletions.
14 changes: 8 additions & 6 deletions lib/ui/src/Cardano/Wallet/UI/Deposit/Handlers/Addresses/Transactions.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,13 +20,13 @@ import Cardano.Wallet.Deposit.Pure
, TxSummary (..)
, ValueTransfer (ValueTransfer)
)
import Cardano.Wallet.Deposit.Read
( Slot
)
import Cardano.Wallet.Deposit.REST
( WalletResource
, customerAddress
)
import Cardano.Wallet.Deposit.Read
( Slot
)
import Cardano.Wallet.Read
( Coin
, SlotNo (..)
Expand Down Expand Up @@ -216,7 +216,7 @@ valueTransferG g = do

txSummaryG :: UTCTime -> Int -> [TxSummary]
txSummaryG now c = runStateGen_ pureGen $ \g -> do
ns <- uniformRM (1, 10) g
ns <- uniformRM (1, 200) g
replicateM ns $ do
txId <- txIdR g
cp <- chainPointR g
Expand All @@ -243,6 +243,8 @@ txSummaryG now c = runStateGen_ pureGen $ \g -> do
Nothing -> error "chainPointR: invalid hash"
txIdR :: StatefulGen g m => g -> m Read.TxId
txIdR g = do
ls <- fmap (concatMap $ replicate 8)
$ replicateM 8 $ hexOfInt <$> uniformRM (0, 15) g
ls <-
fmap (concatMap $ replicate 8)
$ replicateM 8
$ hexOfInt <$> uniformRM (0, 15) g
pure $ unsafeMkTxId ls
165 changes: 83 additions & 82 deletions lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Pages/Addresses/Transactions.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -242,76 +242,75 @@ yearsH now origin = do

transactionsViewControls :: UTCTime -> UTCTime -> Html ()
transactionsViewControls now origin =
div_ [class_ "d-flex justify-content-end"] $ do
div_ [class_ "collapse", id_ "columns-control"] $ do
record Nothing Auto NotStriped $ do
simpleField "UTC"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-utc"
, hxTrigger_ "change"
, name_ "utc"
, value_ ""
, checked_
]
simpleField "Slot"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-slot"
, name_ "slot"
, value_ ""
]
simpleField "Received"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-received"
, name_ "received"
, value_ ""
, checked_
]
simpleField "Spent"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-spent"
, name_ "spent"
, value_ ""
]
simpleField "Sorting"
$ div_
[ class_ "d-flex justify-content-end align-items-center"
]
$ select_
[ class_ "form-select w-auto m-1 p-1"
, id_ "select-sorting"
, name_ "sorting"
, style_ "background-image: none"
]
$ do
option_ [selected_ "", value_ "desc"] "Descending"
option_ [value_ "asc"] "Ascending"
simpleField "From"
$ div_
[ class_ "d-flex justify-content-end align-items-center"
]
$ do
yearsH now origin
monthsH now
div_ [class_ "collapse", id_ "columns-control"] $ do
record Nothing Auto NotStriped $ do
simpleField "UTC"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-utc"
, hxTrigger_ "change"
, name_ "utc"
, value_ ""
, checked_
]
simpleField "Slot"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-slot"
, name_ "slot"
, value_ ""
]
simpleField "Received"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-received"
, name_ "received"
, value_ ""
, checked_
]
simpleField "Spent"
$ div_
[ class_ "d-flex justify-content-end align-items-center form-check"
]
$ input_
[ class_ "form-check-input"
, type_ "checkbox"
, id_ "toggle-spent"
, name_ "spent"
, value_ ""
]
simpleField "Sorting"
$ div_
[ class_ "d-flex justify-content-end align-items-center"
]
$ select_
[ class_ "form-select w-auto m-1 p-1"
, id_ "select-sorting"
, name_ "sorting"
, style_ "background-image: none"
]
$ do
option_ [selected_ "", value_ "desc"] "Descending"
option_ [value_ "asc"] "Ascending"
simpleField "From"
$ div_
[ class_ "d-flex justify-content-end align-items-center"
]
$ do
yearsH now origin
monthsH now

transactionsElementH :: UTCTime -> UTCTime -> Html ()
transactionsElementH now origin = do
Expand All @@ -333,18 +332,20 @@ transactionsElementH now origin = do
]
$ do
let configure =
div_ [class_ "d-flex justify-content-end"] $ do
button_
[ class_ "btn"
, type_ "button"
, data_ "bs-toggle" "collapse"
, data_ "bs-target" "#columns-control"
]
$ div_
$ do
i_ [class_ "bi bi-gear"] mempty
box "Transactions" configure $ do
transactionsViewControls now origin
div_ [class_ "d-flex justify-content-end sticky-top"] $ do
let toggle = button_
[ class_ "btn"
, type_ "button"
, data_ "bs-toggle" "collapse"
, data_ "bs-target" "#columns-control"
]
$ div_
$ do
i_ [class_ "bi bi-gear"] mempty
box mempty toggle
$ transactionsViewControls now origin
box "Transactions" mempty $ do
configure
div_ [class_ "row g-0"] $ do
div_
[ class_ "col"
Expand Down
Loading

0 comments on commit 04aa5cc

Please sign in to comment.