 
 (defn move-player-paddle
   [state direction]
-  ;(log "move-player-paddle")
   (if (= direction :down)
     (update-in state [:player :y] + speed)
     (update-in state [:player :y] - speed)))
 
 (defn start-game
   [state]
-  ;(log "start-game")
   (if (= 2 (count (:ball state)))
     (as-> state state
       (assoc-in state [:ball :x-dir] (rand-nth [+ -]))

(defn on-collision [state]
  (let [ball-x (:x (:ball state))
        ball-y (:y (:ball state))
        top-wall (+ 9 7.5)
        btm-wall (- 490 7.5)
        new-y-dir (if (= + (:y-dir (:ball state))) - +)]
    ;Check wall collision
    (if (not (and (> ball-y top-wall)
                  (< ball-y btm-wall)))
      (as-> state state
        (assoc-in state [:ball :y-dir] new-y-dir)
        (if (= (:y-dir (:ball state)) +)
          (assoc-in state [:ball :y] top-wall)
          (assoc-in state [:ball :y] btm-wall)))
      state)))

(defn draw-game
  [state]
  ;(log "draw-game")

  (do
    (q/rect-mode :corner)
    (q/fill 255)

(def ball-speed 2)

(defn init-game []
  (do
    (q/rect-mode :corner)
    ;Create background and outline
