luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removing tools.namespace dep

Browse source
This commit is contained in:
anatoly 2015-11-22 21:38:52 -05:00
parent 5db4c853db
commit ca4375c482
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
project.clj
View file

@ -9,10 +9,10 @@
:dependencies [[org.clojure/clojure "1.7.0"] :dependencies [[org.clojure/clojure "1.7.0"]
[ch.qos.logback/logback-classic "1.1.3"] [ch.qos.logback/logback-classic "1.1.3"]
[org.clojure/tools.logging "0.3.1"] [org.clojure/tools.logging "0.3.1"]
[org.clojure/tools.macro "0.1.2"] [org.clojure/tools.macro "0.1.2"]]
[org.clojure/tools.namespace "0.2.11"]]
:profiles {:dev {:source-paths ["dev" "test/app"] :profiles {:dev {:source-paths ["dev" "test/app"]
:dependencies [[yesql "0.5.1"] :dependencies [[yesql "0.5.1"]
[org.clojure/tools.namespace "0.2.11"]
[org.clojure/tools.nrepl "0.2.11"] [org.clojure/tools.nrepl "0.2.11"]
[com.datomic/datomic-free "0.9.5327" :exclusions [joda-time]]]}}) [com.datomic/datomic-free "0.9.5327" :exclusions [joda-time]]]}})

6
src/mount/core.clj
View file

@ -1,16 +1,16 @@
(ns mount.core (ns mount.core
(:require [clojure.tools.macro :as macro] (:require [clojure.tools.macro :as macro]
[clojure.tools.namespace.repl :refer [disable-reload!]]
[clojure.tools.logging :refer [info warn debug error]])) [clojure.tools.logging :refer [info warn debug error]]))
(disable-reload!)
;; (defonce ^:private session-id (System/currentTimeMillis)) ;; (defonce ^:private session-id (System/currentTimeMillis))
(defonce ^:private mount-state 42) (defonce ^:private mount-state 42)
(defonce ^:private -args (atom :no-args)) ;; mostly for command line args and external files (defonce ^:private -args (atom :no-args)) ;; mostly for command line args and external files
(defonce ^:private state-seq (atom 0)) (defonce ^:private state-seq (atom 0))
(defonce ^:private state-order (atom {})) (defonce ^:private state-order (atom {}))
;; supporting tools.namespace: (disable-reload!)
(alter-meta! *ns* assoc ::load false) ;; to exclude the dependency
(defn- make-state-seq [state] (defn- make-state-seq [state]
(or (@state-order state) (or (@state-order state)
(let [nseq (swap! state-seq inc)] (let [nseq (swap! state-seq inc)]