diff options
author | Tom Willemsen | 2012-09-18 19:46:14 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-09-18 19:46:14 +0200 |
commit | 395436103f3adea03e16827926127708c164d76c (patch) | |
tree | 415aac7f40127dffb9608e94caa70baee39a5968 | |
parent | b66ceb70f7873699261dbe8df76c638f9d8f99fe (diff) | |
download | gitto-395436103f3adea03e16827926127708c164d76c.tar.gz gitto-395436103f3adea03e16827926127708c164d76c.zip |
Check if we know the argument to -R
If we don't, fail in getopt-long.
-rw-r--r-- | gitto/main.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index e32ba8c..9f18a37 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -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) |