ryuslash/gitto
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update help message

Browse source
This commit is contained in:
Tom Willemse 2013-05-21 03:00:56 +02:00
parent 7cf38f5121
commit 1be9047b00
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gitto/main.scm
View file

@ -53,13 +53,19 @@
(define (help) (define (help)
"Display some help." "Display some help."
(display "\ (display "\
gitto [options] gitto [command [arguments ...]]
-r, --register REPO Register a new repository directory add Register a new repository directory
-R, --remove REPO Remove a repository directory remove Remove a repository directory
-l, --repositories List all registered repositories' locations check Check if a repository has been registered
-p, --purge Remove all repositories that don't exist list List all repositories and their status
-v, --version Display version list locations List all registered repositories' locations
-h, --help Display this help purge Remove all repositories that don't exist
config Show each repository's configuration
config global Show template configuration
config update Merge template configuration with each
repository's configuration
version Display version
help Display this help
")) "))
(set! command-list (append command-list `(("help" . ,help)))) (set! command-list (append command-list `(("help" . ,help))))