joker.http/start-file-server

std/http.joke

@@ -26,3 +26,10 @@
   {:added "1.0"
   :go "startServer(addr, handler)"}
   [^String addr ^Callable handler])
+
+(defn start-file-server
+  "Starts HTTP server on the TCP network address addr that
+  serves HTTP requests with the contents of the file system rooted at root."
+  {:added "1.0"
+  :go "startFileServer(addr, root)"}
+  [^String addr ^String root])

std/http/a_http.go

@@ -24,6 +24,22 @@ var send_ Proc = func(args []Object) Object {
   return NIL
 }
 
+var start_file_server_ Proc = func(args []Object) Object {
+  c := len(args)
+  switch  {
+  case c == 2:
+
+    addr := ExtractString(args, 0)
+    root := ExtractString(args, 1)
+    res := startFileServer(addr, root)
+    return res
+
+  default:
+    PanicArity(c)
+  }
+  return NIL
+}
+
 var start_server_ Proc = func(args []Object) Object {
   c := len(args)
   switch  {
@@ -62,6 +78,12 @@ httpNamespace.InternVar("send", send_,
   - headers (map)
   - content-length (int)`, "1.0"))
 
+httpNamespace.InternVar("start-file-server", start_file_server_,
+  MakeMeta(
+    NewListFrom(NewVectorFrom(MakeSymbol("addr"), MakeSymbol("root"))),
+    `Starts HTTP server on the TCP network address addr that
+  serves HTTP requests with the contents of the file system rooted at root.`, "1.0"))
+
 httpNamespace.InternVar("start-server", start_server_,
   MakeMeta(
     NewListFrom(NewVectorFrom(MakeSymbol("addr"), MakeSymbol("handler"))),

std/http/http_native.go

@@ -158,3 +158,9 @@ func startServer(addr string, handler Callable) Object {
 	PanicOnErr(err)
 	return NIL
 }
+
+func startFileServer(addr string, root string) Object {
+	err := http.ListenAndServe(addr, http.FileServer(http.Dir(root)))
+	PanicOnErr(err)
+	return NIL
+}