ignore special paths in preheat

pull/218/head
Matthew Butterick 5 years ago
parent 12ba29dc03
commit 10be642df0

@ -299,7 +299,7 @@
(and (regexp-match pat str) #t)) (and (regexp-match pat str) #t))
(define (special-path? path) (define+provide (special-path? path)
(define special-paths (append default-cache-names '("compiled" ".git" ".gitignore" ".hg" ".svn" "CVS" "Makefile"))) (define special-paths (append default-cache-names '("compiled" ".git" ".gitignore" ".hg" ".svn" "CVS" "Makefile")))
(and (member (path->string (last (explode-path path))) special-paths) #t)) (and (member (path->string (last (explode-path path))) special-paths) #t))

@ -25,7 +25,7 @@
;; if a file is already in the cache, no need to hit it again. ;; if a file is already in the cache, no need to hit it again.
;; this allows partially completed preheat jobs to resume. ;; this allows partially completed preheat jobs to resume.
(define uncached-paths (define uncached-paths
(for/list ([path (in-directory starting-dir)] (for/list ([path (in-directory starting-dir (λ (p) (not (special-path? p))))]
#:when (for/or ([proc (in-list (list preproc-source? #:when (for/or ([proc (in-list (list preproc-source?
markup-source? markup-source?
markdown-source? markdown-source?

@ -1 +1 @@
1572061641 1572578851

Loading…
Cancel
Save