blob: a39276e7a11568e1e9d675491e37001fd3f05ce2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
module Design.View.SignIn
( design
) where
import Clay
import Data.Monoid ((<>))
import Prelude hiding (rem)
import qualified Design.Color as Color
import qualified Design.Constants as Constants
import qualified Design.Helper as Helper
design :: Css
design = do
let inputHeight = 50
maxWidth (px 550)
sym2 padding (rem 0) (rem 2)
marginTop (px 100)
marginLeft auto
marginRight auto
button # ".validate" ? do
Helper.button Color.gothic Color.white (px inputHeight) Constants.focusLighten
display flex
alignItems center
justifyContent center
width (pct 100)
fontSize (em 1.2)
svg ? "path" ? ("fill" -: "white")
".success" <> ".error" ? do
marginTop (px 40)
textAlign (alignSide sideCenter)
".success" ? color Color.mossGreen
".error" ? color Color.chestnutRose
|
