blob: b9b38db71c528d7cf90cd3fcf259530f84ee26bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(ns chameleon.server
(:require [chameleon.config :refer [config]]
[chameleon.handler :refer [handler]]
[config.core :refer [env]]
[org.httpkit.server :refer [run-server]]
[integrant.core :as ig])
(:gen-class))
(defn -main [& args]
(let [port (Integer/parseInt (or (env :http-port) "8082"))
system-config (read-string (slurp (System/getenv "CONFIG_LOCATION" )))
event-config (:event-config system-config)
route-config (:gallifrey-host system-config)]
(println "Listening on port" port)
(ig/init (config {
:event-config event-config
:gallifrey-host route-config
:http-port port}))))
|