{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn.Pages
  ( pagesDesign
  ) where

import Clay

import Design.Color as C
import Design.Helper
import Design.Constants

pagesDesign :: Css
pagesDesign =

  ".pages" ? do
    padding (px 30) (px 30) (px 30) (px 30)
    textAlign (alignSide (sideCenter))
    clearFix

    ".page" ? do
      display inlineBlock
      border solid (px 2) C.darkGrey
      color C.darkGrey
      borderRadius radius radius radius radius
      marginRight (px 10)
      let h = 50
      paddingLeft (px 10)
      paddingRight (px 10)
      height (px h)
      lineHeight (px h)
      textAlign (alignSide (sideCenter))
      fontWeight bold

      ":not(.current)" & cursor pointer

      ".current" & do
        borderColor C.red
        color C.red