Randomize port on REPL start

Author: tonsky

dev/user.clj

@@ -1,5 +1,7 @@
 (ns user
   (:require
+    [clojure.core.server :as server]
+    [clojure.java.io :as io]
     [clojure.test :as t]
     [clojure.tools.namespace.repl :as ns]))
 
@@ -31,6 +33,22 @@
        (println (str "#p" (position) " " '~form " => (" (- (System/currentTimeMillis) t#) " ms) " res#)))
      res#))
 
+(defn -main [& args]
+  ;; setup repl
+  (let [args (apply array-map args)
+        port (or
+               (some-> (get args "--port") parse-long)
+               (+ 1024 (rand-int 64512)))
+        file (io/file ".repl-port")]
+    (println "Started Server Socket REPL on port" port)
+    (spit file port)
+    (.deleteOnExit file)
+    (server/start-server
+      {:name          "repl"
+       :port          port
+       :accept        'clojure.core.server/repl
+       :server-daemon false})))
+
 (defn test-all []
   (reload)
   (t/run-all-tests #"datascript\..*"))

script/repl.sh

@@ -2,5 +2,4 @@
 set -o errexit -o nounset -o pipefail
 cd "`dirname $0`/.."
 
-echo "Starting Socket REPL server on port 5555"
-clj -A:1.11.1:dev:test:bench -X clojure.core.server/start-server :name repl :port 5555 :accept clojure.core.server/repl :server-daemon false
+clj -A:1.11.1:dev:test:bench -M -m user