+#lang racket
+
+(require web-server/servlet)
+(require web-server/formlets)
+(require web-server/servlet-env)
+
+(require "bettersearch.rkt")
+
+(define-values (dispatch generate-url)
+ (dispatch-rules
+ [("") do-index]
+ [("search") do-search]
+ ))
+
+(define (do-search req)
+ (define binds (request-bindings req))
+ (define query (if
+ (exists-binding? 'q binds)
+ (extract-binding/single 'q binds)
+ ""))
+
+ (if (non-empty-string? query)
+ (response/xexpr `(html
+ (h1 "Search results")
+ (fetch-results query)
+ ))
+ (response/xexpr `(html
+ (h1 "ho")
+ ))
+ )
+ )
+
+(serve/servlet dispatch
+ #:command-line? #t
+ #:servlet-regexp #rx"")