Serve static files

priv/dispatch.conf

@@ -1,3 +1,4 @@
 %% -*- mode: erlang -*-
 
+{["static", '*'], 'elmdap-static', []}.
 {["uid", uid], 'elmdap-uid', []}.

src/elmdap-static.lfe

@@ -0,0 +1,30 @@
+(defmodule elmdap-static
+  (export (init 1)
+          (content_types_provided 2)
+          (resource_exists 2)
+          (to_bytes 2)))
+
+(include-lib "webmachine/include/webmachine.hrl")
+
+(defun init (args)
+  #(ok undefined))
+
+(defun content_types_provided (req-data state)
+  `#([#("application/javascript" to_bytes)
+      #("text/html" to_bytes)]
+     ,req-data ,state))
+
+(defun resource_exists (req-data state)
+  (let* ((path (map-path (wrq:disp_path req-data)))
+         (exists? (filelib:is_file path)))
+    `#(,exists? ,req-data ,state)))
+
+(defun to_bytes (req-data state)
+  (let ((`#(ok ,bytes) (file:read_file
+                        (map-path (wrq:disp_path req-data)))))
+    (tuple bytes req-data state)))
+
+(defun map-path (path)
+  (let* ((`#(ok ,app) (application:get_application 'elmdap-static))
+         (priv (code:priv_dir app)))
+    (filename:join priv path)))