Add a remove icon to empty a input text field

3 files changed, 9 insertions, 16 deletions

diff --git a/src/server/Design/Form.hs b/src/server/Design/Form.hs
index c2537f1..00de12d 100644
--- a/src/server/Design/Form.hs
+++ b/src/server/Design/Form.hs
@@ -16,6 +16,7 @@ design = do
   let inputHeight = 30
   let inputTop = 22
   let inputPaddingBottom = 3
+  let inputZIndex = 1
 
   ".textInput" ? do
     position relative
@@ -25,7 +26,7 @@ design = do
 
     input ? do
       position relative
-      zIndex 1
+      zIndex inputZIndex
       backgroundColor transparent
       paddingBottom (px inputPaddingBottom)
       borderStyle none
@@ -45,6 +46,12 @@ design = do
       color Color.silver
       transition "all" (sec 0.2) easeIn (sec 0)
 
+    button ? do
+      position absolute
+      right (px 0)
+      top (px 27)
+      zIndex inputZIndex
+
     (input # ".filled" |+ label) <> (input # focus |+ label) ? do
       top (px 0)
       fontSize (pct 80)
diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs
index a229132..2594f25 100644
--- a/src/server/Design/LoggedIn/Home/Table.hs
+++ b/src/server/Design/LoggedIn/Home/Table.hs
@@ -38,20 +38,6 @@ 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
-        ".cell:first-child::before" ? width (px 5)
 
       nthChild "odd" & do
         backgroundColor Color.wildSand
diff --git a/src/server/Design/LoggedIn/Income.hs b/src/server/Design/LoggedIn/Income.hs
index bebd136..84ae521 100644
--- a/src/server/Design/LoggedIn/Income.hs
+++ b/src/server/Design/LoggedIn/Income.hs
@@ -21,7 +21,7 @@ design = do
     "margin-bottom" -: "4vh"
     ".textInput" ? marginRight (px 30)
 
-    button ? do
+    button # ".add" ? do
       Helper.defaultButton Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
       marginTop (px 3)