code.delx.au - gnu-emacs-elpa/blob - examples/3-file-server.el

   1 ;;; file-server.el --- serve any files using Emacs Web Server
   2 ;; This example uses absolute paths and will try to serve files from
   3 ;; the root of the file-system, so don't run it on a public server.
   4 (ews-start
   5  '(((:GET . ".*") .
   6     (lambda (proc request) (ews-send-file proc (cdr (assoc :GET request))))))
   7  9004)