aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design/View/SignIn.hs
blob: 214e66361ac87cf0cbda4c415fe9c0ec07321d00 (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
41
42
{-# LANGUAGE OverloadedStrings #-}

module Design.View.SignIn
  ( design
  ) where

import Clay
import Data.Monoid ((<>))

import qualified Design.Color as Color
import qualified Design.Helper as Helper
import qualified Design.Constants as Constants

design :: Css
design = do
  let inputHeight = 50
  width (px 500)
  marginTop (px 100)
  marginLeft auto
  marginRight auto

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

  button ? 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