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