                   "Start"]]]]]
              [:.col-sm-6
               [:form.form-horizontal
-               [:.form-group
-                [:.col-sm-12
-                 [:label.checkbox
-                  [:input.custom-checkbox
-                   {:type      "checkbox"
-                    :checked   (when (:remove-edges? settings) "checked")
-                    :on-change #(om/update! settings :remove-edges? (.. % -target -checked))}]
-                  [:span.icons
-                   [:span.icon-checked]
-                   [:span.icon-unchecked]]
-                  "Remove edges?"]]]
-               [:.form-group
-                [:.col-sm-12
-                 [:label.checkbox
-                  [:input.custom-checkbox
-                   {:type      "checkbox"
-                    :checked   (when (:remove-nodes? settings) "checked")
-                    :on-change #(om/update! settings :remove-nodes? (.. % -target -checked))}]
-                  [:span.icons
-                   [:span.icon-checked]
-                   [:span.icon-unchecked]]
-                  "Remove nodes?"]]]]]]]])))))
+               (checkbox settings [:remove-edges?] "Remove edges?")
+               (checkbox settings [:remove-nodes?] "Remove nodes?")]]]]])))))
 
 (defmulti mutation-view :operation)
 

            [:.row
             [:.col-sm-6
              [:form.form-horizontal
               [:.form-group
                [:label.control-label {:class label-class :for :input-lr}
                 "Learning rate"]
                [:div {:class field-class}
                 [:input.form-control#input-lr
                  {:value     (:learning-rate settings)
                   :on-change #(om/update! settings :learning-rate (.. % -target -value))}]]]

               [:.form-group
                [:label.control-label {:class label-class :for :input-momentum}
                 "Momentum"]
                [:div {:class field-class}
                 [:input.form-control#input-momentum
                  {:value     (:momentum settings)
                   :on-change #(om/update! settings :momentum (.. % -target -value))}]]]

               [:.form-group
                [:label.control-label {:class label-class :for :input-iters}
                 "Iterations"]
                [:div {:class field-class}
                 [:input.form-control#input-iters
                  {:value     (:iter-count settings)
                   :on-change #(om/update! settings :iter-count (.. % -target -value))}]]]

               [:.form-group
                [:div {:class [field-class (str "col-sm-offset-" label-width)]}
                 [:button.btn.btn-primary.btn-block
                  {:type     "button"
                   :disabled (when running? "disabled")

                                                    :momentum (js/parseFloat (:momentum settings))
                                                    :iter-count (js/parseInt (:iter-count settings))
                                                    :remove-edges? (:remove-edges? settings)
                                                    :remove-nodes? (:remove-nodes? settings)))
               (recur))
      (go-loop [frame (<! connection)]
               (if-not (nil? frame)
