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

Group subcommands into sections in usage. Closes: #703797

Browse source
This commit is contained in:
Joey Hess 2013-03-25 10:23:05 -04:00
parent 3ef6b6a200
commit 3babb935d3
3 changed files with 26 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Types/Command.hs
View file

@ -53,9 +53,9 @@ instance Eq CommandCheck where
instance Eq Command where
a == b = cmdname a == cmdname b
{- Order commands by name -}
{- Order commands by section and then by name -}
instance Ord Command where
compare = comparing cmdname
compare = comparing (\c -> (cmdsection c, cmdname c))
{- The same sections are listed in doc/git-annex.mdwn -}
data CommandSection
@ -66,3 +66,11 @@ data CommandSection
| SectionUtility
| SectionPlumbing
deriving (Eq, Ord, Enum, Bounded)
descSection :: CommandSection -> String
descSection SectionCommon = "Commonly used commands"
descSection SectionSetup = "Repository setup commands"
descSection SectionMaintenance = "Repository maintenance commands"
descSection SectionQuery = "Query commands"
descSection SectionUtility = "Utility commands"
descSection SectionPlumbing = "Plumbing commands"