1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
{- git-annex command
-
- Copyright 2012 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.Help where
import Command
import qualified Command.Init
import qualified Command.Add
import qualified Command.Drop
import qualified Command.Get
import qualified Command.Move
import qualified Command.Copy
import qualified Command.Sync
import qualified Command.Whereis
import qualified Command.Fsck
cmd :: Command
cmd = noCommit $ dontCheck repoExists $
noRepo (parseparams startNoRepo) $
command "help" SectionCommon "display help"
"COMMAND" (parseparams seek)
where
parseparams = withParams
seek :: CmdParams -> CommandSeek
seek = withWords start
start :: [String] -> CommandStart
start params = do
liftIO $ start' params
stop
startNoRepo :: CmdParams -> IO ()
startNoRepo = start'
start' :: [String] -> IO ()
start' [c] = showGitHelp c
start' _ = showGeneralHelp
showGeneralHelp :: IO ()
showGeneralHelp = putStrLn $ unlines
[ "The most frequently used git-annex commands are:"
, unlines $ map cmdline $
[ Command.Init.cmd
, Command.Add.cmd
, Command.Drop.cmd
, Command.Get.cmd
, Command.Move.cmd
, Command.Copy.cmd
, Command.Sync.cmd
, Command.Whereis.cmd
, Command.Fsck.cmd
]
, "For a complete command list, run: git-annex"
, "For help on a specific command, run: git-annex help COMMAND"
]
where
cmdline c = "\t" ++ cmdname c ++ "\t" ++ cmddesc c
showGitHelp :: String -> IO ()
showGitHelp c =
unlessM (githelp) $
putStrLn $ "View online help at " ++ url
where
githelp = boolSystem "git" [Param "help", Param fullc]
fullc = "git-annex-" ++ c
url = "https://git-annex.branchable.com/" ++ fullc ++ "/"
|
