module Hoodle.ProgType where
import Data.Version
import System.Console.CmdArgs
import Paths_hoodle
data Hoodle = Test { xojfile :: Maybe FilePath
}
deriving (Show,Data,Typeable)
programName :: String
programName = "Hoodle"
programVersion :: String
programVersion = showVersion version
programInfo :: String
programInfo = programName ++ " version " ++ programVersion
programAbout :: String
programAbout = "A pen notetaking program written in haskell"
programCopyright :: String
programCopyright = "(C) Ian-Woo Kim 2011-2013"
test :: Hoodle
test = Test { xojfile = def &= typ "FILENAME" &= args
} &= auto
mode :: Hoodle
mode = modes [test]
&= versionArg [ explicit, name "version", name "V", summary programInfo]
&= summary (programInfo ++ ", " ++ programCopyright)
&= help programAbout
&= helpArg [explicit, name "help", name "h"]
&= program programName