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

[gnu-emacs-elpa] / packages / web-server / examples / 011-org-agenda.el

diff --git a/packages/web-server/examples/011-org-agenda.el b/packages/web-server/examples/011-org-agenda.el
new file mode 100644 (file)
index 0000000..2c7467d
--- /dev/null
+++ b/packages/web-server/examples/011-org-agenda.el
@@ -0,0 +1,16 @@
+;;; org-agenda.el --- display the Org-mode agenda
+(require 'htmlize)
+
+(ws-start
+ (lambda (request)
+   (with-slots (process headers) request
+     (ws-response-header process 200
+       '("Content-type" . "text/html; charset=utf-8"))
+     (org-agenda nil "a")
+     (process-send-string process
+       (save-window-excursion
+         (let ((html-buffer (htmlize-buffer)))
+           (prog1 (with-current-buffer html-buffer (buffer-string))
+             (kill-buffer html-buffer)
+             (org-agenda-quit)))))))
+ 9011)