Move all listeners into core so they can be made private

src/play_clj/core_global.clj

@@ -68,70 +68,6 @@
   [k]
   `(input! :is-key-pressed (key-code ~k)))
 
-(defn ^:private input-processor
-  [{:keys [on-key-down on-key-typed on-key-up on-mouse-moved
-           on-scrolled on-touch-down on-touch-dragged on-touch-up]}
-   execute-fn!]
-  (reify InputProcessor
-    (keyDown [this k]
-      (execute-fn! on-key-down :keycode k)
-      false)
-    (keyTyped [this c]
-      (execute-fn! on-key-typed :character c)
-      false)
-    (keyUp [this k]
-      (execute-fn! on-key-up :keycode k)
-      false)
-    (mouseMoved [this sx sy]
-      (execute-fn! on-mouse-moved :screen-x sx :screen-y sy)
-      false)
-    (scrolled [this a]
-      (execute-fn! on-scrolled :amount a)
-      false)
-    (touchDown [this sx sy p b]
-      (execute-fn! on-touch-down :screen-x sx :screen-y sy :pointer p :button b)
-      false)
-    (touchDragged [this sx sy p]
-      (execute-fn! on-touch-dragged :screen-x sx :screen-y sy :pointer p)
-      false)
-    (touchUp [this sx sy p b]
-      (execute-fn! on-touch-up :screen-x sx :screen-y sy :pointer p :button b)
-      false)))
-
-(defn ^:private gesture-listener
-  [{:keys [on-fling on-long-press on-pan on-pan-stop on-pinch on-tap on-zoom]}
-   execute-fn!]
-  (reify GestureDetector$GestureListener
-    (fling [this vx vy b]
-      (execute-fn! on-fling :velocity-x vx :velocity-y vy :button b)
-      false)
-    (longPress [this x y]
-      (execute-fn! on-long-press :x x :y y)
-      false)
-    (pan [this x y dx dy]
-      (execute-fn! on-pan :x x :y y :delta-x dx :delta-y dy)
-      false)
-    (panStop [this x y p b]
-      (execute-fn! on-pan-stop :x x :y y :pointer p :button b)
-      false)
-    (pinch [this ip1 ip2 p1 p2]
-      (execute-fn! on-pinch
-                   :initial-pointer-1 ip1 :initial-pointer-2 ip2
-                   :pointer1 p1 :pointer2 p2)
-      false)
-    (tap [this x y c b]
-      (execute-fn! on-tap :x x :y y :count c :button b)
-      false)
-    (touchDown [this x y p b]
-      false)
-    (zoom [this id d]
-      (execute-fn! on-zoom :initial-distance id :distance d)
-      false)))
-
-(defn ^:private gesture-detector
-  [options execute-fn!]
-  (proxy [GestureDetector] [(gesture-listener options execute-fn!)]))
-
 (defn ^:private add-input!
   [^InputProcessor p]
   (let [^InputMultiplexer multi (input! :get-input-processor)]