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