1{-# OPTIONS -fno-warn-type-defaults #-} 2{-# LANGUAGE OverloadedStrings #-} 3{-# LANGUAGE ExtendedDefaultRules #-} 4 5-- | Bootstrap layout elements. See 6-- <http://getbootstrap.com/2.3.2/scaffolding.html> for more 7-- information. 8 9module Lucid.Bootstrap 10 ( 11 -- * Containers 12 container_ 13 ,containerFluid_ 14 -- * Rows 15 ,row_ 16 ,rowFluid_ 17 -- * Spans 18 ,span1_ 19 ,span2_ 20 ,span3_ 21 ,span4_ 22 ,span5_ 23 ,span6_ 24 ,span7_ 25 ,span8_ 26 ,span9_ 27 ,span10_ 28 ,span11_ 29 ,span12_) 30 where 31 32import Lucid.Base 33import Lucid.Html5 34 35-- | A grid container. 36container_ :: Term arg result => arg -> result 37container_ = 38 termWith "div" [class_ " container "] 39 40-- | A fluid grid container. 41containerFluid_ :: Term arg result => arg -> result 42containerFluid_ = 43 termWith "div" [class_ " container-fluid "] 44 45-- | A grid row. 46row_ :: Term arg result => arg -> result 47row_ = termWith "div" [class_ " row "] 48 49-- | A fluid grid row. 50rowFluid_ :: Term arg result => arg -> result 51rowFluid_ = termWith "div" [class_ " row-fluid "] 52 53-- | A span of 1 column. 54span1_ :: Term arg result => arg -> result 55span1_ = termWith "div" [class_ " span1 "] 56 57-- | A span of 2 columns. 58span2_ :: Term arg result => arg -> result 59span2_ = termWith "div" [class_ " span2 "] 60 61-- | A span of 3 columns. 62span3_ :: Term arg result => arg -> result 63span3_ = termWith "div" [class_ " span3 "] 64 65-- | A span of 4 columns. 66span4_ :: Term arg result => arg -> result 67span4_ = termWith "div" [class_ " span4 "] 68 69-- | A span of 5 columns. 70span5_ :: Term arg result => arg -> result 71span5_ = termWith "div" [class_ " span5 "] 72 73-- | A span of 6 columns. 74span6_ :: Term arg result => arg -> result 75span6_ = termWith "div" [class_ " span6 "] 76 77-- | A span of 7 columns. 78span7_ :: Term arg result => arg -> result 79span7_ = termWith "div" [class_ " span7 "] 80 81-- | A span of 8 columns. 82span8_ :: Term arg result => arg -> result 83span8_ = termWith "div" [class_ " span8 "] 84 85-- | A span of 9 columns. 86span9_ :: Term arg result => arg -> result 87span9_ = termWith "div" [class_ " span9 "] 88 89-- | A span of 10 columns. 90span10_ :: Term arg result => arg -> result 91span10_ = termWith "div" [class_ " span10 "] 92 93-- | A span of 11 columns. 94span11_ :: Term arg result => arg -> result 95span11_ = termWith "div" [class_ " span11 "] 96 97-- | A span of 12 columns. 98span12_ :: Term arg result => arg -> result 99span12_ = termWith "div" [class_ " span12 "] 100