module Design.View.Payment.HeaderInfos
  ( design
  ) where

import           Data.Monoid      ((<>))

import           Clay

import qualified Design.Color     as Color
import qualified Design.Constants as Constants
import qualified Design.Media     as Media

design :: Css
design = do

  ".g-PaymentHeaderInfos" ? do
    Media.desktop $ marginBottom (em 2)
    Media.mobileTablet $ marginBottom (em 1)
    marginLeft (pct Constants.blockPercentMargin)
    marginRight (pct Constants.blockPercentMargin)

  ".g-PaymentHeaderInfos__ExceedingPayers" ? do
    backgroundColor Color.mossGreen
    borderRadius (px 5) (px 5) (px 5) (px 5)
    color Color.white
    lineHeight (px Constants.inputHeight)
    paddingLeft (px 10)
    paddingRight (px 10)
    marginBottom (em 1)

    Media.mobile $ do
      textAlign (alignSide sideCenter)

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

    ".userName" ? marginRight (px 8)

  ".g-PaymentHeaderInfos__Repartition" ? do
    Media.tabletDesktop $ lineHeight (px Constants.inputHeight)
    Media.mobile $ lineHeight (px 25)

    ".total" <> ".partition" ? do
      Media.mobileTablet $ display block
      Media.mobile $ do
        fontSize (pct 90)
        textAlign (alignSide sideCenter)

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