{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn.Home.Header
  ( design
  ) where

import Clay

import Design.Constants

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

design :: Css
design = do
  marginBottom blockMarginBottom
  marginLeft (pct blockPercentMargin)
  marginRight (pct blockPercentMargin)

  ".exceedingPayers" ? do
    backgroundColor Color.mossGreen
    padding (px 10) (px 10) (px 10) (px 10)
    borderRadius (px 5) (px 5) (px 5) (px 5)
    color Color.white
    marginBottom (em 1)

    ".exceedingPayer:not(:last-child)::after" ? content (stringContent ", ")

    ".userName" ? marginRight (px 5)

  ".searchLine" ? do
    marginBottom (em 1)
    form ? do
      display inlineBlock

      ".textInput" ? do
        display inlineBlock
        marginRight (px 30)
        marginBottom (px 0)

      ".radioGroup" ? do
        display inlineBlock
        marginBottom (px 0)
        ".title" ? display none

    ".addPayment" ? do
      Helper.defaultButton Color.chestnutRose Color.white (px 47) Constants.focusLighten
      float floatRight

  ".infos" ? do
    lineHeight (px Constants.inputHeight)

    ".partition" ? do
      color Color.dustyGray
      marginLeft (px 15)