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

---
 Makefile      | 11 +++++++++++
 README.txt    | 19 +++++++++++++++++++
 src/wikme.scm | 10 +++++++---
 wikme.scm     |  2 +-
 4 files changed, 38 insertions(+), 4 deletions(-)
 create mode 100644 Makefile
 create mode 100644 README.txt

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..21b4479
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,11 @@
+# wikme
+
+PREFIX = /usr/bin
+
+wikme: wikme.scm src/wikme.scm
+	csc -o $@ wikme.scm
+
+.PHONY: install
+
+install: wikme
+    install -Dt $(DESTDIR)$(PREFIX)/$@ $<
diff --git a/README.txt b/README.txt
new file mode 100644
index 0000000..8fd6f44
--- /dev/null
+++ b/README.txt
@@ -0,0 +1,19 @@
+wikme --- build a wiki out of a directory of markdown files
+
+made with <3 by case duckworth for kindrobot
+
+requirements:
+
+- cmark
+- chicken scheme with the following eggs:
+  - cmark
+  - srfi-152
+  - utf8
+
+build:
+
+- make
+
+install:
+
+- make install 
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)))
diff --git a/wikme.scm b/wikme.scm
index 74d672f..ac7111c 100644
--- a/wikme.scm
+++ b/wikme.scm
@@ -47,6 +47,6 @@
                                    (current-directory) "out"))
       #:page-template (or (alist-ref 'template options)
                           (make-pathname
-                           (current-directory "template.html")))))))
+                           (current-directory) "template.html"))))))
 
 (main (command-line-arguments))
-- 
cgit 1.4.1-21-gabe81