Skip to content

Commit

Permalink
Merge branch 'figwheel-nrepl-middleware'
Browse files Browse the repository at this point in the history
  • Loading branch information
Bruce Hauman committed Nov 13, 2017
2 parents 829f920 + 130af78 commit a759228
Show file tree
Hide file tree
Showing 2 changed files with 17 additions and 7 deletions.
20 changes: 15 additions & 5 deletions sidecar/src/figwheel_sidecar/repl.clj
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@

[figwheel-sidecar.cljs-utils.exception-parsing :as cljs-ex]
[figwheel-sidecar.components.figwheel-server :as server]

[figwheel-sidecar.utils :refer [require?]]
[figwheel-sidecar.config :as config]
[strictly-specking-standalone.ansi-util :refer [with-color-when color]] )
(:import [clojure.lang IExceptionInfo]))
Expand Down Expand Up @@ -159,10 +159,20 @@
(defmethod start-cljs-repl :nrepl
[_ figwheel-env]
(try
(require 'cemerick.piggieback)
(let [cljs-repl (resolve 'cemerick.piggieback/cljs-repl)
opts' (:repl-opts figwheel-env)]
(apply cljs-repl figwheel-env (apply concat opts')))
(cond
(and (require? 'figwheel.tools.nrepl)
(when-let [present-var (resolve 'figwheel.tools.nrepl/*cljs-evaluator*)]
(thread-bound? present-var)))
(let [cljs-repl (resolve 'figwheel.tools.nrepl/cljs-repl)
opts' (:repl-opts figwheel-env)]
(apply cljs-repl figwheel-env (apply concat opts')))
(and (require? 'cemerick.piggieback)
(when-let [present-var (resolve 'cemerick.piggieback/*cljs-repl-env*)]
(thread-bound? present-var)))
(let [cljs-repl (resolve 'cemerick.piggieback/cljs-repl)
opts' (:repl-opts figwheel-env)]
(apply cljs-repl figwheel-env (apply concat opts')))
:else (throw (ex-info "Unable to load a ClojureScript nREPL middleware library" {})))
(catch Exception e
(println "!!!" (.getMessage e))
(let [message "Failed to launch Figwheel CLJS REPL: nREPL connection found but unable to load piggieback.
Expand Down
4 changes: 2 additions & 2 deletions sidecar/src/figwheel_sidecar/utils.clj
Original file line number Diff line number Diff line change
Expand Up @@ -38,8 +38,8 @@
(require symbol)
true
(catch Exception e
(println (.getMessage e))
(.printStackTrace e)
#_(println (.getMessage e))
#_(.printStackTrace e)
false)))

(defn silent-fail-require! [symbol]
Expand Down

0 comments on commit a759228

Please sign in to comment.