better nrepl.

desktop/src/advent/core/desktop_launcher.clj

@@ -1,7 +1,7 @@
 (ns advent.core.desktop-launcher
   (:require [advent.core :refer :all]
             [advent.utils :as utils]
-            #_[clojure.tools.nrepl.server])
+            )
   (:import [com.badlogic.gdx.backends.lwjgl LwjglApplication LwjglApplicationConfiguration]
            [org.lwjgl.input Keyboard]
            [com.badlogic.gdx Gdx])
@@ -9,18 +9,22 @@
 
 
 
+
+
 (defn -main
   [& [port]]
-  #_(try
-    
-    (when port (let [{port :port} (clojure.tools.nrepl.server/start-server :port (Integer/parseInt port))]
-     (doseq [port-file ["target/repl-port" ".nrepl-port"]]
-       (-> port-file
-           java.io.File.
-           (doto .deleteOnExit)
-           (spit port)))
-     (println "Started nREPL server on port" port)))
-    (catch Exception e))
+  (when (System/getProperty "use-repl")
+    (eval `(require 'clojure.tools.nrepl.server))
+    (eval `(try
+             
+             (when ~port (let [{port# :port} (clojure.tools.nrepl.server/start-server :port (Integer/parseInt ~port))]
+                          (doseq [port-file# ["target/repl-port" ".nrepl-port"]]
+                            (-> port-file#
+                                java.io.File.
+                                (doto .deleteOnExit)
+                                (spit port#)))
+                          (println "Started nREPL server on port" port#)))
+             (catch Exception e#))))
 
   (let [cfg (LwjglApplicationConfiguration.)]
     (if false