Add optional reponse-maker parameter to define-handler
Add optional reponse-maker parameter to define-handler

It also adds a `#:response-maker` parameter to the `run` function. This code
allow users to define customized request handlers.

EXAMPLE:

    (define (json-response-maker status headers body)
      (response status
                (status->message status)
                (current-seconds)
                #"application/json; charset=utf-8"
                headers
                (let ([jsexpr-body (case status
                                     [(404) (string->jsexpr
                                             "{\"error\": 404, \"message\": \"Not Found\"}")]
                                     [else body])])
                  (lambda (op) (write-json (force jsexpr-body) op)))))

Defining `json-get`:

    (define (json-get path handler)
      (define-handler "GET" path handler json-response-maker))

Passing the `json-response-maker` to `run`:

   (run
    #:port 8080
    #:response-maker json-response-maker)

By doing this "404 Not Found" errors will be handled by `json-response-maker`.

dmac/spin,andrenventer/spin