nihilazo
/
linluwi
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
linluwi.fnl
View File

@ -1,3 +1,5 @@
;; TODO make directories recursively
(var lfs (require :lfs)) (var lfs (require :lfs))
(var fennel (require :fennel)) (var fennel (require :fennel))
@ -287,8 +289,8 @@
; process-dir is run for every input directory to copy the tree into output directories ; process-dir is run for every input directory to copy the tree into output directories
(fn process-dir [f] (fn process-dir [f]
"run for every input directory to re-create the directory structure in the output" "run for every input directory to re-create the directory structure in the output"
(lfs.mkdir (.. gemini-outdir f)) (os.execute (.. "mkdir -p " gemini-outdir f))
(lfs.mkdir (.. html-outdir f))) (os.execute (.. "mkdir -p " html-outdir f)))
(fn walk [base position] ; for each file in the current directory (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" "walks through the input directory tree and populate the `files` and `dirs` tables for future processing"