Add Unix Domain Socket support

Author: jebberjeb

src/socket_repl/socket_repl_plugin.clj

@@ -77,7 +77,7 @@
   (:code-channel plugin))
 
 (defn start
-  [{:keys [debug nvim repl-log socket-repl code-channel] :as plugin}]
+  [{:keys [nvim repl-log socket-repl code-channel] :as plugin}]
 
   ;; Wire sub-component io.
   (log-start
@@ -191,9 +191,8 @@
     plugin))
 
 (defn new
-  [debug nvim repl-log socket-repl]
+  [nvim repl-log socket-repl]
   {:nvim nvim
    :repl-log repl-log
    :socket-repl socket-repl
-   :debug debug
    :code-channel (async/chan 1024)})

src/socket_repl/system.clj

@@ -2,26 +2,34 @@
   "The system created by wiring various components together." 
   (:require
     [clojure.core.async :as async]
+    [clojure.tools.logging :as log]
     [neovim-client.nvim :as nvim]
     [socket-repl.socket-repl-plugin :as plugin]
     [socket-repl.repl-log :as repl-log]
     [socket-repl.socket-repl :as socket-repl])
   (:gen-class))
 
-(defn new-system
-  [debug]
-  ;; TODO - separate new & start in nvim
-  (let [nvim (if debug
-               (nvim/new "localhost" 7777)
-               (nvim/new))
-        socket-repl (socket-repl/start (socket-repl/new))
+(defn new-system*
+  [nvim]
+  (let [socket-repl (socket-repl/start (socket-repl/new))
         repl-log (repl-log/start (repl-log/new socket-repl))
-        plugin (plugin/start (plugin/new debug nvim repl-log socket-repl))]
+        plugin (plugin/start (plugin/new nvim repl-log socket-repl))]
     {:nvim nvim
      :repl-log repl-log
      :socket-repl socket-repl
      :plugin plugin}))
 
+(defn new-system
+  ([]
+   (log/info "starting plugin using STDIO")
+   (new-system* (nvim/new)))
+  ([uds-filepath]
+   (log/info "starting plugin using UDS" uds-filepath)
+   (new-system* (nvim/new uds-filepath)))
+  ([host port]
+   (log/info (format "starting plugin using TCP socket %s:%s" host port))
+   (new-system* (nvim/new host port))))
+
 (defn stop
   [{:keys [nvim plugin repl-log socket-repl] :as system}]
   (plugin/stop plugin)
@@ -31,4 +39,6 @@
 
 (defn -main
   [& args]
-  (new-system false))
+  (if (= 1 (count args))
+    (new-system (first args))
+    (new-system)))

src/user.clj

@@ -15,7 +15,7 @@
 (defn go
   "Start the plugin."
   []
-  (reset! system-atom (system/new-system true)))
+  (reset! system-atom (system/new-system "localhost" 7777)))
 
 (defn stop
   []