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

Add exclusion list

Browse source 
The variable `config-exclusion-list' can be used to specify project
names that should not have their configuration overwritten by
`gitto --update-config'. It is a normal list of strings which name the
repositories that should be left alone, like so:

    (set! config-exclusion-list '("repo1" "repo2" "repo3"))
This commit is contained in:
Tom Willemse 2013-05-19 23:05:31 +02:00
parent d2db2dfb53
commit e2c303c420
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gitto/main.scm
View file

@ -28,6 +28,9 @@
#:use-module (srfi srfi-1)
#:export (main))
(define config-exclusion-list '()
"A list of strings naming the repositories to be left alone.")
(define (storage-dir xdg-env fallback)
(let ((xdg (getenv xdg-env)))
(string-append
@ -149,11 +152,12 @@ gitto [options]
(define (update-config)
(for-each (lambda (repo)
(unless (member (repo-name repo) config-exclusion-list)
(write-config
(merge-config (repo-name repo)
(read-config (repo-location repo))
global-config)
(string-append (repo-location repo) "/.git/config")))
(string-append (repo-location repo) "/.git/config"))))
repositories))
(define option-spec