This commit is contained in:
Søren Debois 2016-04-12 15:36:48 +02:00
parent 3fd16b2d9c
commit 3bc0d91d4a

View file

@ -1,7 +1,7 @@
module Demo.Page
( demo, package, mds, mdl
, fromMDL, fromMDS
, body
, body1, body2
)
where
@ -119,8 +119,8 @@ fab url =
-- BODY
body : String -> String -> Html -> List (String, String) -> List Html -> Html
body t srcUrl contents links demo =
body1 : String -> String -> Html -> List (String, String) -> List Html -> Html
body1 t srcUrl contents links demo =
div []
[ title t
, grid [ noSpacing ]
@ -144,5 +144,29 @@ body t srcUrl contents links demo =
]
body2 : String -> String -> Html -> List (String, String) -> List Html -> Html
body2 t srcUrl contents links demo =
div []
[ title t
, grid [ noSpacing ]
[ cell
[ size All 4, size Desktop 6 ]
[ div [] contents
, div
[]
( references <| ("Demo source", srcUrl) :: links )
]
, cell
[ size All 4, size Desktop 6 ]
( demoTitle
:: demo
)
]
]