From fc3432b834e255160bbf496af216961c66519875 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sun, 9 Aug 2015 03:17:36 +0200
Subject: [PATCH] further beautification. looks a bit like NEAT1 now

---
 Foundation.hs       |  1 +
 Handler/Wallet.hs   | 24 ++++++++++++------------
 static/css/neat.css | 37 +++++++++++++++++++++++++++++++++++++
 3 files changed, 50 insertions(+), 12 deletions(-)
 create mode 100644 static/css/neat.css

diff --git a/Foundation.hs b/Foundation.hs
index e9090fe..a48fe76 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -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")
diff --git a/Handler/Wallet.hs b/Handler/Wallet.hs
index 5146fbf..325aecd 100644
--- a/Handler/Wallet.hs
+++ b/Handler/Wallet.hs
@@ -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
diff --git a/static/css/neat.css b/static/css/neat.css
new file mode 100644
index 0000000..f611d54
--- /dev/null
+++ b/static/css/neat.css
@@ -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;
+}