NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2025-01-05 05:07:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

🎨 tidy up the summarization logic

Browse Source
This commit is contained in:
Tessa Kelly 2019-04-08 17:07:46 -07:00
parent df7f333b17
commit f86e907317
1 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/Nri/Ui/SlideModal/V1.elm
View File

@ -95,28 +95,16 @@ summarize (State state) panels =
in
case state of
Just current ->
case List.drop (current - 1) panels of
first :: second :: rest ->
if current > 0 then
Just
{ current = second
, previousPanel = Just first
, upcoming = List.drop (current + 1) indexedPanels
, previous = List.take current indexedPanels
}
else
Just
{ current = first
, previousPanel = Nothing
, upcoming = List.drop (current + 1) indexedPanels
, previous = List.take current indexedPanels
}
first :: [] ->
case List.drop current panels of
currentPanel :: rest ->
Just
{ current = first
, previousPanel = Nothing
{ current = currentPanel
, previousPanel =
if current > 0 then
List.head (List.drop (current - 1) panels)
else
Nothing
, upcoming = List.drop (current + 1) indexedPanels
, previous = List.take current indexedPanels
}