Add README and Makefile

4 files changed, 38 insertions, 4 deletions

@@ -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)/$@ $<
@@ -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 
@@ -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)))
@@ -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))