Managing your Javascripts through SHP (3) - Integrate with Servlets

If you do not want to use SHP but would like to use jsmgr, it provides a servlet adapter that you can use - just do the following in your servlet:

;; your servlet... 
(require (planet bzlib/jsmgr/servlet-util)) 
(define start
  (make-start "the-path-to-javascript-here..."))

And the servlet will have the exact same functionality. The following is the servlet-util.ss that enabled the above:

(require web-server/http/request-structs
         web-server/http/response-structs
         net/url
         mzlib/etc
         scheme/contract
         (planet bzlib/shp:1:1/request)         
         (planet bzlib/shp:1:1/proxy)         
         (planet bzlib/http/client)
         "loader.ss"
         )

(define (request-helper request)
  (parameterize (($request request))
    ($query* "s")))

;; we want to take the request's query object (which are quite available through our definitions...) 
;; and then map it to 
(define (make-start base) 
  (lambda (request)
    (let ((scripts (request-helper request)))
      (http-client-response->response 
       (make-http-client-response "1.1" 
                                  200 
                                  "OK" 
                                  '(("Content-Type" . "text/javascript; charset=utf-8"))
                                  (open-javascript-files/base scripts base))
       (lambda (x) x)))))

(provide/contract 
 (make-start (-> path-string? (-> request? response/c)))
 )