One payment is clickable and set to orange for the moment

2 files changed, 18 insertions, 8 deletions

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index 97ad3d2..f4223a2 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -11,6 +11,9 @@ red = C.red
 brown :: C.Color
 brown = C.brown
 
+orange :: C.Color
+orange = C.orange
+
 green :: C.Color
 green = C.green
 
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index bdf4cdb..b2b6744 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -10,9 +10,9 @@ import Prelude
 import Data.Monoid ((<>))
 
 import Clay
+import qualified Clay.Display as D
 
 import Data.Text.Lazy (Text)
-import qualified Clay.Display as D
 
 import Design.Color as C
 
@@ -103,27 +103,34 @@ global = do
         top (px (inputHeight + 10))
         left (px 0)
 
-    table ? do
+    ".table" ? do
+      display D.table
       width (pct 100)
       textAlign (alignSide (sideCenter))
       "border-spacing" -: "10 px"
 
-      th ? do
+      ".header" <> ".row" ? display tableRow
+
+      ".header" ? do
         backgroundColor C.brown
         color C.white
         fontSize (px iconFontSize)
         lineHeight (px 70)
 
+      ".row" ? do
+        fontSize (px 20)
+        cursor pointer
+        lineHeight (px 60)
+        nthChild "odd" & backgroundColor C.lightGrey
+        ".edition" & backgroundColor C.orange
+
+      ".cell" ? do
+        display tableCell
         ".category" & width (pct 40)
         ".cost" & width (pct 20)
         ".user" & width (pct 20)
         ".date" & width (pct 20)
 
-      tr ? do
-        fontSize (px 20)
-        lineHeight (px 60)
-        nthChild "odd" & backgroundColor C.lightGrey
-
   ".signIn" ? do
 
     form ? do