website substitute - part-cw/lambdanative GitHub Wiki
Applies all content substitutions to serve a dynamic website document.
| Parameter | Description |
|---|---|
| data | website content string on which substitutions will be performed |
(website-addhook #f "/index.html"
(lambda (args)
(let ((data (cadr (assoc "DATA" args))))
(website-substitute data))))
(website-addhook #f "/index.html" "<h1>[TEXT]</h1>[PROC]")
(website-addsubstitution "[TEXT]" "replaced text")
(website-addsubstitution "[PROC]" (let ((a 0)) (lambda () (set! a (+ a 1)) (number->string a))))
(website-serve #f 8080)