taskell-1.11.3: src/Taskell/Events/Actions/Modal/Help.hs

{-# LANGUAGE OverloadedLists #-}

module Taskell.Events.Actions.Modal.Help
    ( event
    , events
    ) where

import Graphics.Vty.Input.Events
import Taskell.Events.Actions.Types as A (ActionType(..))
import Taskell.Events.State
import Taskell.Events.State.Modal.Help (moveHelpMenuDown, moveHelpMenuUp)
import Taskell.Events.State.Types (Stateful)
import Taskell.IO.Keyboard.Types (Actions)

events :: Actions
events =
    [ (A.Quit, quit)
    , (A.MoveUp, moveHelpMenuUp)
    , (A.Next, moveHelpMenuUp)
    , (A.MoveDown, moveHelpMenuDown)
    , (A.Previous, moveHelpMenuDown)
    ]

event :: Event -> Stateful
event _ = normalMode