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

{-# LANGUAGE OverloadedLists #-}

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

import ClassyPrelude
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