From a1cde11d5ebe95a365120eb5aeb7f65469e44b30 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 3 Apr 2023 22:07:04 -0500
Subject: Changes and stuff

I have done a bad job of documenting what I'm doing

- it builds now - run `make`
- it builds the pages in test/ and links them
- ... that's it
---
 wikme.sld | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 wikme.sld

(limited to 'wikme.sld')

diff --git a/wikme.sld b/wikme.sld
new file mode 100644
index 0000000..ca3ddd8
--- /dev/null
+++ b/wikme.sld
@@ -0,0 +1,79 @@
+#+chicken-5
+(import (r7rs))
+
+(define-library wikme
+  (import (scheme))
+  (cond-expand
+    (chicken-5 (import (chicken base)
+                       (chicken file)
+                       (chicken file posix)
+                       (chicken format)
+                       (chicken io)
+                       (chicken irregex)
+                       (chicken pathname)
+                       (chicken port)
+                       (chicken process)
+                       (chicken process-context)
+                       (chicken string)
+                       (chicken time posix)
+                       (cmark)
+                       (regex)          ; XXX: deprecated upstream
+                       (srfi-13)))
+    (else (error "Wikme doesn't support this R7RS scheme implementation yet.")))
+
+  ;; <wiki>
+  (export <wiki>
+          wiki-base-url
+          wiki-origin-dir
+          wiki-destination-dir
+          wiki-pages
+          wiki-defaults
+          wiki-default-ref
+          wiki-default-set!)
+
+  ;; <page>
+  (export <page>
+          page-source
+          page-body
+          page-origin
+          page-destination
+          page-template
+          page-source-transformers
+          page-path-transformers
+          page-wiki
+          page-meta
+          page-meta-ref
+          page-meta-set!)
+
+  ;; transformers
+  (export transform
+          transform-source!
+          transform-path!
+          page-cmark->html)
+
+  ;; templates
+  (export render-template
+          env->replacements
+          render)
+
+  ;; links
+  (export wiki-link-sre
+          wikify-links
+          linkify
+          slugify
+          string-capitalize
+          unslugify
+          path-relativize
+          wiki-page-origin-path
+          wiki-page-destination-path)
+
+  ;; page building
+  (export file->page
+          guess-title
+          basename
+          indexify
+          guess-last-updated
+          page->file
+          build-wiki)
+
+  (include "wikme.ss"))
-- 
cgit 1.4.1-21-gabe81