(define sdata '(
(webroot "http://localhost:8000/")
))
(vhost-map
`(("localhost" . ,(uri-match/spiffy
`(((/ "") (GET ,(lambda (continue)
(send-response
status: 'ok
body: (from-file "index.tpl"
env: (template-std-env search-path: '("tpl"))
models: (sexpr->tvalue sdata)
)
)
))))
)))
)
;; In the template:
;;
;;
;;
;;
;; Test
;;
;; Test
;;