Using dom buttons for payment delete

1 files changed, 11 insertions, 6 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 13b2d6a..53a73eb 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -168,18 +168,20 @@ global = do
       "border-spacing" -: "10 px"
 
       ".header" <> ".row" ? display tableRow
+      let headerHeight = (px 70)
+      let rowHeight = (px 60)
 
       ".header" ? do
         fontWeight bold
         backgroundColor C.red
         color C.white
         fontSize iconFontSize
-        lineHeight (px 70)
+        lineHeight headerHeight
 
       ".row" ? do
         fontSize (px 20)
         cursor pointer
-        lineHeight (px 60)
+        lineHeight rowHeight
         nthChild "odd" & backgroundColor C.lightGrey
         ".edition" & do
           backgroundColor C.paymentFocus
@@ -188,7 +190,7 @@ global = do
       ".cell" ? do
         display tableCell
         ".category" & width (pct 40)
-        ".cost" & width (pct 20)
+        ".cost" & width (pct 17)
         ".user" & width (pct 20)
         ".date" & do
           width (pct 20)
@@ -199,12 +201,15 @@ global = do
             ".shortDate" ? display none
             ".longDate" ? display inline
         ".delete" & do
-          width (px 10)
-          height (px 10)
+          width (pct 3)
+          height rowHeight
           textAlign (alignSide sideCenter)
           backgroundColor C.red
-          color C.white
           visibility hidden
+          button ? do
+            width (pct 100)
+            height (pct 100)
+            color C.white
 
     ".pages" ? do
       padding (px 30) (px 30) (px 30) (px 30)