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

Wrap selections

Browse Source
This commit is contained in:
Tessa Kelly 2022-08-25 16:33:50 -07:00
parent 6f2c3d1550
commit 34e4b553ba
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/TabsInternal/V2.elm
View File

@ -199,12 +199,22 @@ keyEvents { focusAndSelect, tabs } thisTab =
goToNextTab : Maybe msg
goToNextTab =
List.foldl findAdjacentTab ( False, Nothing ) activeTabs
List.foldl findAdjacentTab
( False
, -- if there is no adjacent tab, default to the first tab
Maybe.map onFocus (List.head activeTabs)
)
activeTabs
|> Tuple.second
goToPreviousTab : Maybe msg
goToPreviousTab =
List.foldr findAdjacentTab ( False, Nothing ) activeTabs
List.foldr findAdjacentTab
( False
, -- if there is no adjacent tab, default to the last tab
Maybe.map onFocus (List.head (List.reverse activeTabs))
)
activeTabs
|> Tuple.second
in
List.filterMap identity