Serve static files from static/

And assume they're HTML.

webshit.lisp

@@ -211,6 +211,15 @@
 
 (register-handler (mangle-path "/buckets/") 'serve-bucket)
 
+;;; Static files
+
+(defun serve-file (env) ; This is dum
+  (if (uiop:file-exists-p (make-absolute (getf env :request-uri)))
+      (list 200 '(:content-type "text/html") (make-absolute (getf env :request-uri)))
+      (http-status 404)))
+
+(register-handler (mangle-path "/static/") 'serve-file)
+
 ;;; server!
 
 (defun app (env)