eschulte pushed a commit to branch master
in repository elpa.
commit d693833dd903ee9c0dc599280cfde6da50cb4f1a
Author: Eric Schulte <schulte.e...@gmail.com>
Date: Sat Jan 4 10:51:06 2014 -0700
example serving Org-mode files exported on demand
---
doc/web-server.texi | 15 +++++++++++++--
examples/7-org-mode-file-server.el | 23 +++++++++++++++++++++++
2 files changed, 36 insertions(+), 2 deletions(-)
diff --git a/doc/web-server.texi b/doc/web-server.texi
index b93e4fa..0f5bb9a 100644
--- a/doc/web-server.texi
+++ b/doc/web-server.texi
@@ -159,6 +159,7 @@ These examples demonstrate usage.
* URL Parameter Echo:: Echo Parameters from a URL query string
* POST Echo:: Echo POST parameters back
* Basic Authentication:: BASIC HTTP Authentication
+* Org-mode Export Server:: Export files to HTML and Tex
@end menu
@node Hello World, Hello World UTF8, Usage Examples, Usage Examples
@@ -227,7 +228,8 @@ in a @code{POST} request.
@verbatiminclude ../examples/5-post-echo.el
-@node Basic Authentication, Function Index, POST Echo, Usage Examples
+@node Basic Authentication, Org-mode Export Server, POST Echo, Usage Examples
+@section Basic Authentication
The following example demonstrates BASIC HTTP authentication. The
handler prompts an unauthenticated client for authentication by
@@ -248,10 +250,19 @@ Note: BASIC HTTP authentication passes user credentials
in plain text
between the client and the server and should generally only be used
with HTTPS network encryption. While the Emacs web server currently
doesn't support HTTPS network encryption it may be run behind an HTTPS
-proxy server (e.g., Apache) which does support HTTPS.
+proxy server (e.g., Apache or Nginx) with HTTPS support.
@verbatiminclude ../examples/6-basic-authentication.el
+@node Org-mode Export Server, Function Index, Basic Authentication, Usage
Examples
+@section Org-mode Export Server
+
+The following example exports a directory of Org-mode files as either
+text, HTML or LaTeX. The Org-mode export engine is used to export
+files on-demand as they are requested.
+
+@verbatiminclude ../examples/7-org-mode-file-server.el
+
@node Function Index, Copying, Usage Examples, Top
@chapter Function Index
@cindex function index
diff --git a/examples/7-org-mode-file-server.el
b/examples/7-org-mode-file-server.el
new file mode 100644
index 0000000..856634c
--- /dev/null
+++ b/examples/7-org-mode-file-server.el
@@ -0,0 +1,23 @@
+;;; file-server.el --- serve on-demand exported Org-mode files
+(lexical-let ((docroot default-directory))
+ (ws-start
+ (list
+ (cons '(:GET . ".*")
+ (lambda (request)
+ (with-slots (process headers) request
+ (let ((path (ws-in-directory-p ; check if path is in docroot
+ docroot (substring (cdr (assoc :GET headers)) 1))))
+ (unless path (ws-send-404 process)) ; send 404 if not in docroot
+ (let* ((base (file-name-sans-extension path))
+ (type (case (intern (downcase (file-name-extension path)))
+ (html 'html)
+ (tex 'latex)
+ (txt 'ascii)
+ (t (ws-error process "%S export not supported"
+ (file-name-extension path)))))
+ (orig (concat base ".org")))
+ (unless (file-exists-p orig) (ws-send-404 process))
+ (save-window-excursion (find-file orig)
+ (org-export-to-file type path))
+ (ws-send-file process path)))))))
+ 9007))
