Add a remove icon to empty a input text field

1 files changed, 8 insertions, 1 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)