diff options
author | Case Duckworth | 2023-04-03 22:07:04 -0500 |
---|---|---|
committer | Case Duckworth | 2023-04-03 22:07:04 -0500 |
commit | a1cde11d5ebe95a365120eb5aeb7f65469e44b30 (patch) | |
tree | ecc91700447039733daebc04a6581dd01b92e7ed /wikme.sld | |
parent | It builds now (diff) | |
download | wikme-a1cde11d5ebe95a365120eb5aeb7f65469e44b30.tar.gz wikme-a1cde11d5ebe95a365120eb5aeb7f65469e44b30.zip |
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
Diffstat (limited to 'wikme.sld')
-rw-r--r-- | wikme.sld | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/wikme.sld b/wikme.sld new file mode 100644 index 0000000..ca3ddd8 --- /dev/null +++ b/wikme.sld | |||
@@ -0,0 +1,79 @@ | |||
1 | #+chicken-5 | ||
2 | (import (r7rs)) | ||
3 | |||
4 | (define-library wikme | ||
5 | (import (scheme)) | ||
6 | (cond-expand | ||
7 | (chicken-5 (import (chicken base) | ||
8 | (chicken file) | ||
9 | (chicken file posix) | ||
10 | (chicken format) | ||
11 | (chicken io) | ||
12 | (chicken irregex) | ||
13 | (chicken pathname) | ||
14 | (chicken port) | ||
15 | (chicken process) | ||
16 | (chicken process-context) | ||
17 | (chicken string) | ||
18 | (chicken time posix) | ||
19 | (cmark) | ||
20 | (regex) ; XXX: deprecated upstream | ||
21 | (srfi-13))) | ||
22 | (else (error "Wikme doesn't support this R7RS scheme implementation yet."))) | ||
23 | |||
24 | ;; <wiki> | ||
25 | (export <wiki> | ||
26 | wiki-base-url | ||
27 | wiki-origin-dir | ||
28 | wiki-destination-dir | ||
29 | wiki-pages | ||
30 | wiki-defaults | ||
31 | wiki-default-ref | ||
32 | wiki-default-set!) | ||
33 | |||
34 | ;; <page> | ||
35 | (export <page> | ||
36 | page-source | ||
37 | page-body | ||
38 | page-origin | ||
39 | page-destination | ||
40 | page-template | ||
41 | page-source-transformers | ||
42 | page-path-transformers | ||
43 | page-wiki | ||
44 | page-meta | ||
45 | page-meta-ref | ||
46 | page-meta-set!) | ||
47 | |||
48 | ;; transformers | ||
49 | (export transform | ||
50 | transform-source! | ||
51 | transform-path! | ||
52 | page-cmark->html) | ||
53 | |||
54 | ;; templates | ||
55 | (export render-template | ||
56 | env->replacements | ||
57 | render) | ||
58 | |||
59 | ;; links | ||
60 | (export wiki-link-sre | ||
61 | wikify-links | ||
62 | linkify | ||
63 | slugify | ||
64 | string-capitalize | ||
65 | unslugify | ||
66 | path-relativize | ||
67 | wiki-page-origin-path | ||
68 | wiki-page-destination-path) | ||
69 | |||
70 | ;; page building | ||
71 | (export file->page | ||
72 | guess-title | ||
73 | basename | ||
74 | indexify | ||
75 | guess-last-updated | ||
76 | page->file | ||
77 | build-wiki) | ||
78 | |||
79 | (include "wikme.ss")) | ||