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

Check if we know the argument to -R

Browse source 
If we don't, fail in getopt-long.
This commit is contained in:
Tom Willemsen 2012-09-18 19:46:14 +02:00
parent b66ceb70f7
commit 395436103f
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gitto/main.scm
View file

@ -70,6 +70,11 @@ gitto [options]
(eq? (stat:type dirstat) 'directory))
#f)))
(define (known? repo)
"Do we know REPO?"
(or (member repo repositories)
(member (realpath repo) repositories)))
(define (save-repositories-list)
"Save the list of repositories."
(if (not (file-exists? data-dir))
@ -88,7 +93,7 @@ gitto [options]
(define (register-repository repository)
"Register REPOSITORY in the repository list."
(set! repository (realpath repository))
(if (not (member repository repositories))
(if (not (known? repository))
(begin
(set! repositories (append `(,repository) repositories))
(save-repositories-list)
@ -101,7 +106,7 @@ gitto [options]
(unless (member repository repositories)
(set! repository (realpath repository)))
(if (member repository repositories)
(if (known? repository)
(begin
(set! repositories (delete repository repositories))
(save-repositories-list)
@ -172,7 +177,7 @@ to the tracked files. Utracked files will not register."
`((version (single-char #\v))
(help (single-char #\h))
(register (single-char #\r) (value #t) (predicate ,git-dir?))
(remove (single-char #\R) (value #t))
(remove (single-char #\R) (value #t) (predicate ,known?))
(repositories (single-char #\l))))
(define (main args)