aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design/SignIn.hs
blob: c319d1e9a8acc47986641bc839ceace915614b86 (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
37
38
39
40
{-# LANGUAGE OverloadedStrings #-}

module Design.SignIn
  ( design
  ) where

import Clay

import Design.Color as C
import Design.Helper
import Design.Constants (focusLighten)

design :: Css
design = do

  form ? do
    let inputHeight = 50
    width (px 500)
    marginTop (px 100)
    marginLeft auto
    marginRight auto

    input ? do
      defaultInput inputHeight
      display block
      width (pct 100)
      marginBottom (px 10)

    button ? do
      iconButton C.blue C.white (px inputHeight) focusLighten
      display block
      width (pct 100)
      fontSize (em 1.2)
      ".waitingServer" & ("cursor" -: "not-allowed")

  ".result" ? do
    marginTop (px 40)
    textAlign (alignSide sideCenter)
    ".success" ? color C.green
    ".error" ? color C.redError