more leniency with meta template path

candidate-v2.0
Matthew Butterick 6 years ago
parent de3b1cf0a9
commit 31c7c80a5d

@ -1 +1 @@
1547067565
1550609742

@ -241,7 +241,7 @@
(define template-name (if (list? template-name-or-names)
(findf (λ (tn) (eq? (get-ext tn) output-path-ext)) template-name-or-names)
template-name-or-names))
(and template-name (build-path (dirname source-path) template-name)))))
(and template-name (simplify-path (cleanse-path (build-path (dirname source-path) template-name)))))))
(define (get-default-template source-path output-path-ext)
(and output-path-ext

Loading…
Cancel
Save