blob: a565ee4b69f856e7daa2a74e5d851a839307f9cf (
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
|
{-# LANGUAGE OverloadedStrings #-}
module Design.SignIn
( signInDesign
) where
import Clay
import Design.Color as C
import Design.Helper
import Design.Constants
signInDesign :: Css
signInDesign =
".signIn" ? do
button ? do
display block
margin (em 5) auto (em 2) auto
iconButton C.blue C.white (em 2.5) focusLighten
fontSize (em 1.5)
position relative
".waitingServer" & ("cursor" -: "not-allowed")
".error" ? do
textAlign (alignSide sideCenter)
color C.redError
|
