eschulte pushed a commit to branch master
in repository elpa.
commit 12304e97b3ffd10fa1d7ace70241b83f756f830a
Author: Eric Schulte <[email protected]>
Date: Thu Jan 16 18:40:55 2014 -0700
manual application of x-gzip content encoding
---
examples/016-content-encoding-gzip.el | 30 ++++++++++++++++++++++++++++++
1 files changed, 30 insertions(+), 0 deletions(-)
diff --git a/examples/016-content-encoding-gzip.el
b/examples/016-content-encoding-gzip.el
new file mode 100644
index 0000000..2d0d21e
--- /dev/null
+++ b/examples/016-content-encoding-gzip.el
@@ -0,0 +1,30 @@
+;;; content-encoding-gzip.el -- manual application of gzip content encoding
+(ws-start
+ (lambda (request)
+ (cl-flet ((gzip (s)
+ (with-temp-buffer
+ (insert s)
+ (shell-command-on-region
+ (point-min) (point-max) "gzip" nil 'replace)
+ (buffer-string))))
+ (with-slots (process headers) request
+ (ws-response-header process 200
+ '("Content-type" . "text/plain; charset=utf-8")
+ '("Content-Encoding" . "x-gzip"))
+ (let ((s "Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
Donec
+hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
+nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
+natoque penatibus et magnis dis parturient montes, nascetur
+ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
+diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
+vestibulum accumsan nisl.
+
+Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
+hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
+nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
+natoque penatibus et magnis dis parturient montes, nascetur
+ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
+diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
+vestibulum accumsan nisl."))
+ (process-send-string process (gzip s))))))
+ 9016)
