Adding .git to ignore list

This commit is contained in:
Jay McCarthy 2010-04-22 14:40:23 -06:00
parent 2436c638fa
commit 8e37ccb1bc
2 changed files with 2 additions and 2 deletions

View File

@ -15,7 +15,7 @@
(filter-tree-by-pattern
(directory->tree (CACHE-DIR)
(lambda (x)
(not (regexp-match #rx"/(CVS|[.]svn)$"
(not (regexp-match #rx"/(CVS|[.]svn)|[.]git$"
(path->string x))))
4)
(list id id id string->number string->number)))

View File

@ -178,7 +178,7 @@
(define (std-filter path)
(let-values ([(base name dir?) (split-path path)])
(let ([name (path->bytes name)])
(not (or (regexp-match #rx#"^(?:CVS|[.]svn|[.]cvsignore|compiled|doc)$"
(not (or (regexp-match #rx#"^(?:CVS|[.]svn|[.]git|[.]cvsignore|compiled|doc)$"
name)
(regexp-match #rx#"~$|^#.*#$|^[.]#" name)
(regexp-match #rx#"[.]plt$" name))))))