Extend repl to take arguments

repl.janet

@@ -1,4 +1,25 @@
 (import spork/netrepl)
+(import spork/msg)
+
+(defn run-commands [sock args]
+  (with [stream (net/connect :unix sock)]
+    (def recv (msg/make-recv stream))
+    (def send (msg/make-send stream))
+    (send (string/format "\xFF%j" {:auto-flush false :name ""}))
+    (def prompt (recv))
+    (each arg args
+      (send (string "\xFF" arg))
+      (def [ok val] (-> (recv)
+                        (parse)))
+      (if (string? val)
+        (print val)
+        (pp val))
+      (unless ok
+        (os/exit 1)))))
+
+(defn main [exe & args]
+  (def sock (string (os/getenv "XDG_RUNTIME_DIR") "/censtablo-" (os/getenv "WAYLAND_DISPLAY")))
+  (if (empty? args)
+     (netrepl/client :unix sock)
+     (run-commands sock args)))
   
-(defn main [exe]
-  (netrepl/client :unix (string (os/getenv "XDG_RUNTIME_DIR") "/censtablo-" (os/getenv "WAYLAND_DISPLAY"))))