From bbf06c46b1a82a3d6b477e55327d48bb069ee437 Mon Sep 17 00:00:00 2001
From: anatoly <tolitius@gmail.com>
Date: Mon, 23 Nov 2015 13:28:17 -0500
Subject: [PATCH] [dev.clj]: (with-logging-status) on start

---
 dev/dev.clj                |  6 ++----
 test/app/utils/logging.clj | 17 ++++++-----------
 2 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/dev/dev.clj b/dev/dev.clj
index ee0b160..7b23b0a 100644
--- a/dev/dev.clj
+++ b/dev/dev.clj
@@ -1,8 +1,6 @@
 (ns dev
   "Tools for interactive development with the REPL. This file should
-  not be included in a production build of the application."
-  ;; (:use [cljs.repl :only [repl]]
-  ;;       [cljs.repl.browser :only [repl-env]])
+   not be included in a production build of the application."
   (:require [clojure.java.io :as io]
             [clojure.java.javadoc :refer [javadoc]]
             [clojure.pprint :refer [pprint]]
@@ -11,7 +9,6 @@
             [clojure.set :as set]
             [clojure.string :as str]
             [clojure.test :as test]
-            ;; [clojure.core.async :refer [>!! <!! >! <! go-loop alt! timeout]]
             [clojure.tools.namespace.repl :as tn]
             [check.parts-test]
             [check.start-with-test]
@@ -21,6 +18,7 @@
             [app :refer [create-nyse-schema find-orders add-order]]))  ;; <<<< replace this your "app" namespace(s) you want to be available at REPL time
 
 (defn start []
+  (with-logging-status)
   (mount/start-without #'check.start-with-test/test-conn
                        #'check.start-with-test/test-nrepl
                        #'check.parts-test/should-not-start
diff --git a/test/app/utils/logging.clj b/test/app/utils/logging.clj
index c68e67e..7a1307d 100644
--- a/test/app/utils/logging.clj
+++ b/test/app/utils/logging.clj
@@ -1,5 +1,6 @@
-(ns app.utils.logging
-  (:require [robert.hooke :refer [add-hook clear-hooks]]
+(ns app.utils.logging          ;; << change to your namespace/path 
+  (:require [mount.core]
+            [robert.hooke :refer [add-hook clear-hooks]]
             [clojure.string :refer [split]]
             [clojure.tools.logging :refer [info]]))
 
@@ -37,15 +38,9 @@
     #'mount.core/sigstop
     #'mount.core/sigcont})
 
-(defn with-logging-status []
-  (doall (map #(add-hook % log-status) lifecycle-fns)))
-
 (defn without-logging-status []
   (doall (map #(clear-hooks %) lifecycle-fns)))
 
-
-;; here is just to illustrate lificycle of states in REPL
-;; if needed in reality will be called in "-main" or another entry point
-
-(without-logging-status)
-(with-logging-status)
+(defn with-logging-status []
+  (without-logging-status)
+  (doall (map #(add-hook % log-status) lifecycle-fns)))