Begin setting up example code

This commit is contained in:
Tessa Kelly 2022-03-23 10:38:15 -07:00
parent ca4f7935ef
commit 4b6ac208ee

View File

@ -49,7 +49,24 @@ example =
, settings = state.control
, toExampleCode =
\settings ->
[]
let
toExampleCode name =
{ sectionName = name
, code =
"Text."
++ name
++ "\n [ "
++ "\n TODO"
++ "\n ]"
}
in
[ toExampleCode "mediumBody"
, toExampleCode "smallBody"
, toExampleCode "smallBodyGray"
, toExampleCode "caption"
, toExampleCode "ugMediumBody"
, toExampleCode "ugSmallBody"
]
}
, Heading.h2 [ Heading.style Heading.Top ] [ Html.text "Paragraph styles" ]
, viewExamples