Added :Doc command

Author: jebberjeb

socket-repl-plugin/TODO

@@ -12,7 +12,9 @@ TODO alpha
 	[X] Name vim functions correctly
 	[X] create prod & debug plugin.vim
 	[X] add debug switch (var) to socket-repl-plugin.clj
-	[_] implement doc (word under cursor)
+    [_] errors in the middle of a buffer
+    can be lost - wrap in eval?
+	[X] implement doc (word under cursor)
 	[_] Pass host, port in connect
 	[_] Update README
 		[X] Move NVIM_LISTEN... stuff to a debug section

socket-repl-plugin/plugin/socketrepl.vim

@@ -41,9 +41,16 @@ function! ReplLog()
 endfunction
 command! ReplLog call ReplLog()
 
+function! Doc()
+    let res = rpcrequest(1, 'doc', [])
+    return res
+endfunction
+command! Doc call Doc()
+
 if !exists('g:disable_socket_repl_mappings')
     nnoremap <leader>eb :EvalBuffer<cr>
     nnoremap <leader>ef :EvalCode<cr>
+    nnoremap <leader>doc :Doc<cr>
 
     function! ShowLog()
         vnew

socket-repl-plugin/plugin/socketrepl.vim.debug

@@ -25,9 +25,16 @@ function! ReplLog()
 endfunction
 command! ReplLog call ReplLog()
 
+function! Doc()
+    let res = rpcrequest(1, 'doc', [])
+    return res
+endfunction
+command! Doc call Doc()
+
 if !exists('g:disable_socket_repl_mappings')
     nnoremap <leader>eb :EvalBuffer<cr>
     nnoremap <leader>ef :EvalCode<cr>
+    nnoremap <leader>doc :Doc<cr>
 
     function! ShowLog()
         vnew

socket-repl-plugin/socket-repl-plugin-0.1.0-SNAPSHOT-standalone.jar

@@ -154,7 +154,11 @@
    (nvim/register-method!
      "doc"
      (fn [msg]
-       ))
+       (nvim/get-current-word-async
+         (fn [word]
+           (let [code (format "(clojure.repl/doc  %s)" word)]
+             (write-output! (str code "\n"))
+             (write-code! code))))))
 
    (nvim/register-method!
      "show-log"
@@ -173,7 +177,7 @@
       (Thread/sleep 30000)
       (let [elapsed-msec (- (System/currentTimeMillis)
                             (:last @current-connection))]
-        (when (> elapsed-msec (* 10 60000))
+        (when (< elapsed-msec (* 10 60000))
           (recur))))
 
     ;; Let nvim know we're shutting down.