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

Use a list for the aria-controls elements

Browse Source
This commit is contained in:
Tessa Kelly 2021-12-09 13:17:29 -08:00
parent 603deb90c7
commit 6e88fc906b
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/Nri/Ui/RadioButton/V3.elm
View File

@ -301,18 +301,19 @@ view { label, name, value, valueToString, selectedValue } attributes =
|> Maybe.withDefault True
|> not
( disclosureId, disclosureElement ) =
( disclosureIds, disclosureElements ) =
case ( config.disclosedContent, isChecked ) of
( [], _ ) ->
( Nothing, text "" )
( [], [] )
( _, False ) ->
( Nothing, text "" )
( [], [] )
( (_ :: _) as childNodes, True ) ->
( Just (idValue ++ "-disclosure-content")
, span [ Attributes.id (idValue ++ "-disclosure-content") ]
childNodes
( _, True ) ->
( List.indexedMap
(\index _ -> (idValue ++ "-disclosure-content-") ++ String.fromInt index)
config.disclosedContent
, config.disclosedContent
)
isInError =
@ -338,7 +339,7 @@ view { label, name, value, valueToString, selectedValue } attributes =
, Css.batch config.containerCss
]
]
[ radio name
([ radio name
stringValue
isChecked
([ Attributes.id idValue
@ -351,7 +352,7 @@ view { label, name, value, valueToString, selectedValue } attributes =
_ ->
Extra.none
, class "Nri-RadioButton-HiddenRadioInput"
, maybeAttr Aria.controls disclosureId
, Attributes.attribute "aria-controls" (String.join " " disclosureIds)
, css
[ position absolute
, top (px 4)
@ -372,7 +373,7 @@ view { label, name, value, valueToString, selectedValue } attributes =
]
++ List.map (Attributes.map never) config.custom
)
, Html.label
, Html.label
[ for idValue
, classList
[ ( "Nri-RadioButton-RadioButton", True )
@ -448,9 +449,10 @@ view { label, name, value, valueToString, selectedValue } attributes =
text ""
]
]
, disclosureElement
, InputErrorAndGuidanceInternal.view idValue config
]
, InputErrorAndGuidanceInternal.view idValue config
]
++ disclosureElements
)
premiumPennant : msg -> Html msg