 (enable-console-print!)
 
 (def app-state {:automaton {:grid {:width 10 :height 10 :cells {}}
-                            :display {:width 600 :height 600}
+                            :display {:width 580 :height 580}
                             :util {:started false}}
                 :command {}})
 

                           :width (get-in data [:automaton :display :width])
                           :height
                           (get-in data [:automaton :display :height])}})))
             (dom/div
              #js {:className "col-sm-10"}
              (dom/div
               #js {:className "row"}
               (om/build grid-view
                         (:automaton data)
                         {:init-state
                          {:cell-state-changed (:cell-state-changed state)
                           :default-cell
                           (a/default-cell automaton-spec)}}))))))))))


(declare unrestricted-language-parser-customization)

                       :className "btn btn-primary btn-lg btn-block"
                       :onClick #(put! (:started state) (not started))}
                  (if started "Stop" "Start"))))
              (dom/hr nil)
              (dom/div
               #js {:className "row"}
