remove clutter in account block transactions (closes #249)

graphsense · Apr 4, 2024 · 2c48610 · 2c48610
1 parent e205f25
commit 2c48610
Show file tree

Hide file tree

Showing 2 changed files with 56 additions and 1 deletion.
diff --git a/src/View/Graph/Browser.elm b/src/View/Graph/Browser.elm
@@ -1755,7 +1755,7 @@ browseBlockTable vc gc block table =
             table_ vc cm (TxsUtxoTable.config vc coinCode) t
 
         BlockTxsAccountTable t ->
-            table_ vc cm (TxsAccountTable.config vc coinCode) t
+            table_ vc cm (TxsAccountTable.blockConfig vc coinCode) t
 
 
 browseTxUtxoTable : View.Config -> Graph.Config -> Loadable String Api.Data.TxUtxo -> TxUtxoTable -> Html Msg

diff --git a/src/View/Graph/Table/TxsAccountTable.elm b/src/View/Graph/Table/TxsAccountTable.elm
@@ -19,6 +19,61 @@ import Util.View exposing (longIdentifier)
 import View.Graph.Table as T exposing (customizations)
 
 
+blockConfig : View.Config -> String -> Table.Config Api.Data.TxAccount Msg
+blockConfig vc coinCode =
+    let
+        toMsg field data =
+            UserClickedAddressInTable
+                { currency = coinCode
+                , address = field data
+                }
+    in
+    Table.customConfig
+        { toId = .txHash
+        , toMsg = TableNewState
+        , columns =
+            [ T.htmlColumn vc
+                titleTx
+                .txHash
+                (\data ->
+                    longIdentifier vc data.txHash
+                        |> List.singleton
+                        |> a
+                            [ Css.View.link vc |> css
+                            , Route.txRoute
+                                { currency = coinCode
+                                , txHash = data.txHash
+                                , table = Nothing
+                                , tokenTxId = data.tokenTxId
+                                }
+                                |> Route.graphRoute
+                                |> toUrl
+                                |> href
+                            ]
+                        |> List.singleton
+                )
+            ]
+                ++ [ (if vc.locale.currency /= Model.Currency.Coin then
+                        T.valueColumn
+
+                      else
+                        T.valueColumnWithoutCode
+                     )
+                        vc
+                        (\x -> asset coinCode x.currency)
+                        "Value"
+                        .value
+                   ]
+                ++ [ T.stringColumn vc "Currency" (.currency >> String.toUpper)
+                   , toMsg .fromAddress
+                        |> T.addressColumn vc titleSendingAddress .fromAddress
+                   , toMsg .toAddress
+                        |> T.addressColumn vc titleReceivingAddress .toAddress
+                   ]
+        , customizations = customizations vc
+        }
+
+
 config : View.Config -> String -> Table.Config Api.Data.TxAccount Msg
 config vc coinCode =
     let