 
 (defn hero-classes [app]
   (let [
-        left-class (when (= :left (get-in app [:hero :move]))
+        left-class (when (> 0 (get-in app [:hero :dx]))
           "left "
           )]
-    (if (get-in app [:hero :move])
+    (if (moving? (app :hero))
       (str "hero " left-class "step-" (step-class app))
       (str "hero " left-class)
       )

     ]
    ))

(defn current-blocks [position]
  (let [[left right] (hero-feet-coords position)
        app @app-state]
    [(get-in app (into [:grid] left)) (get-in app (into [:grid] right))]


(def app-state (atom {:text "Hello Chestnut!"
                      :hero {:move false
                             :dx 0
                             :dy 0
                             :life 100
                             :position (hero-start-position grid-content)
                             :jump {:time nil :bottom nil}
