Merge pull request #2 from j0ni/repl

Add a repl for debugging and introspecting

Author: yogthos

project.clj

@@ -4,7 +4,8 @@
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[org.clojure/clojure "1.6.0"]
-                 [clj-sockets "0.1.0"]]
+                 [clj-sockets "0.1.0"]
+                 [org.clojure/tools.nrepl "0.2.8"]]
   :main ^:skip-aot chat-server.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all}})

src/chat_server/core.clj

@@ -1,5 +1,6 @@
 (ns chat-server.core
-  (:require [clj-sockets.core :as socket])
+  (:require [clj-sockets.core :as socket]
+            [chat-server.repl :as repl])
   (:gen-class))
 
 (def clients (ref {}))
@@ -42,6 +43,7 @@
   (let [port 1234
         server-socket (socket/create-server port)]
     (println "Listening on port" port)
+    (repl/start-repl 7001)
     (loop [client (socket/listen server-socket)]
       ;; TODO: improve debugging inside this future
       (future (new-client client))

src/chat_server/repl.clj

@@ -0,0 +1,11 @@
+(ns chat-server.repl
+  (:require [clojure.tools.nrepl.server :as nrepl]))
+
+(defn start-repl
+  "Start a repl on a port for debugging."
+  [port]
+  (try
+    (nrepl/start-server :port port)
+    (println "REPL started on port" port)
+    (catch Throwable t
+      (println (.getMessage t)))))