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

SegmentedControl.V7 uses aria-current attribute

Browse Source
This commit is contained in:
Aaron VonderHaar 2019-06-04 15:14:02 -07:00
parent 1714a0f065
commit 0c4e79b2ee
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/Nri/Ui/SegmentedControl/V7.elm
View File

@ -11,7 +11,7 @@ import Accessibility.Styled.Role as Role
import Css exposing (..)
import EventExtras.Styled as EventExtras
import Html.Styled as Html exposing (Html)
import Html.Styled.Attributes as Attr exposing (css, href)
import Html.Styled.Attributes as Attr exposing (attribute, css, href)
import Html.Styled.Events as Events
import Nri.Ui
import Nri.Ui.Colors.Extra exposing (withAlpha)
@ -102,22 +102,25 @@ viewTab maybeToUrl config option =
children
in
element
[ Role.tab
, css sharedTabStyles
, css <|
if option.value == config.selected then
focusedTabStyles
(List.concat
[ [ Role.tab
, css sharedTabStyles
]
, if option.value == config.selected then
[ css focusedTabStyles
, attribute "aria-current" "page"
]
else
unFocusedTabStyles
, css <|
case config.width of
else
[ css unFocusedTabStyles ]
, case config.width of
FitContent ->
[]
FillContainer ->
expandingTabStyles
]
[ css expandingTabStyles ]
]
)
[ case option.icon of
Nothing ->
Html.text ""