github/elm-mdl
1
0
Fork 0
mirror of https://github.com/correl/elm-mdl.git synced 2024-11-23 11:09:51 +00:00
Code Issues Projects Releases Packages Wiki Activity

Colors

Browse source
This commit is contained in:
Søren Debois 2016-04-12 15:36:48 +02:00
parent 3fd16b2d9c
commit 3bc0d91d4a
1 changed files with 27 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
demo/Demo/Page.elm
View file

@ -1,7 +1,7 @@
module Demo.Page module Demo.Page
( demo, package, mds, mdl ( demo, package, mds, mdl
, fromMDL, fromMDS , fromMDL, fromMDS
, body , body1, body2
) )
where where
@ -119,8 +119,8 @@ fab url =
-- BODY -- BODY
body : String -> String -> Html -> List (String, String) -> List Html -> Html body1 : String -> String -> Html -> List (String, String) -> List Html -> Html
body t srcUrl contents links demo = body1 t srcUrl contents links demo =
div [] div []
[ title t [ title t
, grid [ noSpacing ] , 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
)
]
]