Skip to content

Instantly share code, notes, and snippets.

@gcr

gcr/main.rkt

Created October 23, 2011 02:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gcr/1306759 to your computer and use it in GitHub Desktop.
Save gcr/1306759 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
main.rkt
#lang web-server/insta
(require web-server/templates)
(define (start req)
(let ([some-input
(if (exists-binding? 'some-input (request-bindings req))
(extract-binding/single 'some-input (request-bindings req))
"nothing yet")])
(response/full 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE
empty
(list (string->bytes/utf-8 (include-template "static.htm"))))))
Raw
static.htm
<!DOCTYPE html>
<html>
<head>
<title>Testing</title>
</head>
<body>
<h1>You said: @|some-input|</h1>
<form method="get" action="#">
<input name="some-input" type="text" />
<input type="submit" />
</form>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment