make all required dirs

This commit is contained in:
Nico 2022-01-15 22:25:52 +00:00
parent d9b79767c4
commit 85946b11a0
1 changed files with 4 additions and 2 deletions

View File

@ -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"