clone url: git://git.m455.casa/m455.casa
src/static.scm
1 | (module static (BUILD-DIRECTORY |
2 | MARKUP-DIRECTORY |
3 | POSTS-DIRECTORY |
4 | HTML-TEMPLATE |
5 | RSS-CHANNEL-TEMPLATE |
6 | RSS-ITEM-TEMPLATE |
7 | TITLE-PREFIX |
8 | HEADING-PREFIX |
9 | UNORDERED-LIST-PREFIX |
10 | ORDERED-LIST-PREFIX) |
11 |
|
12 | (import scheme |
13 | utf8 |
14 | (chicken io)) |
15 |
|
16 | (define BUILD-DIRECTORY "build") |
17 | (define MARKUP-DIRECTORY "markup") |
18 | (define POSTS-DIRECTORY "posts") |
19 | (define HTML-TEMPLATE (with-input-from-file "templates/page.html" read-string)) |
20 | (define RSS-CHANNEL-TEMPLATE (with-input-from-file "templates/channel.xml" read-string)) |
21 | (define RSS-ITEM-TEMPLATE (with-input-from-file "templates/item.xml" read-string)) |
22 | (define TITLE-PREFIX "title: ") |
23 | (define HEADING-PREFIX "# ") |
24 | (define UNORDERED-LIST-PREFIX "- ") |
25 | (define ORDERED-LIST-PREFIX "1. ")) |