From c23ec2aed46b3e766cffbf3662fe529426ad1b84 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 13 Aug 2015 23:13:59 +0200
Subject: Payment input rounded and payment columns fixed percentagewise

---
 src/client/View/Payments/Table.elm | 12 ++++++------
 src/server/Controller/Payment.hs   |  2 --
 src/server/Design/Global.hs        | 12 ++++++++++--
 3 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/src/client/View/Payments/Table.elm b/src/client/View/Payments/Table.elm
index b92735a..847c620 100644
--- a/src/client/View/Payments/Table.elm
+++ b/src/client/View/Payments/Table.elm
@@ -20,10 +20,10 @@ paymentsTable payments =
     []
     ([ tr
         []
-        [ th [] [ renderIcon "user" ]
-        , th [] [ renderIcon "shopping-cart" ]
-        , th [] [ renderIcon "euro" ]
-        , th [] [ renderIcon "calendar" ]
+        [ th [ class "category" ] [ renderIcon "shopping-cart" ]
+        , th [ class "cost" ] [ renderIcon "euro" ]
+        , th [ class "user" ] [ renderIcon "user" ]
+        , th [ class "date" ] [ renderIcon "calendar" ]
         ]
     ] ++ (paymentLines payments))
 
@@ -38,9 +38,9 @@ paymentLine : Payment -> Html
 paymentLine payment =
   tr
     []
-    [ td [] [ text payment.id ]
-    , td [] [ text payment.name ]
+    [ td [] [ text payment.name ]
     , td [] [ text ((toString payment.cost) ++ " €") ]
+    , td [] [ text payment.userName ]
     , td [] [ text (renderDate payment.creation) ]
     ]
 
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 219206a..141aed0 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -11,8 +11,6 @@ import Control.Monad.IO.Class (liftIO)
 
 import Data.Text (Text)
 
-import Database.Persist.Sqlite (unSqlBackendKey)
-
 import qualified Secure
 
 import Model.Database
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 54533c2..bdf4cdb 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -73,7 +73,10 @@ global = do
           fontSize (px 22)
           verticalAlign middle
           cursor cursorText
-        input ? defaultInput inputHeight
+          borderRadius (px 0) (px 3) (px 3) (px 0)
+        input ? do
+          defaultInput inputHeight
+          borderRadius (px 3) (px 0) (px 0) (px 3)
         "input:focus + label" ? backgroundColor C.grey
 
       ".name" ? do
@@ -111,6 +114,11 @@ global = do
         fontSize (px iconFontSize)
         lineHeight (px 70)
 
+        ".category" & width (pct 40)
+        ".cost" & width (pct 20)
+        ".user" & width (pct 20)
+        ".date" & width (pct 20)
+
       tr ? do
         fontSize (px 20)
         lineHeight (px 60)
@@ -162,7 +170,7 @@ defaultInput :: Integer -> Css
 defaultInput inputHeight = do
   height (px inputHeight)
   padding (px 10) (px 10) (px 10) (px 10)
-  borderRadius (px 0) (px 0) (px 0) (px 0)
+  borderRadius (px 3) (px 3) (px 3) (px 3)
   border solid (px 1) C.darkgrey
   focus & borderColor C.grey
   verticalAlign middle
-- 
cgit v1.2.3