{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedLists #-}
module Events.Actions.Normal
( event
, events
) where
import ClassyPrelude hiding (delete)
import Data.Char (isDigit)
import Events.Actions.Types as A (ActionType (..))
import Events.State
import Events.State.Modal.Detail (editDue, showDetail)
import Events.State.Modal.Due (showDue)
import Events.State.Types (Stateful)
import Graphics.Vty.Input.Events
import IO.Keyboard.Types (Actions)
events :: Actions
events
=
[ (A.Quit, quit)
, (A.Undo, (write =<<) . undo)
, (A.Redo, (write =<<) . redo)
, (A.Search, searchMode)
, (A.Help, showHelp)
, (A.Due, showDue)
, (A.Previous, previous)
, (A.Next, next)
, (A.Left, left)
, (A.Right, right)
, (A.Bottom, bottom)
, (A.New, (startCreate =<<) . (newItem =<<) . store)
, (A.NewAbove, (startCreate =<<) . (above =<<) . store)
, (A.NewBelow, (startCreate =<<) . (below =<<) . store)
, (A.Duplicate, (next =<<) . (write =<<) . (duplicate =<<) . store)
, (A.Edit, (startEdit =<<) . store)
, (A.Clear, (startEdit =<<) . (clearItem =<<) . store)
, (A.Delete, (write =<<) . (delete =<<) . store)
, (A.Detail, showDetail)
, (A.DueDate, (editDue =<<) . (store =<<) . showDetail)
, (A.ClearDate, (write =<<) . (clearDate =<<) . store)
, (A.MoveUp, (write =<<) . (up =<<) . store)
, (A.MoveDown, (write =<<) . (down =<<) . store)
, (A.MoveLeft, (write =<<) . (bottom =<<) . (left =<<) . (moveLeft =<<) . store)
, (A.MoveRight, (write =<<) . (bottom =<<) . (right =<<) . (moveRight =<<) . store)
, (A.Complete, (write =<<) . (moveToLast =<<) . (clearDate =<<) . store)
, (A.MoveMenu, showMoveTo)
, (A.ListNew, (createListStart =<<) . store)
, (A.ListEdit, (editListStart =<<) . store)
, (A.ListDelete, (write =<<) . (deleteCurrentList =<<) . store)
, (A.ListRight, (write =<<) . (listRight =<<) . store)
, (A.ListLeft, (write =<<) . (listLeft =<<) . store)
]
event :: Event -> Stateful
event (EvKey (KChar n) _)
| isDigit n = selectList n
| otherwise = pure
event (EvKey KEsc _) = clearSearch
event _ = pure