2015-12-08 00:50:03 +00:00
|
|
|
(ns app.example
|
2015-12-16 23:16:17 +00:00
|
|
|
(:require [clojure.tools.nrepl.server :refer [start-server stop-server]]
|
2015-11-17 05:09:45 +00:00
|
|
|
[mount.core :as mount :refer [defstate]]
|
2015-12-08 00:50:03 +00:00
|
|
|
[app.conf :refer [config]]
|
2016-01-14 05:24:09 +00:00
|
|
|
[app.www])
|
2015-12-16 23:16:17 +00:00
|
|
|
(:gen-class)) ;; for -main / uberjar (no need in dev)
|
2015-10-20 01:33:56 +00:00
|
|
|
|
2015-10-21 11:32:51 +00:00
|
|
|
;; example on creating a network REPL
|
|
|
|
|
(defn- start-nrepl [{:keys [host port]}]
|
|
|
|
|
(start-server :bind host :port port))
|
|
|
|
|
|
|
|
|
|
;; nREPL is just another simple state
|
2015-12-08 00:50:03 +00:00
|
|
|
(defstate nrepl :start (start-nrepl (:nrepl config))
|
2015-10-21 11:32:51 +00:00
|
|
|
:stop (stop-server nrepl))
|
|
|
|
|
|
2015-10-26 02:21:36 +00:00
|
|
|
;; example of an app entry point
|
|
|
|
|
(defn -main [& args]
|
|
|
|
|
(mount/start))
|