{-# 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