cat toy can be off.

This commit is contained in:
Bryce Covert
2015-11-06 07:37:39 -08:00
parent 2d042e5efe
commit 51998792a8
4 changed files with 20 additions and 18 deletions

View File

@@ -1,28 +1,27 @@
(ns advent.core.desktop-launcher
(:require [advent.core :refer :all]
[advent.utils :as utils]
#_[clojure.tools.nrepl.server])
[clojure.tools.nrepl.server])
(:import [com.badlogic.gdx.backends.lwjgl LwjglApplication LwjglApplicationConfiguration]
[org.lwjgl.input Keyboard]
[com.badlogic.gdx Gdx])
(:gen-class))
#_(defmacro start-nrepl-expr [port]
`(let [{port# :port} (clojure.tools.nrepl.server/start-server :port ~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#)))
(defn -main
[& [port]]
#_(try
(when port (start-nrepl-expr (Integer/parseInt port)))
(try
#_(require 'clojure.tools.nrepl.server)
(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
(do