10 lines
328 B
Scheme
10 lines
328 B
Scheme
#lang web-server/insta
|
|
(define (start request)
|
|
'(html (head (title "Testing"))
|
|
(link ((rel "stylesheet")
|
|
(href "/test-static.css")
|
|
(type "text/css")))
|
|
(body (h1 "This is a header")
|
|
(p "This is " (span ((class "hot")) "hot") "."))))
|
|
(static-files-path "htdocs")
|