3 (require web-server/servlet)
4 (require web-server/formlets)
5 (require web-server/servlet-env)
7 (require "bettersearch.rkt")
9 (define-values (dispatch generate-url)
12 [("search") do-search]
15 (define (do-search req)
16 (define binds (request-bindings req))
18 (exists-binding? 'q binds)
19 (extract-binding/single 'q binds)
22 (if (non-empty-string? query)
23 (response/xexpr `(html
27 (response/xexpr `(html
33 (serve/servlet dispatch
35 #:servlet-regexp #rx"")