adding nrepl; (stop) before tn/refresh(es)
This commit is contained in:
parent
4748a7ff97
commit
a5f2fa6cb3
4 changed files with 29 additions and 6 deletions
12
dev/dev.clj
12
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))
|
||||
|
|
|
|||
|
|
@ -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]]]}})
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -20,4 +20,7 @@
|
|||
:exchange-type "direct"
|
||||
:vhost "/captoman"
|
||||
:username "guest"
|
||||
:password "guest"}}
|
||||
:password "guest"}
|
||||
|
||||
:nrepl {:host "0.0.0.0"
|
||||
:port 7878}}
|
||||
|
|
|
|||
Loading…
Reference in a new issue