From a5f2fa6cb33905b82cb50cb2a62e6801006da565 Mon Sep 17 00:00:00 2001
From: anatoly <tolitius@gmail.com>
Date: Wed, 21 Oct 2015 07:32:51 -0400
Subject: [PATCH] adding nrepl; (stop) before tn/refresh(es)

---
 dev/dev.clj               | 12 ++++++++++--
 project.clj               |  7 ++++---
 test/app/app.clj          | 11 +++++++++++
 test/resources/config.edn |  5 ++++-
 4 files changed, 29 insertions(+), 6 deletions(-)

diff --git a/dev/dev.clj b/dev/dev.clj
index 9966bad..a56d883 100644
--- a/dev/dev.clj
+++ b/dev/dev.clj
@@ -12,7 +12,7 @@
             [clojure.string :as str]
             [clojure.test :as test]
             ;; [clojure.core.async :refer [>!! <!! >! <! go-loop alt! timeout]]
-            [clojure.tools.namespace.repl :refer [refresh refresh-all]]
+            [clojure.tools.namespace.repl :as tn]
             [mount :as app]
             [app :refer :all]))  ;; <<<< replace this your "app" namespace(s) you want to be available at REPL time
 
@@ -22,6 +22,14 @@
 (defn stop []
   (app/stop))
 
+(defn refresh []
+  (stop)
+  (tn/refresh))
+
+(defn refresh-all []
+  (stop)
+  (tn/refresh-all))
+
 (defn go
   "Initializes and starts the system running."
   []
@@ -32,4 +40,4 @@
   "Stops the system, reloads modified source files, and restarts it."
   []
   (stop)
-  (refresh :after 'dev/go))
+  (tn/refresh :after 'dev/go))
diff --git a/project.clj b/project.clj
index c026177..b2e8e88 100644
--- a/project.clj
+++ b/project.clj
@@ -7,11 +7,12 @@
   :source-paths ["src" "src/mount"]
 
   :dependencies [[org.clojure/clojure "1.7.0"]
+                 [ch.qos.logback/logback-classic "1.1.3"]
+                 [org.clojure/tools.logging "0.3.1"]
                  [org.clojure/tools.macro "0.1.2"]
                  [org.clojure/tools.namespace "0.2.11"]]
   
   :profiles {:dev {:source-paths ["dev" "test/app"]
                    :dependencies [[yesql "0.5.1"]
-                                  [com.datomic/datomic-free "0.9.5327" :exclusions [joda-time]]
-                                  [ch.qos.logback/logback-classic "1.1.3"]
-                                  [org.clojure/tools.logging "0.3.1"]]}})
+                                  [org.clojure/tools.nrepl "0.2.11"]
+                                  [com.datomic/datomic-free "0.9.5327" :exclusions [joda-time]]]}})
diff --git a/test/app/app.clj b/test/app/app.clj
index 83e0f7d..85c19e8 100644
--- a/test/app/app.clj
+++ b/test/app/app.clj
@@ -1,9 +1,20 @@
 (ns app
   (:require [datomic.api :as d]
+            [clojure.tools.nrepl.server :refer [start-server stop-server]]
+            [mount :refer [defstate]]
             [app.utils.datomic :refer [touch]]
             [app.config :refer [app-config]]
             [app.nyse :as nyse]))
 
+;; 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))
+
+;; datomic schema
 (defn create-schema [conn]
   (let [schema [{:db/id #db/id [:db.part/db]
                  :db/ident :order/symbol
diff --git a/test/resources/config.edn b/test/resources/config.edn
index ef0ca66..e927032 100644
--- a/test/resources/config.edn
+++ b/test/resources/config.edn
@@ -20,4 +20,7 @@
    :exchange-type "direct"
    :vhost "/captoman"
    :username "guest"
-   :password "guest"}}
+   :password "guest"}
+
+ :nrepl {:host "0.0.0.0"
+         :port 7878}}