mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bring back param descriptions in usage

Browse source
This commit is contained in:
Joey Hess 2010-11-01 17:18:32 -04:00
parent 15e7d59137
commit 287e6e5c13
1 changed files with 18 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Commands.hs
View file

@ -49,34 +49,39 @@ type SubCmdCleanup = Annex Bool
data SubCommand = SubCommand { data SubCommand = SubCommand {
subcmdname :: String, subcmdname :: String,
subcmdparams :: String,
subcmdparse :: SubCmdParse, subcmdparse :: SubCmdParse,
subcmddesc :: String subcmddesc :: String
} }
subCmds :: [SubCommand] subCmds :: [SubCommand]
subCmds = [ subCmds = [
(SubCommand "add" (withFilesNotInGit addStart) (SubCommand "add" path (withFilesNotInGit addStart)
"add files to annex") "add files to annex")
, (SubCommand "get" (withFilesInGit getStart) , (SubCommand "get" path (withFilesInGit getStart)
"make content of annexed files available") "make content of annexed files available")
, (SubCommand "drop" (withFilesInGit dropStart) , (SubCommand "drop" path (withFilesInGit dropStart)
"indicate content of files not currently wanted") "indicate content of files not currently wanted")
, (SubCommand "move" (withFilesInGit moveStart) , (SubCommand "move" path (withFilesInGit moveStart)
"transfer content of files to/from another repository") "transfer content of files to/from another repository")
, (SubCommand "init" (withDescription initStart) , (SubCommand "init" desc (withDescription initStart)
"initialize git-annex with repository description") "initialize git-annex with repository description")
, (SubCommand "unannex" (withFilesInGit unannexStart) , (SubCommand "unannex" path (withFilesInGit unannexStart)
"undo accidential add command") "undo accidential add command")
, (SubCommand "fix" (withFilesInGit fixStart) , (SubCommand "fix" path (withFilesInGit fixStart)
"fix up symlinks to point to annexed content") "fix up symlinks to point to annexed content")
, (SubCommand "pre-commit" (withFilesToBeCommitted fixStart) , (SubCommand "pre-commit" path (withFilesToBeCommitted fixStart)
"fix up symlinks before they are committed") "fix up symlinks before they are committed")
, (SubCommand "fromkey" (withFilesMissing fromKeyStart) , (SubCommand "fromkey" key (withFilesMissing fromKeyStart)
"adds a file using a specific key") "adds a file using a specific key")
, (SubCommand "dropkey" (withKeys dropKeyStart) , (SubCommand "dropkey" key (withKeys dropKeyStart)
"drops annexed content for specified keys") "drops annexed content for specified keys")
, (SubCommand "setkey" (withTempFile setKeyStart) , (SubCommand "setkey" key (withTempFile setKeyStart)
"sets annexed content for a key using a temp file") "sets annexed content for a key using a temp file")
] ]
where
path = "PATH ..."
key = "KEY ..."
desc = "DESCRIPTION"
-- Each dashed command-line option results in generation of an action -- Each dashed command-line option results in generation of an action
-- in the Annex monad that performs the necessary setting. -- in the Annex monad that performs the necessary setting.
@ -112,6 +117,8 @@ usage = usageInfo header options ++ "\nSubcommands:\n" ++ cmddescs
showcmd c = showcmd c =
(subcmdname c) ++ (subcmdname c) ++
(pad 11 (subcmdname c)) ++ (pad 11 (subcmdname c)) ++
(subcmdparams c) ++
(pad 13 (subcmdparams c)) ++
(subcmddesc c) (subcmddesc c)
indent l = " " ++ l indent l = " " ++ l
pad n s = take (n - (length s)) $ repeat ' ' pad n s = take (n - (length s)) $ repeat ' '