Navigate items using keyboard

- previous/next item with `.,`
- confirm with `c`
- unconfirm with `u`
This commit is contained in:
Eike Kettner
2020-09-22 00:27:32 +02:00
parent dc0e05bc20
commit 60b8dc2134
10 changed files with 107 additions and 41 deletions

View File

@ -18,6 +18,7 @@ import Comp.FixedDropdown
import Comp.ItemCardList
import Comp.SearchMenu
import Data.Flags exposing (Flags)
import Data.ItemNav exposing (ItemNav)
import Data.Items
import Data.UiSettings exposing (UiSettings)
import Http
@ -119,7 +120,7 @@ searchTypeString st =
"Contents Only"
itemNav : String -> Model -> { prev : Maybe String, next : Maybe String }
itemNav : String -> Model -> ItemNav
itemNav id model =
let
prev =