mount/dev/clj/app/example.clj
anatoly e3066fe024 refactoring mount sample app
drinking more "pure tea"
2016-01-14 00:24:51 -05:00

18 lines
597 B
Clojure

(ns app.example
(:require [clojure.tools.nrepl.server :refer [start-server stop-server]]
[mount.core :as mount :refer [defstate]]
[app.conf :refer [config]]
[app.www])
(:gen-class)) ;; for -main / uberjar (no need in dev)
;; 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 config))
:stop (stop-server nrepl))
;; example of an app entry point
(defn -main [& args]
(mount/start))