NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-19 11:41:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Adds Style control

Browse Source
This commit is contained in:
Tessa Kelly 2022-03-23 11:10:18 -07:00
parent 235cec46ea
commit 067e4f8155
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
styleguide-app/Examples/Heading.elm
View File

@ -88,9 +88,29 @@ init =
ControlExtra.list ControlExtra.list
|> CommonControls.css { moduleName = "Heading", use = Heading.css } |> CommonControls.css { moduleName = "Heading", use = Heading.css }
|> ControlExtra.optionalBoolListItem "error" ( "Heading.error", Heading.error ) |> ControlExtra.optionalBoolListItem "error" ( "Heading.error", Heading.error )
|> ControlExtra.optionalListItem "style" controlStyle
} }
controlStyle : Control ( String, Heading.Attribute msg )
controlStyle =
[ ( "Top", Heading.Top )
, ( "Tagline", Heading.Tagline )
, ( "Subhead", Heading.Subhead )
, ( "Small", Heading.Small )
]
|> List.map
(\( name, val ) ->
( name
, Control.value
( "Heading.style Heading." ++ name
, Heading.style val
)
)
)
|> Control.choice
type alias Settings = type alias Settings =
List ( String, Heading.Attribute Msg ) List ( String, Heading.Attribute Msg )