{-# LANGUAGE ExtendedDefaultRules #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -Wno-type-defaults #-}

module Clay.Extra.Grid
  ( module Clay.Grid

    -- $gridIntro
  , gridTemplateAreas
  , gridTemplateRows
  )
where

import Clay.Grid
import Clay.Property (noCommas)
import Clay.Size (Size)
import Clay.Stylesheet (Css, key)
import Data.Text (Text)
import Prelude

gridTemplateAreas :: [Text] -> Css
gridTemplateAreas :: [Text] -> Css
gridTemplateAreas = Key Value -> Value -> Css
forall a. Val a => Key a -> a -> Css
key Key Value
"grid-template-areas" (Value -> Css) -> ([Text] -> Value) -> [Text] -> Css
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Value
forall a. Val a => [a] -> Value
noCommas

gridTemplateRows :: [Size a] -> Css
gridTemplateRows :: forall a. [Size a] -> Css
gridTemplateRows = Key Value -> Value -> Css
forall a. Val a => Key a -> a -> Css
key Key Value
"grid-template-rows" (Value -> Css) -> ([Size a] -> Value) -> [Size a] -> Css
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Size a] -> Value
forall a. Val a => [a] -> Value
noCommas