27 lines
840 B
Clojure
27 lines
840 B
Clojure
(ns auto-ap.server
|
|
(:require #_[auto-ap.background.mail :refer [always-process-sqs]]
|
|
[auto-ap.handler :refer [app]]
|
|
[auto-ap.ledger]
|
|
[auto-ap.yodlee.core]
|
|
[auto-ap.background.invoices]
|
|
[auto-ap.square.core]
|
|
[nrepl.server :refer [start-server stop-server]]
|
|
[config.core :refer [env]]
|
|
[ring.adapter.jetty :refer [run-jetty]]
|
|
[clojure.tools.logging :as log]
|
|
[unilog.config]
|
|
[mount.core :as mount])
|
|
(:gen-class))
|
|
|
|
|
|
|
|
(mount/defstate port :start (Integer/parseInt (or (env :port) "3000")))
|
|
(mount/defstate jetty
|
|
:start (run-jetty app {:port port :join? false})
|
|
:stop (.stop jetty)
|
|
)
|
|
|
|
(defn -main [& args]
|
|
(start-server :port 9000 :bind "0.0.0.0" #_#_:handler (cider-nrepl-handler))
|
|
(mount/start))
|