#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"")