diff options
| author | Joris | 2018-01-28 12:13:09 +0100 |
|---|---|---|
| committer | Joris | 2018-06-11 12:28:29 +0200 |
| commit | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (patch) | |
| tree | daf8cfb7b0a16b2fce65848fc0ca2831f33a0701 /server/src/Design/Form.hs | |
| parent | ab17b6339d16970c3845ec4f153bfeed89eae728 (diff) | |
| download | budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2 budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip | |
WIP
Diffstat (limited to 'server/src/Design/Form.hs')
| -rw-r--r-- | server/src/Design/Form.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/server/src/Design/Form.hs b/server/src/Design/Form.hs index be0e74f..0385cb4 100644 --- a/server/src/Design/Form.hs +++ b/server/src/Design/Form.hs @@ -53,8 +53,10 @@ design = do right (px 0) top (px 27) zIndex inputZIndex - hover & "svg path" ? do - "fill" -: "rgb(220, 220, 220)" + svg ? "path" ? + ("fill" -: Color.toString Color.silver) + hover & svg ? "path" ? + ("fill" -: Color.toString (Color.silver -. 25)) (input # ".filled" |+ label) <> (input # focus |+ label) ? do top (px 0) @@ -108,18 +110,18 @@ design = do fontWeight bold ".selectInput" ? do + marginBottom (em 1) label ? do display block marginBottom (px 10) fontSize (pct 80) select ? do + width (pct 100) 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) + option ? sym2 padding (px 5) (px 8) ".error" & do select ? borderColor Color.chestnutRose ".errorMessage" ? do |