cljs.repl/add-lib

mfikes · May 4, 2018 · d68c939 · d68c939
1 parent 132d3aa
commit d68c939
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/main/clojure/cljs/cli.clj b/src/main/clojure/cljs/cli.clj
@@ -608,6 +608,8 @@ present"
   sequence of command line flags."
   [repl-env & args]
   (try
+    (let [cl (.getContextClassLoader (Thread/currentThread))]
+      (.setContextClassLoader (Thread/currentThread) (clojure.lang.DynamicClassLoader. cl)))
     (let [commands (merged-commands repl-env)]
       (if args
         (loop [[opt arg & more :as args] (normalize commands args) inits []]

diff --git a/src/main/clojure/cljs/repl.cljc b/src/main/clojure/cljs/repl.cljc
@@ -1371,3 +1371,13 @@ str-or-pattern."
              (-parse-error repl-env ret *repl-opts*)
              ret)
            nil *repl-opts*))))))
+
+(defmacro add-lib
+  [[quote lib] coord]
+  (try
+    (require 'clojure.tools.deps.alpha.repl)
+    (when-let [add-lib (resolve 'clojure.tools.deps.alpha.repl/add-lib)]
+      (add-lib lib coord))
+    (catch Exception e
+      (.printStackTrace e)
+      nil)))