repl-read.clj

(def repl-channel (chan))

(defn make-custom-read []
  (let [pending-read? (volatile! false)]
    (fn [& args]
      (println ":read called" args)
      (if-not @pending-read?
        (go
          (println "calling cljs.repl/repl-read")
          (let [result (apply cljs.repl/repl-read args)]
            (println "put!" result)
            (>!! repl-channel result)
            (vreset! pending-read? false))))
      (<!! repl-channel))))

(defmethod start-cljs-repl :default
  [_ figwheel-env opts]
  (cljs.repl/repl* figwheel-env (assoc opts :read (make-custom-read))))