Drezil/neat
1
0
Fork 0
Code Issues 5 Pull Requests Projects Releases Wiki Activity

further beautification. looks a bit like NEAT1 now

Browse Source
This commit is contained in:
Stefan Dresselhaus
2015-08-09 03:17:36 +02:00
parent 44653b7504
commit fc3432b834
3 changed files with 50 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Handler/Wallet.hs
View File

@ -32,13 +32,13 @@ getWalletDetailsR hrs days = loginOrDo (\(uid,user) -> do
<a href="@{WalletDetailsR hrs' days}" .btn .active role="button">#{cap}
$else
<a href="@{WalletDetailsR hrs' days}" .btn role="button">#{cap}
<table .table .table-striped .table-condensed .small>
<table .table .table-condensed .small>
<tr>
<th .text-center>Time
<th .text-center>P/C
<th .text-center>B/S
<th .text-center>Item
<th .text-center>Quantity
<th .text-center>##
<th .text-center>ISK/Item
<th .text-center>ISK total
<th .text-center>ISK profit
@ -60,29 +60,29 @@ getWalletDetailsR hrs days = loginOrDo (\(uid,user) -> do
$else
<td .buyTransaction .text-center>B
<td>#{transactionTypeName t}
<td .text-right>#{transactionQuantity t}
<td .text-right>#{prettyISK $ transactionPriceCents t}
<td .text-right>#{prettyISK $ transactionQuantity t * transactionPriceCents t}
<td .numeric>#{transactionQuantity t}
<td .numeric>#{prettyISK $ transactionPriceCents t}
<td .numeric>#{prettyISK $ transactionQuantity t * transactionPriceCents t}
$maybe profit <- transRealProfit t
$if (&&) (transactionTransIsSell t) (profit > 0)
<td .text-right .profit>
<td .numeric .profit>
#{prettyISK $ profit}
$elseif (&&) (transactionTransIsSell t) (profit < 0)
<td .text-right .loss>
<td .numeric .loss>
#{prettyISK $ profit}
$elseif (transactionTransIsSell t)
<td .text-right .buyfee>
$elseif not (transactionTransIsSell t)
<td .numeric .buyfee>
#{prettyISK $ profit}
$else
<td .text-right>
<td ..numeric>
#{prettyISK $ profit}
<td .text-right>
<td .numeric>
#{profitPercent profit t}%
$nothing
<td>
-
<td>
<td>
<td .duration>
$maybe secs <- transactionSecondsToSell t
#{showSecsToSell secs}
$nothing