attendant/src/attendant/main.clj

(ns attendant.main
  (:require
   [com.stuartsierra.component :as component]
   [attendant.server :as server]
   [attendant.nrepl-component :as nrepl])
  (:gen-class))

(def port 2424)

(def nrepl-port 7288)

(defonce system
  (atom nil))

(defn main-system [& {:keys [dev]}]
  (component/system-map
   :server (server/map->Server {:port port
                                :dev dev})
   :nrepl (nrepl/map->NreplServer {:port nrepl-port})))

(defn -main []
  (println "starting main system")
  (reset!
   system
   (component/start
    (main-system))))