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

Add check command

Browse source 
Checks to see if the specified directory has been registered.
This commit is contained in:
Tom Willemsen 2012-10-17 01:40:01 +02:00
parent 8866cc66c3
commit aedb4491bd
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gitto/main.scm
View file

@ -90,6 +90,10 @@ gitto [options]
(write repositories port)
(close-port port)))
(define (repository-registered? repository)
"Check to see if REPOSITORY has been registered."
(format #t "Repository is~a registered~%" (if (known? repository) "" " not")))
(define (register-repository repository)
"Register REPOSITORY in the repository list."
(set! repository (realpath repository))
@ -184,7 +188,8 @@ to the tracked files. Utracked files will not register."
(register (single-char #\r) (value #t) (predicate ,git-dir?))
(remove (single-char #\R) (value #t) (predicate ,known?))
(repositories (single-char #\l))
(purge (single-char #\p))))
(purge (single-char #\p))
(check (single-char #\c) (value #t))))
(define (main args)
"Parse the command line options and run the appropriate functions."
@ -194,11 +199,13 @@ to the tracked files. Utracked files will not register."
(registration-needed? (option-ref options 'register #f))
(removal? (option-ref options 'remove #f))
(list? (option-ref options 'repositories #f))
(purge? (option-ref options 'purge #f)))
(purge? (option-ref options 'purge #f))
(check? (option-ref options 'check #f)))
(cond (version-wanted? (version))
(help-wanted? (help))
(registration-needed? => register-repository)
(removal? => remove-repository)
(list? (list-repository-locations))
(purge? (purge))
(check? => repository-registered?)
(#t (list-repositories)))))