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

Extract print-config

Browse source
This commit is contained in:
Tom Willemse 2014-03-01 21:03:48 +01:00
parent 9df3b848e0
commit aacc242fb3
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gitto/main.scm
View file

@ -46,6 +46,14 @@
(for-each print-repository-location (for-each print-repository-location
(sort repositories repository-location<?))) (sort repositories repository-location<?)))
(define (print-config repo)
"Print the configuration for REPO."
(display (string-upcase (repo-name repo)))
(newline)
(write-config (read-config (repo-location repo)))
(newline)
(newline))
(define (print-repository-location repo) (define (print-repository-location repo)
"Print the location of REPO." "Print the location of REPO."
(display (repo-location repo)) (display (repo-location repo))
@ -175,14 +183,7 @@ overwriting settings when necessary. The repositories in the
only updates the configuration for that repository. *Note:* This is a only updates the configuration for that repository. *Note:* This is a
destructive operation, you should be mindful." destructive operation, you should be mindful."
(cond (cond
((not sub) ((not sub) (for-each print-config repositories))
(for-each (lambda (repo)
(display (string-upcase (repo-name repo)))
(newline)
(write-config (read-config (repo-location repo)))
(newline)
(newline))
repositories))
((equal? sub "global") (show-global-config)) ((equal? sub "global") (show-global-config))
((equal? sub "update") (update-config repository)))) ((equal? sub "update") (update-config repository))))