Add prompting Doc command

For those cases where you want to look up the docs for a symbol that is
not currently in use.

The rename of Doc to DocCursor is to reflect the fact that Doc before
this commit was really a way to query the docstring of symbol under
cursor. Also the use of Doc for the prompting version of docstring
lookup matches the use of Eval for the prompting version of evaluating
code.

Author: mdiin

plugin/socketrepl.vim

@@ -113,7 +113,10 @@ command! DismissReplLog call ReadyDismissReplLog()
 
 function! Doc()
   ReplLog
-  let res = rpcnotify(g:nvim_tcp_plugin_channel, 'doc', [])
+  call inputsave()
+  let symbol = input('Doc for: ')
+  call inputrestore()
+  let res = rpcnotify(g:nvim_tcp_plugin_channel, 'doc', [symbol])
   return res
 endfunction
 
@@ -126,11 +129,26 @@ function! ReadyDoc()
 endfunction
 command! Doc call ReadyDoc()
 
+function! DocCursor()
+  ReplLog
+  let res = rpcnotify(g:nvim_tcp_plugin_channel, 'doc-cursor', [])
+  return res
+endfunction
+
+function! ReadyCursorDoc()
+  if g:socket_repl_plugin_ready == 1
+    call DocCursor()
+  else
+    echo s:not_ready
+  endif
+endfunction
+command! DocCursor call ReadyCursorDoc()
+
 if !exists('g:disable_socket_repl_mappings')
+  nnoremap K :DocCursor<cr>
   nnoremap <leader>e :Eval<cr>
   nnoremap <leader>eb :EvalBuffer<cr>
   nnoremap <leader>ef :EvalForm<cr>
-  nnoremap <leader>doc :Doc<cr>
   nnoremap <leader>rlog :ReplLog<cr>
   nnoremap <leader>drlog :DismissReplLog<cr>
 endif

src/socket_repl/socket_repl_plugin.clj

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