Add simple static file server

This commit is contained in:
heyarne 2020-05-03 14:11:18 +02:00
commit 5241cae418
4 changed files with 30 additions and 848 deletions

1
.gitignore vendored
View file

@ -1,3 +1,4 @@
report.html
# Created by https://www.gitignore.io/api/clojure,emacs # Created by https://www.gitignore.io/api/clojure,emacs
# Edit at https://www.gitignore.io/?templates=clojure,emacs # Edit at https://www.gitignore.io/?templates=clojure,emacs

View file

@ -1,4 +1,7 @@
{:paths ["src"] {:paths ["src" "resources"]
:deps {thheller/shadow-cljs {:mvn/version "2.8.109"} :deps {thheller/shadow-cljs {:mvn/version "2.8.109"}
appliedscience/js-interop {:mvn/version "0.2.5"} appliedscience/js-interop {:mvn/version "0.2.5"}
reagent {:mvn/version "1.0.0-alpha1"}}} reagent {:mvn/version "1.0.0-alpha1"}
http-kit {:mvn/version "2.3.0"}
compojure {:mvn/version "1.6.1"}}}

File diff suppressed because one or more lines are too long

View file

@ -0,0 +1,24 @@
(ns heyarne.all-my-friends.server
(:require [org.httpkit.server :as http]
[compojure.core :as router]
[compojure.route :as route])
#_(:gen-class))
(router/defroutes app
#_(router/GET "/" []
{:status 200
:body "Hello world"})
(route/files "/")
(route/not-found "Not found."))
(defonce server (atom nil))
(defn stop-server []
(when-not (nil? @server)
(@server :timeout 100)
(reset! server nil)))
(defn -main [& args]
(reset! server (http/run-server #'app {:port 8081})))
#_(-main)