From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/server/Design/Form.hs | 36 +++++++++++++++++++++++++++++++++---
 1 file changed, 33 insertions(+), 3 deletions(-)

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

diff --git a/src/server/Design/Form.hs b/src/server/Design/Form.hs
index 3043125..ebb8ac8 100644
--- a/src/server/Design/Form.hs
+++ b/src/server/Design/Form.hs
@@ -18,6 +18,10 @@ design = do
   let inputPaddingBottom = 3
   let inputZIndex = 1
 
+  label ? do
+    cursor pointer
+    color Color.silver
+
   ".textInput" ? do
     position relative
     marginBottom (em 1.5)
@@ -44,7 +48,6 @@ design = do
       position absolute
       top (px inputTop)
       left (px 0)
-      color Color.silver
       transition "all" (sec 0.2) easeIn (sec 0)
 
     button ? do
@@ -68,6 +71,15 @@ design = do
         color Color.chestnutRose
         fontSize (pct 80)
 
+  ".colorInput" ? do
+    display flex
+    alignItems center
+    marginBottom (em 1.5)
+
+    input ? do
+      borderColor transparent
+      backgroundColor transparent
+
   ".radioGroup" ? do
     position relative
     marginBottom (em 2)
@@ -90,11 +102,29 @@ design = do
         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
+
+  ".selectInput" ? do
+    label ? do
+      display block
+      marginBottom (px 10)
+      fontSize (pct 80)
+    select ? do
+      backgroundColor Color.white
+      border solid (px 1) Color.silver
+      sym borderRadius (px 3)
+      sym2 padding (px 5) (px 8)
+      option ? do
+        firstChild & display none
+        sym2 padding (px 5) (px 8)
+    ".error" & do
+      select ? borderColor Color.chestnutRose
+      ".errorMessage" ? do
+        color Color.chestnutRose
+        fontSize (pct 80)
+        marginTop (em 0.5)
-- 
cgit v1.2.3