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

Dogfood TextInput

Browse Source
This commit is contained in:
Tessa Kelly 2024-01-29 14:23:07 -07:00
parent aeed96a692
commit 116318abbf
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
component-catalog/src/Debug/Control.elm
View File

@ -28,8 +28,10 @@ Create interactive controls for complex data structures.
import Html exposing (Html)
import Html.Attributes
import Html.Events
import Html.Styled exposing (toUnstyled)
import Json.Decode
import Nri.Ui.Html.Attributes.V2 exposing (safeIdWithPrefix)
import Nri.Ui.TextInput.V7 as TextInput
{-| An interactive control that produces a value `a`.
@ -150,22 +152,12 @@ string initialValue =
\() ->
SingleView <|
\labelText ->
let
id =
labelId labelText
in
Html.span []
[ Html.input
[ Html.Attributes.value initialValue
, Html.Events.onInput string
, Html.Attributes.id id
]
[]
, Html.label
[ Html.Attributes.for id
]
[ Html.text labelText ]
TextInput.view labelText
[ TextInput.id (labelId labelText)
, TextInput.text string
, TextInput.value initialValue
]
|> toUnstyled
}