#lang scheme/base ;; -*- scheme -*-
(require
 scheme/pretty
 web-server/servlet
 web-server/servlet/web)

;; plt servlet interface
(provide interface-version timeout start)
(define interface-version 'v1)
(define timeout +inf.0)

(define (start req)
  (for ((i (in-naturals)))
    (send/suspend (page i req))))

(define ((page i req) url)
  (define b (request-bindings req))
  (define title (extract-bindings 'title b))
  (define body  (extract-bindings 'body b))
  (printf "~a\n" url)
  `(xhtml ()
    ,(format "Page ~a. " i)
    (a ((href ,url)) "[next]")
    ,(format "~a" title)
    ,(format "~a" body)
    (p)
    (form
     (input ((type "submit")))
     (input ((name "title")))
     (textarea ((name "body")) "woah"))))