Show item position in detail view

This commit is contained in:
Eike Kettner
2021-02-17 22:18:22 +01:00
parent a79fa6f74a
commit e07d732193
3 changed files with 51 additions and 11 deletions

View File

@ -227,16 +227,7 @@ searchTypeString st =
itemNav : String -> Model -> ItemNav
itemNav id model =
let
prev =
Comp.ItemCardList.prevItem model.itemListModel id
next =
Comp.ItemCardList.nextItem model.itemListModel id
in
{ prev = Maybe.map .id prev
, next = Maybe.map .id next
}
Data.ItemNav.fromList model.itemListModel.results id
doSearchCmd : SearchParam -> Model -> Cmd Msg