dev-output-files-201008
Matthew Butterick 4 years ago
parent 13c6f5bd4a
commit d355894e95

@ -1,4 +1,4 @@
#lang racket/base #lang debug racket/base
(require racket/file (require racket/file
racket/path racket/path
racket/match racket/match
@ -180,6 +180,15 @@
[(app ->source-path (and (not #false) (? file-exists?) sp)) [(app ->source-path (and (not #false) (? file-exists?) sp))
(loop rest (cons sp acc))] (loop rest (cons sp acc))]
[_ (loop rest acc)])]))) [_ (loop rest acc)])])))
#R paths-in
#R expanded-source-paths
(define expanded-output-paths
(for/list ([path (in-list paths-in)]
[sp (in-list expanded-source-paths)])
(if (equal? (->output-path path) path)
path
(->output-path sp))))
#R expanded-output-paths
(cond (cond
[(null? expanded-source-paths) (message "[no paths to render]")] [(null? expanded-source-paths) (message "[no paths to render]")]
[(eq? special-output 'dry-run) (for-each message expanded-source-paths)] [(eq? special-output 'dry-run) (for-each message expanded-source-paths)]

Loading…
Cancel
Save