make all required dirs
This commit is contained in:
parent
d9b79767c4
commit
85946b11a0
|
@ -1,3 +1,5 @@
|
|||
;; TODO make directories recursively
|
||||
|
||||
(var lfs (require :lfs))
|
||||
(var fennel (require :fennel))
|
||||
|
||||
|
@ -287,8 +289,8 @@
|
|||
; process-dir is run for every input directory to copy the tree into output directories
|
||||
(fn process-dir [f]
|
||||
"run for every input directory to re-create the directory structure in the output"
|
||||
(lfs.mkdir (.. gemini-outdir f))
|
||||
(lfs.mkdir (.. html-outdir f)))
|
||||
(os.execute (.. "mkdir -p " gemini-outdir f))
|
||||
(os.execute (.. "mkdir -p " html-outdir f)))
|
||||
|
||||
(fn walk [base position] ; for each file in the current directory
|
||||
"walks through the input directory tree and populate the `files` and `dirs` tables for future processing"
|
||||
|
|
Reference in New Issue