code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/011-org-agenda.el

   1 ;;; org-agenda.el --- display the Org-mode agenda
   2 (require 'htmlize)
   3
   4 (ws-start
   5  (lambda (request)
   6    (with-slots (process headers) request
   7      (ws-response-header process 200
   8        '("Content-type" . "text/html; charset=utf-8"))
   9      (org-agenda nil "a")
  10      (process-send-string process
  11        (save-window-excursion
  12          (let ((html-buffer (htmlize-buffer)))
  13            (prog1 (with-current-buffer html-buffer (buffer-string))
  14              (kill-buffer html-buffer)
  15              (org-agenda-quit)))))))
  16  9011)