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:
Nicole Dresselhaus 2015-08-09 03:17:36 +02:00
parent 44653b7504
commit fc3432b834
3 changed files with 50 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Foundation.hs
View File

@ -66,6 +66,7 @@ instance Yesod App where
pc <- widgetToPageContent $ do
addStylesheet $ StaticR css_bootstrap_css
addStylesheet $ StaticR css_neat_css
addScript $ StaticR js_jquery_js
addScript $ StaticR js_bootstrap_js
$(widgetFile "default-layout")

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

37
static/css/neat.css Normal file
View File

@ -0,0 +1,37 @@
.corpTransaction {
background-color: #3333cc;
}
.personalTransaction {
background-color: #ffffcc;
}
.sellTransaction {
background-color: #33cc33;
}
.buyTransaction {
background-color: #ffcccc;
}
.profit {
background-color: #88ff88;
}
.loss {
background-color: #ff8888;
}
.buyfee {
background-color: #ffe8e8;
}
.numeric {
text-align: right;
font-family: monospace;
}
.duration {
text-align: right;
font-family: monospace;
}