Add input handling in a separate thread.

sjl · Aug 4, 2012 · fc2fd4c · fc2fd4c
1 parent 20d1191
commit fc2fd4c
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/src/ruin/core.clj b/src/ruin/core.clj
@@ -33,12 +33,21 @@
     (recur)))
 
 
+(defn handle-input [input]
+  (when (= input \q)
+    (dosync (alter game dissoc :state))
+    (s/stop (:screen @game))))
+
+(defn input-loop []
+  (handle-input (s/get-key-blocking (:screen @game)))
+  (when (:state @game)
+    (recur)))
+
+
 (defn run-game []
   (let [screen (:screen @game)]
     (future (draw-loop))
-    (s/get-key-blocking screen)
+    (future (input-loop))))
-    (dosync (alter game dissoc :state))
-    (s/stop screen)))
 
 
 (defn main []