{-# OPTIONS -fno-warn-type-defaults #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-}

-- | Bootstrap layout elements. See
-- <http://getbootstrap.com/2.3.2/scaffolding.html> for more
-- information.

module Lucid.Bootstrap
   (
    -- * Containers
    container_
   ,containerFluid_
   -- * Rows
   ,row_
   ,rowFluid_
   -- * Spans
   ,span1_
   ,span2_
   ,span3_
   ,span4_
   ,span5_
   ,span6_
   ,span7_
   ,span8_
   ,span9_
   ,span10_
   ,span11_
   ,span12_)
  where

import Lucid.Base
import Lucid.Html5

-- | A grid container.
container_ :: Term arg result => arg -> result
container_ :: arg -> result
container_ =
  Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" container "]

-- | A fluid grid container.
containerFluid_ :: Term arg result => arg -> result
containerFluid_ :: arg -> result
containerFluid_ =
  Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" container-fluid "]

-- | A grid row.
row_ :: Term arg result => arg -> result
row_ :: arg -> result
row_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" row "]

-- | A fluid grid row.
rowFluid_ :: Term arg result => arg -> result
rowFluid_ :: arg -> result
rowFluid_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" row-fluid "]

-- | A span of 1 column.
span1_ :: Term arg result => arg -> result
span1_ :: arg -> result
span1_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span1 "]

-- | A span of 2 columns.
span2_ :: Term arg result => arg -> result
span2_ :: arg -> result
span2_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span2 "]

-- | A span of 3 columns.
span3_ :: Term arg result => arg -> result
span3_ :: arg -> result
span3_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span3 "]

-- | A span of 4 columns.
span4_ :: Term arg result => arg -> result
span4_ :: arg -> result
span4_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span4 "]

-- | A span of 5 columns.
span5_ :: Term arg result => arg -> result
span5_ :: arg -> result
span5_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span5 "]

-- | A span of 6 columns.
span6_ :: Term arg result => arg -> result
span6_ :: arg -> result
span6_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span6 "]

-- | A span of 7 columns.
span7_ :: Term arg result => arg -> result
span7_ :: arg -> result
span7_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span7 "]

-- | A span of 8 columns.
span8_ :: Term arg result => arg -> result
span8_ :: arg -> result
span8_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span8 "]

-- | A span of 9 columns.
span9_ :: Term arg result => arg -> result
span9_ :: arg -> result
span9_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span9 "]

-- | A span of 10 columns.
span10_ :: Term arg result => arg -> result
span10_ :: arg -> result
span10_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span10 "]

-- | A span of 11 columns.
span11_ :: Term arg result => arg -> result
span11_ :: arg -> result
span11_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span11 "]

-- | A span of 12 columns.
span12_ :: Term arg result => arg -> result
span12_ :: arg -> result
span12_ = Text -> [Attribute] -> arg -> result
forall arg result.
Term arg result =>
Text -> [Attribute] -> arg -> result
termWith Text
"div" [Text -> Attribute
class_ Text
" span12 "]