Make NS switching command configurable

It is not always desirable to eval the entire NS declaration, so this
commit makes it configurable whether to use `in-ns` or eval it entirely.

Author: mdiin

plugin/socketrepl.vim

@@ -2,6 +2,7 @@ let s:p_dir = expand('<sfile>:p:h')
 let g:is_running = 0
 let g:socket_repl_plugin_ready = 0
 let g:nvim_tcp_plugin_channel = 0
+let g:eval_entire_ns_decl = 0 " 0 = SwitchBufferNS uses `in-ns`. 1 = SwitchBufferNS evals entire ns declaration
 
 let s:not_ready = "SocketREPL plugin not ready (starting)"
 
@@ -177,6 +178,19 @@ function! ReadyCursorSource()
 endfunction
 command! SourceCursor call ReadyCursorSource()
 
+function! SwitchBufferNS()
+  call rpcnotify(g:nvim_tcp_plugin_channel, 'switch-buffer-ns', [])
+endfunction
+
+function! ReadySwitchBufferNS()
+  if g:socket_repl_plugin_ready == 1
+    call SwitchBufferNS()
+  else
+    echo s:not_ready
+  endif
+endfunction
+command! SwitchBufferNS call ReadySwitchBufferNS()
+
 if !exists('g:disable_socket_repl_mappings')
   nnoremap K :DocCursor<cr>
   nnoremap [d :SourceCursor<cr>

src/socket_repl/socket_repl_plugin.clj

@@ -234,15 +234,19 @@
 
     (nvim/register-method!
       nvim
-      "eval-buffer-ns"
+      "switch-buffer-ns"
       (run-command
         plugin
         (fn [msg]
           (let [buffer-name (api/get-current-buf nvim)
                 file-name (api.buffer/get-name nvim buffer-name)
                 file (io/file file-name)
-                namespace-declarations (namespace.find/find-ns-decls-in-dir file)]
-            (async/>!! (socket-repl/input-channel socket-repl) (first namespace-declarations))))))
+                namespace-declaration (first (namespace.find/find-ns-decls-in-dir file))
+                eval-entire-declaration? (= 1 (api/get-var nvim "eval_entire_ns_decl"))
+                code-form (if eval-entire-declaration?
+                            namespace-declaration
+                            `(clojure.core/in-ns '~(second namespace-declaration)))]
+            (async/>!! (socket-repl/input-channel socket-repl) code-form)))))
 
     (nvim/register-method!
       nvim