mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
git-annex/CmdLine/Usage.hs

107 lines
2.4 KiB
Haskell
Raw Normal View History

per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
{- git-annex usage messages
-
convert all commands to work with optparse-applicative Still no options though.
2015-07-08 19:08:02 +00:00
- Copyright 2010-2015 Joey Hess <id@joeyh.name>
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
-
- Licensed under the GNU GPL version 3 or higher.
-}
reorganize some files and imports
2014-01-26 20:25:55 +00:00
module CmdLine.Usage where
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
remove 163 lines of code without changing anything except imports
2016-01-20 20:36:33 +00:00
import Annex.Common
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
import Types.Command
Per-command usage messages.
2013-03-27 17:51:24 +00:00
usageMessage :: String -> String
usageMessage s = "Usage: " ++ s
make usage less terrifying Need to make `git annex help command` show the options for that command.
2013-03-25 16:41:57 +00:00
usage :: String -> [Command] -> String
let optparse-applicative handle the usage display when run w/o command or bad command Still generating the list of commands myself, to get it sorted into sections and with short synopses.
2015-07-09 15:49:52 +00:00
usage header cmds = unlines $ usageMessage header : commandList cmds
{- Commands listed by section, with breif usage and description. -}
commandList :: [Command] -> [String]
commandList cmds = concatMap go [minBound..]
more indentation. must stop.
2012-10-29 02:09:09 +00:00
where
make usage less terrifying Need to make `git annex help command` show the options for that command.
2013-03-25 16:41:57 +00:00
go section
| null cs = []
| otherwise =
[ ""
, descSection section ++ ":"
, ""
] ++ map cmdline cs
more indentation. must stop.
2012-10-29 02:09:09 +00:00
where
make usage less terrifying Need to make `git annex help command` show the options for that command.
2013-03-25 16:41:57 +00:00
cs = filter (\c -> cmdsection c == section) scmds
cmdline c = concat
[ cmdname c
, namepad (cmdname c)
, cmdparamdesc c
, descpad (cmdparamdesc c)
, cmddesc c
]
more indentation. must stop.
2012-10-29 02:09:09 +00:00
pad n s = replicate (n - length s) ' '
namepad = pad $ longest cmdname + 1
descpad = pad $ longest cmdparamdesc + 2
longest f = foldl max 0 $ map (length . f) cmds
scmds = sort cmds
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
let optparse-applicative handle the usage display when run w/o command or bad command Still generating the list of commands myself, to get it sorted into sections and with short synopses.
2015-07-09 15:49:52 +00:00
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
{- Descriptions of params used in usage messages. -}
paramPaths :: String
display cmdparamdesc in optparse-applicative usage messages Since optparse-applicative display "FOO" as "[FOO]", the paramOptional modifier which wrapped it in square brackets was removed from most places.
2015-07-08 17:39:11 +00:00
paramPaths = paramRepeating paramPath -- most often used
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramPath :: String
paramPath = "PATH"
paramKey :: String
paramKey = "KEY"
paramDesc :: String
paramDesc = "DESC"
paramUrl :: String
paramUrl = "URL"
paramNumber :: String
paramNumber = "NUMBER"
addunused: New command, the opposite of dropunused, it relinks unused content into the git repository.
2012-05-02 18:59:05 +00:00
paramNumRange :: String
paramNumRange = "NUM|RANGE"
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramRemote :: String
paramRemote = "REMOTE"
metadata: Add --get (from bremner)
2014-03-15 21:29:40 +00:00
paramField :: String
paramField = "FIELD"
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramGlob :: String
paramGlob = "GLOB"
paramName :: String
paramName = "NAME"
more command-specific options Made --from and --to command-specific options. Added generic storage for values of command-specific options, which allows removing some of the special case fields in AnnexState. (Also added generic storage for command-specific flags, although there are not yet any.) Note that this storage uses a Map, so repeatedly looking up the same value is slightly more expensive than looking up an AnnexState field. But, the value can be looked up once in the seek stage, transformed as necessary, and passed in a closure to the start stage, and this avoids that overhead. Still, I'm hesitant to use this for things like force or fast flags. It's probably best to reserve it for flags that are only used by a few commands, or options like --from and --to that it's important only be allowed to be used with commands that implement them, to avoid user confusion.
2012-01-06 07:06:25 +00:00
paramValue :: String
paramValue = "VALUE"
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramUUID :: String
paramUUID = "UUID"
paramType :: String
paramType = "TYPE"
log --after=date
2012-01-06 21:24:03 +00:00
paramDate :: String
log --before=date
2012-01-07 01:27:42 +00:00
paramDate = "DATE"
New --time-limit option, makes long git-annex commands stop after a specified amount of time.
2012-09-25 20:48:24 +00:00
paramTime :: String
paramTime = "TIME"
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramFormat :: String
paramFormat = "FORMAT"
addurl: Added a --file option Can be used to specify what file the url is added to. This can be used to override the default filename that is used when adding an url, which is based on the url. Or, when the file already exists, the url is recorded as another location of the file.
2012-02-08 19:35:18 +00:00
paramFile :: String
paramFile = "FILE"
findref: New command, like find but shows files in a specified git ref.
2014-04-17 22:41:24 +00:00
paramRef :: String
paramRef = "REF"
unused: Add --used option, which can specify a set of refs to consider used, rather than the default of considering all refs used.
2015-05-14 19:31:38 +00:00
paramRefSpec :: String
paramRefSpec = "REFSPEC"
group, ungroup: New commands to indicate groups of repositories.
2012-10-01 19:12:04 +00:00
paramGroup :: String
paramGroup = "GROUP"
content: New command line way to view and configure a repository's preferred content settings.
2013-05-25 16:44:58 +00:00
paramExpression :: String
paramExpression = "EXPR"
add --ingroup limit
2012-10-08 19:18:58 +00:00
paramSize :: String
paramSize = "SIZE"
webapp: New --listen= option allows running the webapp on one computer and connecting to it from another. Does not yet use HTTPS. I'd need to generate a certificate, and I'm not sure what's the best way to do that.
2013-04-08 19:04:35 +00:00
paramAddress :: String
paramAddress = "ADDRESS"
info: When passed the name or uuid of a remote, displays info about that remote. No per-remote-type info yet. This commit was sponsored by Stanley Yamane.
2014-10-21 17:44:17 +00:00
paramItem :: String
paramItem = "ITEM"
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramKeyValue :: String
paramKeyValue = "K=V"
paramNothing :: String
paramNothing = ""
paramRepeating :: String -> String
paramRepeating s = s ++ " ..."
paramOptional :: String -> String
display cmdparamdesc in optparse-applicative usage messages Since optparse-applicative display "FOO" as "[FOO]", the paramOptional modifier which wrapped it in square brackets was removed from most places.
2015-07-08 17:39:11 +00:00
paramOptional s = s
per-command options Finally commands can define their own options. Moved --format and --print0 to be options only of find.
2012-01-06 02:48:59 +00:00
paramPair :: String -> String -> String
paramPair a b = a ++ " " ++ b
Reference in a new issue Copy permalink