Add show source commands

Author: mdiin

plugin/socketrepl.vim

@@ -144,8 +144,42 @@ function! ReadyCursorDoc()
 endfunction
 command! DocCursor call ReadyCursorDoc()
 
+function! Source()
+  ReplLog
+  call inputsave()
+  let symbol = input('Source for: ')
+  call inputrestore()
+  let res = rpcnotify(g:nvim_tcp_plugin_channel, 'source', [symbol])
+  return res
+endfunction
+
+function! ReadySource()
+  if g:socket_repl_plugin_ready == 1
+    call Source()
+  else
+    echo s:not_ready
+  endif
+endfunction
+command! Source call ReadySource()
+
+function! SourceCursor()
+  ReplLog
+  let res = rpcnotify(g:nvim_tcp_plugin_channel, 'source-cursor', [])
+  return res
+endfunction
+
+function! ReadyCursorSource()
+  if g:socket_repl_plugin_ready == 1
+    call SourceCursor()
+  else
+    echo s:not_ready
+  endif
+endfunction
+command! SourceCursor call ReadyCursorSource()
+
 if !exists('g:disable_socket_repl_mappings')
   nnoremap K :DocCursor<cr>
+  nnoremap [d :SourceCursor<cr>
   nnoremap <leader>e :Eval<cr>
   nnoremap <leader>eb :EvalBuffer<cr>
   nnoremap <leader>ef :EvalForm<cr>

src/socket_repl/socket_repl_plugin.clj

@@ -173,6 +173,29 @@
               (let [code (format "(clojure.repl/doc %s)" word)]
                 (async/>!! code-channel code)))))))
 
+    (nvim/register-method!
+      nvim
+      "source"
+      (run-command
+        plugin
+        (fn [msg]
+          (let [code (format "(clojure.repl/source %s)" (-> msg
+                                                            message/params
+                                                            ffirst))]
+            (async/>!! code-channel code)))))
+
+    (nvim/register-method!
+      nvim
+      "source-cursor"
+      (run-command
+        plugin
+        (fn [msg]
+          (api-ext/get-current-word-async
+            nvim
+            (fn [word]
+              (let [code (format "(clojure.repl/source %s)" word)]
+                (async/>!! code-channel code)))))))
+
     (nvim/register-method!
       nvim
       "show-log"