code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/016-content-encoding-gzip.el

   1 ;;; content-encoding-gzip.el -- gzip content encoding
   2 (ws-start
   3  (lambda (request)
   4    (with-slots (process headers) request
   5      (ws-response-header process 200
   6        '("Content-type" . "text/plain; charset=utf-8")
   7        '("Content-Encoding" . "x-gzip"))
   8      (let ((s "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
   9 hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
  10 nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
  11 natoque penatibus et magnis dis parturient montes, nascetur
  12 ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
  13 diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
  14 vestibulum accumsan nisl.
  15
  16 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
  17 hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
  18 nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
  19 natoque penatibus et magnis dis parturient montes, nascetur
  20 ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
  21 diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
  22 vestibulum accumsan nisl."))
  23        (ws-send process s))))
  24  9016)