From 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 23 Jun 2016 23:43:23 +0200
Subject: Use a dialog to add a payment

---
 src/server/Design/LoggedIn/Home/Table.hs | 36 +++++++++++---------------------
 1 file changed, 12 insertions(+), 24 deletions(-)

(limited to 'src/server/Design/LoggedIn/Home/Table.hs')

diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs
index b68f48f..538bc6d 100644
--- a/src/server/Design/LoggedIn/Home/Table.hs
+++ b/src/server/Design/LoggedIn/Home/Table.hs
@@ -33,32 +33,20 @@ design = do
   ".row" ? do
     fontSize (px 18)
     height (px rowHeightPx)
+    ".cell:first-child::before" ? do
+      display block
+      content (stringContent "")
+      position absolute
+      top (px 0)
+      left (px 0)
+      width (px 0)
+      height (px rowHeightPx)
+      backgroundColor Color.mossGreen
+      transition "width" (sec 0.3) ease (sec 0)
+      opacity (0.8)
 
     hover & do
-      let (borderW, triangleW, triangleH) = (4, 6, 8)
-      ".cell:first-child::before" ? do
-        display block
-        content (stringContent "")
-        position absolute
-        top (px 0)
-        left (px 0)
-
-        width (px borderW)
-        height (px rowHeightPx)
-        backgroundColor Color.mossGreen
-
-      ".cell:first-child::after" ? do
-        display block
-        content (stringContent "")
-        position absolute
-        top (px (rowHeightPx `Prelude.div` 2 - triangleH))
-        left (px borderW)
-
-        width (px 0)
-        height (px 0)
-        borderTop solid (px triangleH) transparent
-        borderBottom solid (px triangleH) transparent
-        borderLeft solid (px triangleW) Color.mossGreen
+      ".cell:first-child::before" ? width (px 5)
 
     nthChild "odd" & do
       backgroundColor Color.wildSand
-- 
cgit v1.2.3