brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Split out ensure-directory.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-19 08:51:39 +02:00
parent ed129c8760
commit a56605fa3f
5 changed files with 61 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/export-wiki-compat.scm
View file

@ -46,7 +46,8 @@
members-payments
mbase
util-git
progress)
progress
util-dir)
;; Generate all the files in specified (default current) directory.
(define (gen-web-static-member mr . dirs)
@ -79,11 +80,7 @@
;; Generates all member files in given directory
(define (gen-web-static mb dir)
(when (and (file-exists? dir)
(regular-file? dir))
(error 'gen-web-static "Directory is a file:" dir))
(when (not (directory-exists? dir))
(create-directory dir))
(ensure-directory dir)
(let* ((members-list (find-members-by-predicate mb brmember-existing?))
(mlen0 (length members-list))
(mlen (if (> mlen0 0)