From 0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 22:51:12 +0200
Subject: Add a remove icon to empty a input text field

---
 src/server/Design/Form.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/server/Design/Form.hs')

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)
-- 
cgit v1.2.3