   :on-touch-down
   (fn [screen entities]
     (let [brick (get-entity-at-cursor screen entities)]
-      (remove #(= brick %) entities)
-      )
-    ))
+      (remove #(= brick %) entities))))
 
 (defgame totem-destroyer-game
   :on-create

                          :world (box-2d 0 5)
                          :debug-renderer (Box2DDebugRenderer.))
          brick (texture "1x1-transparent.png")
          brick-1 (doto (create-brick-entity! screen brick 275 435 30 30)
                    (body-position! (/ 275 world-scale) (/ 435 world-scale) 0))
          brick-2 (doto (create-brick-entity! screen brick 365 435 30 30)
                    (body-position! (/ 365 world-scale) (/ 435 world-scale) 0))
          brick-3 (doto (create-brick-entity! screen brick 275 395 120 30)
                    (body-position! (/ 275 world-scale) (/ 395 world-scale) 0))
          brick-4 (doto (create-brick-entity! screen brick 305 365 60 30)
                    (body-position! (/ 305 world-scale) (/ 365 world-scale) 0))
          brick-5 (doto (create-brick-entity! screen brick 275 335 90 30)
                    (body-position! (/ 275 world-scale) (/ 335 world-scale) 0))
          brick-6 (doto (create-brick-entity! screen brick 275 280 120 60)
                    (body-position! (/ 275 world-scale) (/ 280 world-scale) 0))
          idol (doto {:body (create-idol-body! screen 320 242)})
          floor (doto {:body (create-floor-body! screen 320 470 640 20)})]

(defn get-entity-at-cursor
  [screen entities]
  (let [coords (input->screen screen (input! :get-x) (input! :get-y))]
    (find-first (fn [{:keys [body width height brick?] :as entity}]
                  (-> (rectangle (x (body! body :get-position)) (y (body! body :get-position)) width height)
                      (rectangle! :contains (:x coords) (:y coords))
                      (and brick?)))
                entities)))
