       [_]
       {:config-changed (chan)
        :year-period (:year-period data)
+       :stop-after (:stop-after data)
        :corp-quantity (:corp-quantity data)})
     om/IWillMount
     (will-mount [_]

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

               :disabled started
               :onChange
               #(handle-int-config-change % owner state :year-period)})
         (dom/label nil "Stop after iteration (0 - never)")
         (dom/input
          #js {:type "text" :className "form-control" :value stop-after
               :disabled started
               :onChange
               #(handle-int-config-change % owner state :stop-after)})
         (dom/button
          #js {:type "button" :className "btn btn-danger btn-lg btn-block"
               :disabled started
               :onClick #(do (put! config-changed
                                   [corp-quantity year-period stop-after])
                             (put! command-info-channel
                                   {:type :change-corp-quantity
                                    :cmd corp-quantity}))}
