diff options
| author |  Tom Willemsen | 2012-07-01 17:48:51 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-07-01 17:49:45 +0200 |
| commit | 4bcea9254e820e09fddfcf24fd763162adac7147 (patch) | |
| tree | feb9f51073c304ad98a6ef64860ec6e050abb083 | |
| parent | 4820492a557622061038f8e2a32cf2c8614347da (diff) | |
| download | gitto-4bcea9254e820e09fddfcf24fd763162adac7147.tar.gz gitto-4bcea9254e820e09fddfcf24fd763162adac7147.zip | |
Minor style change
| -rw-r--r-- | gitto/main.scm | 47 |
1 files changed, 23 insertions, 24 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index defe542..cd54787 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -92,15 +92,16 @@ gitto [options] clean?)) (define (list-repositories) - (for-each (lambda (repo) - (chdir repo) - (let ((numup (git-revs-to-push)) - (numdown (git-revs-to-pull)) - (clean? (git-clean?))) - (format #t "~a:~15t~d to push, ~d to pull and is ~adirty.\n" - (basename repo) numup numdown - (if clean? "not " "")))) - repositories)) + (for-each + (lambda (repo) + (chdir repo) + (let ((numup (git-revs-to-push)) + (numdown (git-revs-to-pull)) + (clean? (git-clean?))) + (format #t "~a:~15t~d to push, ~d to pull and is ~adirty.\n" + (basename repo) numup numdown + (if clean? "not " "")))) + repositories)) (define (list-repository-locations) (for-each (lambda (repo) @@ -109,24 +110,22 @@ gitto [options] repositories)) (define option-spec - `((version (single-char #\v) (value #f)) - (help (single-char #\h) (value #f)) - (register (single-char #\r) (value #t) - (predicate ,git-dir?)) - (remove (single-char #\R) (value #t) - (predicate ,git-dir?)) + `((version (single-char #\v)) + (help (single-char #\h)) + (register (single-char #\r) (value #t) (predicate ,git-dir?)) + (remove (single-char #\R) (value #t) (predicate ,git-dir?)) (repositories (single-char #\l)))) (define (main args) (let* ((options (getopt-long args option-spec)) - (help-wanted (option-ref options 'help #f)) - (version-wanted (option-ref options 'version #f)) + (help-wanted (option-ref options 'help #f)) + (version-wanted (option-ref options 'version #f)) (registration-needed (option-ref options 'register #f)) - (removal (option-ref options 'remove #f)) - (list (option-ref options 'repositories #f))) - (cond (version-wanted (version)) - (help-wanted (help)) + (removal (option-ref options 'remove #f)) + (list (option-ref options 'repositories #f))) + (cond (version-wanted (version)) + (help-wanted (help)) (registration-needed => register-repository) - (removal => remove-repository) - (list (list-repository-locations)) - (#t (list-repositories))))) + (removal => remove-repository) + (list (list-repository-locations)) + (#t (list-repositories))))) |