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

Adds example code for Text examples

Browse Source
This commit is contained in:
Tessa Kelly 2022-03-23 10:46:12 -07:00
parent f6807eb02e
commit a1fc268d5e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
styleguide-app/Examples/Text.elm
View File

@ -40,7 +40,7 @@ example =
\state ->
let
attributes =
Control.currentValue state.control
List.map Tuple.second (Control.currentValue state.control)
in
[ Text.caption [ Text.plaintext "NOTE: When using these styles, please read the documentation in the Elm module about \"Understanding spacing\"" ]
, ControlView.view
@ -55,7 +55,7 @@ example =
"Text."
++ name
++ "\n [ "
++ "\n TODO"
++ String.join "\n , " (List.map Tuple.first settings)
++ "\n ]"
}
in
@ -102,7 +102,7 @@ viewExamples examples attributes =
{-| -}
type alias State =
{ control : Control (List (Text.Attribute Msg))
{ control : Control (List ( String, Text.Attribute Msg ))
}
@ -115,7 +115,6 @@ init =
|> ControlExtra.optionalBoolListItem "noBreak"
( "Text.noBreak True", Text.noBreak True )
|> CommonControls.css { moduleName = "Text", use = Text.css }
|> Control.map (List.map Tuple.second)
}
@ -132,7 +131,7 @@ controlContent =
{-| -}
type Msg
= UpdateControl (Control (List (Text.Attribute Msg)))
= UpdateControl (Control (List ( String, Text.Attribute Msg )))
{-| -}