                   (go-loop []
                            (let [interval-ms (-> plot-state m/sync-interval-ms (or 30000))
                                  timeout-ch  (timeout interval-ms)
-                                 [_ ch]      (alts! [timeout-ch ctrl-ch])]
+                                 [v ch]      (alts! [timeout-ch ctrl-ch])]
                              (condp = ch
-                               timeout-ch (let [plot-data (s/data sigma-instance)]
-                                            (>! merge-plot-data [id plot-data])
+                               timeout-ch (do
+                                            (prn (str "merging plot " id))
+                                            (>! merge-plot-data [id (s/data sigma-instance)])
                                             (recur))
-                               _ )))
+                               ctrl-ch    (when v
+                                            (prn (str "merging plot " id))
+                                            (>! merge-plot-data [id (s/data sigma-instance)])
+                                            (recur)))))
 
                   (swap! sigma-state assoc id
                          {:sigma     sigma-instance

                             :title      "Add plot"
                             :hidden     (>= (m/plot-count state) 4)
                             :class-name "material-icons mdl-badge mdl-button--icon"} "add"]

                      [:div {:on-click #(go (>! fill-plots :click))
                             :title      "Generate plots"
                             :class-name "material-icons mdl-badge mdl-button--icon"} "new_releases"]

                      [:button {:id "more-vert-btn"
                                :title      "More options"

          [:div {:class-name "mdl-grid mdl-cell mdl-cell--12-col-desktop mdl-cell--12-col-tablet mdl-cell--4-col-phone mdl-cell--top"}
           (for [[idx [id plot-state]] (->> (m/plots state)
                                            (map-indexed vector))]
             (condp = (m/plot-type plot-state)
               :sigma (Sigma [plot-state id idx] cmd-chans)))]]]))

(defcomponent Menu
              [state {:keys [debug]}]
