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

Use findPreviousAndNextSlide on viewWithCombinedControls

Browse Source
This commit is contained in:
Arthur Bernardi Jordão 2023-09-05 11:37:45 -03:00
parent f192973511
commit e7effdb8d4
No known key found for this signature in database
GPG Key ID: D3F3D2482162BFCF
1 changed files with 28 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
src/Nri/Ui/Carousel/V2.elm
View File

@ -285,57 +285,39 @@ viewWithCombinedControls config =
{ controls, slides, containerAttributes } =
viewWithTabControls config
-- let's de duplicate this!
currentSlideIndex =
List.Extra.findIndex (\p -> p.id == config.selected) config.slides
{ viewPreviousButton, viewNextButton } =
case findPreviousAndNextSlides .id config of
Nothing ->
{ viewPreviousButton = text "", viewNextButton = text "" }
previousSlide =
currentSlideIndex
|> Maybe.andThen
(\index ->
List.Extra.getAt
(if index - 1 >= 0 then
index - 1
else
List.length config.slides - 1
)
config.slides
)
nextSlide =
currentSlideIndex
|> Maybe.andThen
(\index ->
List.Extra.getAt
(if index + 1 < List.length config.slides then
index + 1
else
0
)
config.slides
)
Just { previousSlide, nextSlide } ->
{ viewPreviousButton =
viewSlideChangeButton
{ name = config.previousButton.name
, icon = config.previousButton.icon
, attributes = config.previousButton.attributes
, targetSlideId = previousSlide.id
, targetSlideLabel = previousSlide.accessibleLabel
, carouselLabel = config.accessibleLabel
, announceAndSelect = config.announceAndSelect
}
, viewNextButton =
viewSlideChangeButton
{ name = config.nextButton.name
, icon = config.nextButton.icon
, attributes = config.nextButton.attributes
, targetSlideId = nextSlide.id
, targetSlideLabel = nextSlide.accessibleLabel
, carouselLabel = config.accessibleLabel
, announceAndSelect = config.announceAndSelect
}
}
in
{ tabControls = controls
, slides = slides
, containerAttributes = containerAttributes
, viewPreviousButton =
ClickableSvg.button config.previousButton.name
config.previousButton.icon
(config.previousButton.attributes
++ (Maybe.map (\p -> ClickableSvg.onClick (config.focusAndSelect { select = p.id, focus = Just p.idString })) previousSlide
|> Maybe.Extra.toList
)
)
, viewNextButton =
ClickableSvg.button config.nextButton.name
config.nextButton.icon
(config.nextButton.attributes
++ (Maybe.map (\p -> ClickableSvg.onClick (config.focusAndSelect { select = p.id, focus = Just p.idString })) nextSlide
|> Maybe.Extra.toList
)
)
, viewPreviousButton = viewPreviousButton
, viewNextButton = viewNextButton
}