formlet.rkt

#lang racket
(require  web-server/servlet-env
          web-server/dispatch
          web-server/http
          web-server/http/bindings
          web-server/formlets)


(define new-post-formlet
  (formlet
    (#%# ,{input-string . => . title}
         ,{input-string . => . body})
    (values title body)))

(define (index req)
  (response/xexpr
    `(html (head (title "My Blog"))
           (body
             (h1 "My Blog")
             (form ([action "/hand"] [method "POST"])
                   ,@(formlet-display new-post-formlet)
                   (input ([type "submit"])))))))

(define (handler req)
   (define-values (title body)
              (formlet-process new-post-formlet req))
  (response/xexpr
    `(html (head (title "My Blog"))
           (body
             (h1 ,title)
             (p ,body)))))



(define-values (main-dispatch main-url)
  (dispatch-rules
   [("hand") #:method "post" handler]
   [("") #:method "get" index]
))


(serve/servlet
 main-dispatch
 #:port 8002
 #:listen-ip #f
 #:command-line? #t
 #:servlet-regexp #rx""
 #:servlet-path "/")