convert global options (still not used)

This commit is contained in:
Joey Hess 2015-07-10 00:55:53 -04:00
parent 820b92abab
commit adb9fddfdd
6 changed files with 102 additions and 68 deletions

View file

@ -6,7 +6,7 @@
-}
module CmdLine.Option (
commonOptions,
commonGlobalOptions,
flagOption,
fieldOption,
optionName,
@ -15,35 +15,46 @@ module CmdLine.Option (
OptDescr(..),
) where
import Options.Applicative
import System.Console.GetOpt
import Common.Annex
import CmdLine.Usage
import qualified Annex
import Types.Messages
import Types.DesktopNotify
import CmdLine.Usage
import Types.DeferredParse
-- Options accepted by both git-annex and git-annex-shell sub-commands.
commonOptions :: [Option]
commonOptions =
[ Option [] ["force"] (NoArg (setforce True))
"allow actions that may lose annexed data"
, Option ['F'] ["fast"] (NoArg (setfast True))
"avoid slow operations"
, Option ['q'] ["quiet"] (NoArg (Annex.setOutput QuietOutput))
"avoid verbose output"
, Option ['v'] ["verbose"] (NoArg (Annex.setOutput NormalOutput))
"allow verbose output (default)"
, Option ['d'] ["debug"] (NoArg setdebug)
"show debug messages"
, Option [] ["no-debug"] (NoArg unsetdebug)
"don't show debug messages"
, Option ['b'] ["backend"] (ReqArg setforcebackend paramName)
"specify key-value backend to use"
, Option [] ["notify-finish"] (NoArg (setdesktopnotify mkNotifyFinish))
"show desktop notification after transfer finishes"
, Option [] ["notify-start"] (NoArg (setdesktopnotify mkNotifyStart))
"show desktop notification after transfer completes"
-- Global options accepted by both git-annex and git-annex-shell sub-commands.
commonGlobalOptions :: Parser GlobalSetter
commonGlobalOptions = globalSetters
[ globalFlag (setforce True)
( long "force"
<> help "allow actions that may lose annexed data"
)
, globalFlag (setfast True)
( long "fast" <> short 'F'
<> help "avoid slow operations"
)
, globalFlag (Annex.setOutput QuietOutput)
( long "quiet" <> short 'q'
<> help "avoid verbose output"
)
, globalFlag (Annex.setOutput NormalOutput)
( long "verbose" <> short 'v'
<> help "allow verbose output (default)"
)
, globalFlag setdebug
( long "debug" <> short 'd'
<> help "show debug messages"
)
, globalFlag unsetdebug
( long "no-debug"
<> help "don't show debug messages"
)
, globalSetter setforcebackend $ strOption
( long "backend" <> short 'b' <> metavar paramName
<> help "specify key-value backend to use"
)
]
where
setforce v = Annex.changeState $ \s -> s { Annex.force = v }
@ -51,17 +62,16 @@ commonOptions =
setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v }
setdebug = Annex.changeGitConfig $ \c -> c { annexDebug = True }
unsetdebug = Annex.changeGitConfig $ \c -> c { annexDebug = False }
setdesktopnotify v = Annex.changeState $ \s -> s { Annex.desktopnotify = Annex.desktopnotify s <> v }
{- An option that sets a flag. -}
flagOption :: String -> String -> String -> Option
flagOption short opt description =
Option short [opt] (NoArg (Annex.setFlag opt)) description
flagOption shortv opt description =
Option shortv [opt] (NoArg (Annex.setFlag opt)) description
{- An option that sets a field. -}
fieldOption :: String -> String -> String -> String -> Option
fieldOption short opt paramdesc description =
Option short [opt] (ReqArg (Annex.setField opt) paramdesc) description
fieldOption shortv opt paramdesc description =
Option shortv [opt] (ReqArg (Annex.setField opt) paramdesc) description
{- The flag or field name used for an option. -}
optionName :: Option -> String