Send form(s) to clojure socket repl

socket-send-macro.clj

;;; https://clojure.org/reference/repl_and_main#_launching_a_socket_server
;;; -Dclojure.server.repl="{:port 5555 :accept clojure.core.server/repl}"


(defmacro send-forms [host port form & forms]
  `(with-open [socket# (java.net.Socket. ~host ~port)]
     (let [pw# (java.io.PrintWriter. (.getOutputStream socket#) true)
           in# (java.io.BufferedReader. (java.io.InputStreamReader. (.getInputStream socket#)))
           forms# (list ~(str form) ~@(map str forms))]
       (reduce
        (fn [acc# f#]
          (.println pw# f#)
          (conj acc# (clojure.string/replace-first (.readLine in#) "user=> " "")))
        []
        forms#))))


;;=> (send-forms "localhost" 5555
;;            (defn double [x] (+ x x))
;;            (double 10))