module Taskell.UI.Draw.Mode where

import ClassyPrelude

import Taskell.Events.State.Types.Mode (InsertType (..), ModalType (..), Mode (..))
import Taskell.UI.Draw.Field           (Field)

getField :: Mode -> Maybe Field
getField :: Mode -> Maybe Field
getField (Insert InsertType
_ InsertMode
_ Field
f) = Field -> Maybe Field
forall a. a -> Maybe a
Just Field
f
getField Mode
_              = Maybe Field
forall a. Maybe a
Nothing

editingTitle :: Mode -> Bool
editingTitle :: Mode -> Bool
editingTitle (Insert InsertType
IList InsertMode
_ Field
_) = Bool
True
editingTitle Mode
_                  = Bool
False

moveTo :: Mode -> Bool
moveTo :: Mode -> Bool
moveTo (Modal ModalType
MoveTo) = Bool
True
moveTo Mode
_              = Bool
False