From 0f4890de4d9b0117bca058c74bcc4b41ec696197 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 29 Mar 2023 23:45:11 -0500
Subject: Add README and Makefile

---
 src/wikme.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/wikme.scm b/src/wikme.scm
index 752aa8b..14167d6 100644
--- a/src/wikme.scm
+++ b/src/wikme.scm
@@ -50,12 +50,14 @@
     (make-wiki base-url
                directory
                destination-directory
+               page-template
                file-transformers
                transformers
                '()))
 
-  (set! wiki-pages (map (lambda (f) (file->page f wiki))
-                        (glob (make-pathname directory "*.md"))))
+  (set! (wiki-pages wiki)
+    (map (lambda (f) (file->page f wiki))
+         (glob (make-pathname directory "*.md"))))
 
   wiki)
 
@@ -264,8 +266,10 @@
 
 (define (render-wiki wiki)
   ;;; Render the files in WIKI to disk.
+  (create-directory (wiki-destination-dir wiki) #:parents)
   (for-each (lambda (page)
               (with-output-to-file (page-destination page)
                 (lambda ()
-                  (write-string (render-page (wiki-page-template wiki) page)))))
+                  (write-string
+                   (render-page (wiki-page-template wiki) page)))))
             (wiki-pages wiki)))
-- 
cgit 1.4.1-21-gabe81