rearrange main.clj

integration-tests
Josha von Gizycki 6 years ago
parent 0571b5949e
commit fd4ad4a236

@ -3,7 +3,26 @@
[wanijo.handler :as wanijo]) [wanijo.handler :as wanijo])
(:gen-class)) (:gen-class))
(defn -main [& args] (defonce server (atom nil))
(defn start-server!
[& {:keys [port
join?]
:or {port 3080
join? true}}]
(reset! server
(run-jetty wanijo/standalone-app (run-jetty wanijo/standalone-app
{:port (Integer/valueOf (or (System/getenv "port") {:port port
"3080"))})) :join? join?})))
(defn start-server-dev! []
(start-server! :join? false
:port 8080))
(defn stop-server []
(.stop @server))
(defn -main [& args]
(start-server! :port (Integer/valueOf (or (System/getenv "port")
"3080"))
:join? false))

Loading…
Cancel
Save