     [:tr
      [:td (:tick @state)]]]])
 
+(defn button-row
+  [state x]
+  [:div.button-row {:key x}
+   (doall
+    (for [y (range 8)]
+      (button x y state)))])
+
 (defn main-component
   [state]
   (let [{:keys [tick activity-log] :as state-value} @state]

    :value    "Play animation"
    :on-click #(ws/send-transit-msg! {:action "play-animation"})}])

(defn app-debugger
  [state]
  [:table

     [:div#buttons
      (doall
       (for [x (range 8)]
         (button-row state x)))]
     ;;[anim-button]
     ;;[#(app-debugger state)]
     [:div#activity-log
