(use awful intarweb spiffy) (define (send-gzipped-file file) (if (memq 'gzip (header-values 'accept-encoding (request-headers (current-request)))) (with-headers `((content-encoding gzip)) (lambda () (send-static-file file))) (send-response code: 406 body: "