[elpa] 22/119: file serving example

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit df14b9531b3dc7ce0796086d2516503b87ea34e9
Author: Eric Schulte <address@hidden>
Date:   Wed Dec 18 23:20:25 2013 -0700

    file serving example
---
 examples/4-file-server.el |   20 ++++++++++++++++++++
 1 files changed, 20 insertions(+), 0 deletions(-)

diff --git a/examples/4-file-server.el b/examples/4-file-server.el
new file mode 100644
index 0000000..877bc76
--- /dev/null
+++ b/examples/4-file-server.el
@@ -0,0 +1,20 @@
+;;; file-server.el --- serve any files using Emacs Web Server
+
+;; Copyright (C) 2013 Eric Schulte <address@hidden>
+
+;; Author: Eric Schulte <address@hidden>
+;; Keywords: http post
+;; License: GPLV3 (see the COPYING file in this directory)
+
+;;; Commentary
+
+;; This example uses absolute paths and will try to serve files from
+;; the root of the file-system, so don't run it on a public server.
+
+;;; Code:
+(require 'emacs-web-server)
+
+(ews-start
+ '(((:GET . ".*") .
+    (lambda (proc request) (ews-send-file proc (cdr (assoc :GET request))))))
+ 9004)