fix js repl completion

Author: sprocketc

src/renderer/reepl/replumb.cljs

@@ -237,10 +237,10 @@ cljs.js/*load-fn*
                 (js-attrs proto))))))
 
 (defn js-completion
-  [text]
+  [mode text]
   (let [parts (vec (.split text "."))
         completing (or (last parts) "")
-        prefix #(str "js/" (str/join "." (conj (vec (butlast parts)) %)))
+        prefix #(str (when (= mode :cljs) "js/") (str/join "." (conj (vec (butlast parts)) %)))
         possibles (js-attrs (reduce aget js/window (butlast parts)))]
     (->> possibles
          (filter #(not= -1 (.indexOf % completing)))
@@ -289,10 +289,12 @@ cljs.js/*load-fn*
            (filter matches? names))))))
 
 (defn process-apropos
-  [text]
-  (if (zero? (.indexOf text "js/"))
-    (js-completion (.slice text 3))
-    (cljs-completion text)))
+  [mode text]
+  (case mode
+    :js (js-completion mode text)
+    :cljs (if (zero? (.indexOf text "js/"))
+            (js-completion mode (.slice text 3))
+            (cljs-completion text))))
 
 (defn get-forms
   [m]

src/renderer/reepl/views.cljs

@@ -22,7 +22,7 @@
   []
   [reepl/repl
    :execute #(replumb/run-repl (if (= @(rf/subscribe [:repl-mode]) :cljs) %1 (str "(js/eval \"" %1 "\")")) {:warning-as-error true} %2)
-   :complete-word replumb/process-apropos
+   :complete-word (fn [text] (replumb/process-apropos @(rf/subscribe [:repl-mode]) text))
    :get-docs replumb/process-doc
    :state repl-state
    :show-value-opts