gistfile1.clj

(ns myprj.data.core
  (:require myprj.data.conf :as conf]
            [myprj.data.routes :as routes])
  (:use [ring.adapter.jetty :only [run-jetty]]))

(let [port (Integer/parseInt (get (System/getenv) "PORT" "8080"))]
  (defonce ^:dynamic *server* (run-jetty #'routes/core
                                         {:port port :join? false
                                          :host (:domain conf/site)})))

(defn start [] (.start *server*))
(defn stop [] (.stop *server*))

(defn -main
  "Entry point for the web application"
  []
  (do (stop) (start)))