vimus-0.1.0: src/Command/Type.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Command.Type (
  module Command.Type
, CompletionFunction
, noCompletion
) where

import           Control.Applicative

import           Vimus
import           Input (CompletionFunction, noCompletion)
import           Command.Parser

newtype Action a = Action {unAction :: Parser a}
  deriving (Functor, Applicative, Alternative)

type VimusAction = Action (Vimus ())

newtype Help = Help {unHelp :: [String]}

data ArgumentInfo = ArgumentInfo {
  argumentInfoName   :: String
, argumentInfoComplete :: CompletionFunction
}

-- | A command.
data Command = Command {
  commandName        :: String
, commandHelp_       :: Help
, commandArguments   :: [ArgumentInfo]
, commandAction      :: VimusAction
}