You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
924 B
Clojure
33 lines
924 B
Clojure
(ns com.darklimericks.server.core
|
|
(:gen-class)
|
|
(:require [integrant.core :as ig]
|
|
[reitit.coercion]
|
|
[reitit.coercion.spec]
|
|
[taoensso.timbre :as timbre]
|
|
[clojure.java.io :as io]
|
|
[org.httpkit.server :as kit]))
|
|
|
|
(defmethod ig/init-key ::server [_ {:keys [handler] :as opts}]
|
|
(timbre/info (format "Starting server on port %d" (:port opts)))
|
|
(kit/run-server handler (dissoc opts :handler)))
|
|
|
|
(defmethod ig/halt-key! ::server [_ server]
|
|
(timbre/info "Stopping server.")
|
|
(server))
|
|
|
|
|
|
(defn -main []
|
|
(try
|
|
(let [system (->> "server/config.edn"
|
|
io/resource
|
|
slurp
|
|
ig/read-string
|
|
ig/prep
|
|
ig/init)]
|
|
(timbre/info "Running with config: server/config.edn" )
|
|
system)
|
|
(catch Throwable e
|
|
(.printStackTrace e)
|
|
(System/exit 1))))
|
|
|