     (init-state
       [_]
       {:config-changed (chan)
-       :width (:width data)
-       :height (:height data)
+       :year-period (:year-period data)
        :corp-quantity (:corp-quantity data)})
     om/IWillMount
     (will-mount [_]

            reset-c (om/get-state owner :reset)]
        (go
          (while true
            (let [corp-quantity (<! config-c)]
              (om/transact! data #(assoc % :corp-quantity corp-quantity))
              (put! reset-c true))))))
    om/IRenderState
    (render-state [_ {:keys [corp-quantity config-changed
                             command-info-channel]
                      :as state}]
      (let [started (:started data)]

         (partial render-cellular-automaton
                  (gen-app-view
                   a/market-model market-model-customization)
                  {:corp-quantity 4
                   :year-period 12}))))))

(defn render-menu-view
  []
