1 ;;; org-agenda.el --- display the Org-mode agenda
2 ;; Copyright (C) 2014 Free Software Foundation, Inc.
8 (with-slots (process headers) request
9 (ws-response-header process 200
10 '("Content-type" . "text/html; charset=utf-8"))
12 (process-send-string process
13 (save-window-excursion
14 (let ((html-buffer (htmlize-buffer)))
15 (prog1 (with-current-buffer html-buffer (buffer-string))
16 (kill-buffer html-buffer)
17 (org-agenda-quit)))))))