WIP - add repl log buffer

Author: jebberjeb

socket-repl-plugin/plugin/socketrepl.vim

@@ -34,4 +34,11 @@ function! EvalCode()
 endfunction
 command! EvalCode call EvalCode()
 
+function! ReplLog()
+    "call StartIfNotRunning()
+    let res = rpcrequest(1, 'show-log', [])
+    return res
+endfunction
+command! ReplLog call ReplLog()
+
 echo 'socket repl plugin loaded!'

socket-repl-plugin/src/socket_repl/socket_repl_plugin.clj

@@ -39,9 +39,9 @@
 
 (defn write-output
   "Write a string to the output file."
-  [{:keys [:file]} string]
-  (.print file string)
-  (.flush file))
+  [{:keys [:file-stream]} string]
+  (.print file-stream string)
+  (.flush file-stream))
 
 (defn write-output!
   "Like `write-output`, but uses the current socket repl connection."
@@ -56,12 +56,14 @@
   `handler` is a function which accepts one string argument."
   [host port handler]
   (let [conn (connection host port)
-        chan (async/chan 10)]
+        chan (async/chan 10)
+        file (output-file)]
     (reset! current-connection
             (assoc conn
                    :handler handler
                    :chan chan
-                   :file (PrintStream. (output-file))))
+                   :file file
+                   :file-stream (PrintStream. file)))
 
     ;; input producer
     (go-loop []
@@ -105,6 +107,26 @@
            (write-output! (str x "\n"))
            (write-code! x)))))
 
+   (nvim/register-method!
+     "show-log"
+     (fn [msg]
+
+       (nvim/run-command-async!
+         (format ":term tail -f %s" (-> @current-connection
+                                        :file
+                                        .getAbsolutePath))
+         (fn [_]))
+
+       ;; Native solution, but only seems to work when the buffer has focus.
+       #_(nvim/run-command-async!
+         (format ":e %s" (-> @current-connection
+                             :file
+                             .getAbsolutePath))
+         (fn [_]
+           (nvim/run-command-async!
+             ":set updatetime=500 | au CursorHold <buffer> :e!"
+             (fn [_] nil))))))
+
   ;; TODO: Rather than an arbitrary timeout, the plugin should shut down
   ;; when it has received no input for some time.
   (comment