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. ")) |