module UI.Help.Keybindings where
import Graphics.Vty (Event (..), Key (..))
import UI.Actions
import Types
helpKeybindings :: [Keybinding 'Help 'ScrollingHelpView]
helpKeybindings =
[ Keybinding (EvKey KEsc []) (noop `chain'` (focus :: Action 'Threads 'ListOfThreads AppState) `chain` continue)
, Keybinding (EvKey (KChar 'q') []) (noop `chain'` (focus :: Action 'Threads 'ListOfThreads AppState) `chain` continue)
, Keybinding (EvKey KBS []) (scrollPageUp `chain` continue)
, Keybinding (EvKey (KChar ' ') []) (scrollPageDown `chain` continue)
, Keybinding (EvKey KBS []) (scrollPageUp `chain` continue)
]