(cond-expand (r7rs) (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."))) ;; (export wiki-base-url wiki-origin-dir wiki-destination-dir wiki-pages wiki-defaults wiki-default-ref wiki-default-set!) ;; (export 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"))