mount/test/app/app.clj

19 lines
599 B
Clojure
Raw Normal View History

2015-10-20 12:53:09 +00:00
(ns app
(: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-10-20 12:53:09 +00:00
[app.config :refer [app-config]]
[app.www])
(:gen-class)) ;; for -main / uberjar (no need in dev)
2015-10-20 01:33:56 +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
(defstate nrepl :start (start-nrepl (:nrepl app-config))
:stop (stop-server nrepl))
2015-10-26 02:21:36 +00:00
;; example of an app entry point
(defn -main [& args]
(mount/start))