From 0dc740d8f64b31ff49b7cfb51ddc2dde7b5c121e Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jun 2016 13:22:47 +0200
Subject: Confirm before payment deletion

---
 src/server/Design/Form.hs                |  9 ++++++++-
 src/server/Design/LoggedIn/Home/Table.hs | 16 +++-------------
 2 files changed, 11 insertions(+), 14 deletions(-)

(limited to 'src/server/Design')

diff --git a/src/server/Design/Form.hs b/src/server/Design/Form.hs
index 00de12d..612759b 100644
--- a/src/server/Design/Form.hs
+++ b/src/server/Design/Form.hs
@@ -82,9 +82,16 @@ design = do
         marginLeft (px 10)
         marginRight (px 10)
 
-      input ? display none
+      input ? do
+        opacity 0
+        width (px 30)
+        margin (px 0) (px (-15)) (px 0) (px (-15))
+
       label ? cursor pointer
 
+      "input:focus + label" ? do
+        textDecoration underline
+
       "input:checked + label" ? do
         color Color.chestnutRose
         fontWeight bold
diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs
index 2594f25..0085e4a 100644
--- a/src/server/Design/LoggedIn/Home/Table.hs
+++ b/src/server/Design/LoggedIn/Home/Table.hs
@@ -11,8 +11,7 @@ import qualified Clay.Display as D
 
 import Design.Color as Color
 import qualified Design.Media as Media
-import Design.Constants
-import Design.Helper
+import Design.Constants as Constants
 
 design :: Css
 design = do
@@ -41,9 +40,6 @@ design = do
 
       nthChild "odd" & do
         backgroundColor Color.wildSand
-      ".edition" & do
-        backgroundColor Color.negroni
-        ".delete" |> button ? visibility visible
 
     ".cell" ? do
       display tableCell
@@ -66,11 +62,5 @@ design = do
         position relative
         width (pct 3)
         textAlign (alignSide sideCenter)
-        button ? do
-          defaultButton Color.chestnutRose Color.white (px rowHeightPx) focusLighten
-          borderRadius (px 0) (px 0) (px 0) (px 0)
-          position absolute
-          top (px 0)
-          right (px 0)
-          width (pct 100)
-          visibility hidden
+        button # hover ? "svg path" ? do
+          "fill" -: "rgb(227, 112, 106)"
-- 
cgit v1.2.3