       )
     ))
 
+(defn blocked? [original-hero hero]
+  (if (in-block? (get-in hero [:position]) 1)
+    (update-in hero [:position :left] (fn[_] (get-in original-hero [:position :left])))
+    hero
+    ))
+
 (defn move-right [hero]
   (let [left-position (get-in hero [:position :left])]
     (if (moving? hero)

    ))

(defn logger [key hero]
  ;;(console-log {key (get-in hero [:position :left])})
  hero
  )


              blue-trampete (get-in @app [:settings :blue-trampete])
              settings (get-in @app [:settings])
              new-hero (-> original-hero
                           ;;((partial vertical-block original-hero))
                           move-left
                           move-right
                           ;;((partial bouncing bounce))
                           ((partial on-blue-trampete? blue-trampete))
                           ((partial on-red-trampete? red-trampete))
                           on-ground?
                           grav
                           ;;spike-damage
                           ;;((partial time-up? original-hero app))
                           ;;((partial home? original-hero))
                           ((partial blocked? original-hero))
                           ;;((partial game-over? original-hero))
                           )]
          (om/transact! app [:hero] (fn [hero] (merge hero new-hero)))
          )
        (recur)
