diff --git a/site/pollen.rkt b/site/pollen.rkt index 6472f96..0310490 100644 --- a/site/pollen.rkt +++ b/site/pollen.rkt @@ -2,16 +2,20 @@ (require pollen/decode pollen/misc/tutorial txexpr) (provide (all-defined-out)) +#| site globals |# (define site-name "sloane.sh") (define email "sloane@fastmail.com") +#| custom elements |# + +#| plain text decoding |# (define txexpr-elements-proc decode-paragraphs) (define string-proc (compose1 smart-quotes smart-dashes)) - (define (root . elements) (txexpr 'root empty (decode-elements elements #:txexpr-elements-proc txexpr-elements-proc #:string-proc string-proc))) +#| setup |# (module setup racket/base (provide (all-defined-out))) diff --git a/site/style.css.pp b/site/style.css.pp new file mode 100644 index 0000000..7a85c9c --- /dev/null +++ b/site/style.css.pp @@ -0,0 +1 @@ +#lang pollen diff --git a/site/template.html.p b/site/template.html.p index 43f22ae..75086fa 100644 --- a/site/template.html.p +++ b/site/template.html.p @@ -3,8 +3,17 @@ ◊|site-name| + +
+ ◊|site-name| + +
◊(->html doc)