Add 'packages/web-server/' from commit 'd0b6ae9df6014db2195da0081dc97cc8246f1fda'

[gnu-emacs-elpa] / packages / web-server / examples / 010-current-buffer.el

diff --git a/packages/web-server/examples/010-current-buffer.el b/packages/web-server/examples/010-current-buffer.el
new file mode 100644 (file)
index 0000000..d9d8646
--- /dev/null
+++ b/packages/web-server/examples/010-current-buffer.el
@@ -0,0 +1,13 @@
+;;; current-buffer.el --- Show the current Emacs buffer
+(require 'htmlize)
+
+(ws-start
+ (lambda (request)
+   (with-slots (process headers) request
+     (ws-response-header process 200
+       '("Content-type" . "text/html; charset=utf-8"))
+     (process-send-string process
+       (let ((html-buffer (htmlize-buffer)))
+         (prog1 (with-current-buffer html-buffer (buffer-string))
+           (kill-buffer html-buffer))))))
+ 9010)