Added touch support

Author: Prodge

src/baller/core.cljs

@@ -64,9 +64,9 @@
         (recur new-score))))))
 
 (defn titlescreen-thread []
-  (go-while (not (is-pressed? :space))
+  (go-while (and (not (is-pressed? :space)) (not (state/touching?)))
     (m/with-sprite canvas :ui
-      [press-space (pf/make-text :small "Press Space to Start"
+      [press-space (pf/make-text :small "Press Space or Touch to Start"
                                 :scale 2
                                 :visible false
                                 :y 150)

src/baller/events.cljs

@@ -2,11 +2,27 @@
   (:require [goog.events :as events]
             [goog.events.EventType :as event-type]
             [infinitelives.utils.coordinates :refer [origin-top-left->center]]
-            [baller.state :refer [set-mouse-position!]]))
+            [baller.state :refer [set-mouse-position! set-touch-status!]]))
+
+; Handlers
 
 (defn mouse-move-handler [event]
   (set-mouse-position!
     (origin-top-left->center (.-clientX event) (.-clientY event))))
 
+(defn touch-status-handler [status event]
+  (set-touch-status! status))
+
+; Listeners
+
 (defn mouse-listener []
   (events/listen js/window event-type/MOUSEMOVE mouse-move-handler))
+
+(defn touch-listener []
+  (events/listen js/window event-type/TOUCHMOVE mouse-move-handler))
+
+(defn touch-start-listener []
+  (events/listen js/window event-type/TOUCHSTART (partial touch-status-handler true)))
+
+(defn touch-end-listener []
+  (events/listen js/window event-type/TOUCHEND (partial touch-status-handler false)))

src/baller/init.cljs

@@ -5,7 +5,7 @@
             [cljs.core.async :refer [<!]]
             [goog.events :as events]
             [goog.events.EventType :as event-type]
-            [baller.events :refer [mouse-listener]]
+            [baller.events :as e]
             [baller.canvas :refer [canvas]])
     (:require-macros [cljs.core.async.macros :refer [go]]
                      [infinitelives.pixi.pixelfont :as pf]))
@@ -27,4 +27,7 @@
   (t/set-texture! :ball (r/get-texture :ball :nearest)))
 
 (defn handlers []
-  (mouse-listener))
+  (e/mouse-listener)
+  (e/touch-listener)
+  (e/touch-start-listener)
+  (e/touch-end-listener))

src/baller/state.cljs

@@ -7,6 +7,7 @@
                         :bounces 0
                         :bounce-protection 0
                         :playing false
+                        :touch-status false
                         :mouse {:x 9999 :y 9999}})
 
 (defonce game-state (atom default-state))
@@ -37,6 +38,9 @@
 (defn set-gravity! [gravity]
   (swap! game-state assoc :gravity gravity))
 
+(defn set-touch-status! [status]
+  (swap! game-state assoc :touch-status status))
+
 
 ; State queries
 
@@ -54,3 +58,6 @@
 
 (defn playing? []
   (:playing @game-state))
+
+(defn touching? []
+  (:touch-status @game-state))