 
 (defn ^:export run []
   (r/render-component [main-component world-atom]
-                    (.getElementById js/document "container")))
+                      (.getElementById js/document "container")))

  (swap! world-atom move direction))

(defn main-component [world-atom]
  (let [{:keys [game-over? grid score] :as world} @world-atom
        button (fn [dir]
                 (let [f #(do (move! world-atom dir)
                              (.preventDefault %))]
                   [:button {:class (name dir), :on-click f, :on-touch-start f} (name dir)]))]
    [:div.main
     {:class (when game-over? "game-over")}


      {:key (str "line-" y)}
      (for [[x cell] (map vector (iterate inc 0) line)]
        [:div.cell
         {:key   (str "cell-" x)
          :class (when-not (= cell \ )
                   (str "taken block-" cell))}])])])

