Fix :ReplLog command

Author: jebberjeb

socket-repl-plugin/README.md

@@ -44,6 +44,7 @@ are available to create your own mappings:
 :EvalForm
 :ReplLog
 ```
+
 Unlike the `<leader>rlog` mapping, the `:ReplLog` command simply adds the repl
 log to the current pane.
 

socket-repl-plugin/plugin/socketrepl.vim

@@ -47,9 +47,7 @@ if !exists('g:disable_socket_repl_mappings')
 
     function! ShowLog()
         vnew
-        ReplLog
-        norm 
-        norm 
+        call ReplLog()
     endfunction
     nnoremap <leader>rlog :call ShowLog()<cr>
 endif

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

@@ -31,9 +31,7 @@ if !exists('g:disable_socket_repl_mappings')
 
     function! ShowLog()
         vnew
-        ReplLog
-        norm 
-        norm 
+        call ReplLog()
     endfunction
     nnoremap <leader>rlog :call ShowLog()<cr>
 endif

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

@@ -158,9 +158,10 @@
      (fn [msg]
        (update-last!)
        (nvim/run-command-async!
-         (format ":term tail -f %s" (-> @current-connection
-                                        :file
-                                        .getAbsolutePath))
+         (format ":call termopen('tail -f %s') | stopinsert | exe \"normal \\<C-w>\\<C-x>\""
+                 (-> @current-connection
+                     :file
+                     .getAbsolutePath))
          (fn [_]))
 
        ;; Native solution, but only seems to work when the buffer has focus.
@@ -179,7 +180,7 @@
       (Thread/sleep 30000)
       (let [elapsed-msec (- (System/currentTimeMillis)
                             (:last @current-connection))]
-        (when (< elapsed-msec 60000)
+        (when (> elapsed-msec (* 10 60000))
           (recur))))
 
     ;; Let nvim know we're shutting down.