CLJS-1112: :repl-requires option for REPL evaluation environment

support :repl-requires to cljs.repl/repl. If repls supply via IReplEnvOptions
concatenate.

fix bREPL printing

Author: swannodette

src/clj/cljs/repl.clj

@@ -644,7 +644,8 @@
       (.printStackTrace e))))
 
 (defn repl*
-  [repl-env {:keys [init need-prompt prompt flush read eval print caught reader print-no-newline source-map-inline wrap]
+  [repl-env {:keys [init need-prompt prompt flush read eval print caught reader
+                    print-no-newline source-map-inline wrap repl-requires]
              :or {init #()
                   need-prompt #(if (readers/indexing-reader? *in*)
                                  (== (readers/get-column-number *in*) 1)
@@ -659,15 +660,18 @@
                            (PushbackReader. (io/reader *in*))
                            1 "NO_SOURCE_FILE")
                   print-no-newline print
-                  source-map-inline true}
+                  source-map-inline true
+                  repl-requires '[[cljs.repl :refer-macros [source doc find-doc apropos dir pst]]]}
              :as opts}]
-  (let [{:keys [analyze-path repl-verbose warn-on-undeclared special-fns static-fns] :as opts
+  (let [repl-opts (-repl-options repl-env)
+        repl-requires (into repl-requires (:repl-requires repl-opts))
+        {:keys [analyze-path repl-verbose warn-on-undeclared special-fns static-fns] :as opts
          :or   {warn-on-undeclared true}}
         (merge
           {:cache-analysis true :source-map true}
           (cljsc/add-implicit-options
             (merge-with (fn [a b] (if (nil? b) a b))
-              (-repl-options repl-env)
+              repl-opts
               opts
               {:init init
                :need-prompt prompt
@@ -730,8 +734,8 @@
                    (analyze-source analyze-path opts))
                  (evaluate-form repl-env env "<cljs repl>"
                    (with-meta
-                     '(ns cljs.user
-                        (:require [cljs.repl :refer-macros [source doc find-doc apropos dir pst]]))
+                     `(~'ns ~'cljs.user
+                        (:require ~@repl-requires))
                      {:line 1 :column 1})
                    identity opts)
                  (catch Throwable e

src/clj/cljs/repl/browser.clj

@@ -122,7 +122,8 @@
   (send ordering (fn [_] {:expecting nil :fns {}}))
   (send-for-eval conn
     (cljsc/-compile
-      '[(set! *print-fn* clojure.browser.repl/repl-print)] {})
+      '[(set! *print-fn* clojure.browser.repl/repl-print)
+        (set! *print-newline* true)] {})
     identity))
 
 (defn add-in-order [{:keys [expecting fns]} order f]
@@ -496,6 +497,10 @@ goog.events.getProxy/f<@http://localhost:9000/out/goog/events/events.js:276:16"
   repl/IJavaScriptEnv
   (-setup [this opts]
     (setup this opts))
+  repl/IReplEnvOptions
+  (-repl-options [this]
+    {:repl-requires
+     '[[clojure.browser.repl]]})
   repl/IParseStacktrace
   (-parse-stacktrace [this st err opts]
     (parse-stacktrace this st err opts))