Adding .git to ignore list
This commit is contained in:
parent
2436c638fa
commit
8e37ccb1bc
|
@ -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)))
|
||||
|
|
|
@ -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))))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user