git.m455.casa

m455.casa

clone url: git://git.m455.casa/m455.casa


src/static.scm

1 (define BUILD-DIRECTORY "build")
2 (define POSTS-DIRECTORY "posts")
3 (define HTML-TEMPLATE (with-input-from-file "templates/page.html" read-string))
4 (define RSS-CHANNEL-TEMPLATE (with-input-from-file "templates/channel.xml" read-string))
5 (define RSS-ITEM-TEMPLATE (with-input-from-file "templates/item.xml" read-string))
6 (define TITLE-PREFIX "title: ")
7 (define HEADING-PREFIX "# ")
8 (define UNORDERED-LIST-PREFIX "- ")
9 (define ORDERED-LIST-PREFIX "1. ")