basic http server

srv/content/file_io.hy

@@ -0,0 +1,32 @@
+(import bleach [clean])
+(import mimetypes [guess-type])
+(import subprocess [check-output])
+(import re [sub])
+(import os [environ :as hy-env])
+
+(setv (get hy-env "PATH") (+ (get hy-env "PATH") ":./www/site/scripts"))
+
+(defn execute-bash [data] 
+  (sub r"\$\[(.*?)\]" (fn [sequence] 
+    (. (check-output (.group sequence 1) :shell True :executable "/bin/bash" :env hy-env) (decode) (strip))) 
+    data))
+
+(defn parse-html-file [path #** kwargs]
+  (with [f (open path "r")]
+    (setv data (.read f)))
+  
+  (for [[k v] (.items kwargs)]
+    (setv data (.replace data f"{"{"}{k}{"}"}" (str v))))
+  
+  (execute-bash data))
+
+(defn send-raw-file [path]
+  (setv [mime-type _] (guess-type path))
+  
+  (when (not mime-type)
+    (setv mime-type "text/plain"))
+  
+  (with [f (open path "rb")]
+    (setv data (.read f)))
+  
+  (return #({"Content-Type" mime-type "Cache-Control" "max-age=0, stale-while-revalidate=31536000"} data)))