bugpile-controller.el 547 B

123456789101112131415161718
  1. ;;; bugpile-controller -- elnode handlers and such for handling web
  2. ;;; POST/GET requests
  3. ;; (defvar bugpile-controller-docroot-handler nil)
  4. (defun bugpile-controller-init-handler (httpcon)
  5. "Serves the start-page of the Bugpile application"
  6. (elnode-send-file httpcon
  7. (iorg--org-to-html
  8. (concat
  9. (iorg-projects--get-project-info
  10. "bugpile" :view)
  11. "index.org"))))
  12. ;; TODO move urls from iorg to bugpile
  13. (provide 'bugpile-controller)