                     posting, but we do encourage you to talk with your
                     coworkers!"]]]
             [:p]
-            [:input.btn
-            {:on-click #(do
+            (button/button
+             {:on-click #(do
                           (set-beta-program-preference! owner true)
-                          ((om/get-shared owner :track-event) {:event-type :beta-accept-terms-clicked}))
-             :type "submit"
-             :value "Accept"}]])]]))))
+                          ((om/get-shared owner :track-event) {:event-type :beta-accept-terms-clicked}))}
+             "Accept")])]]))))
 
 (defn beta-program-member [app owner]
   (reify

        [:div
         [:p "Thanks for being part of the beta program.  We'll let you know when we release updates so you'll be the first to see new features!" ]
         [:p "We'd love to know what you think - " [:a {:href "mailto:beta@circleci.com"} "send us your feedback"] "!"]
         [:form
          [:input.btn.btn-danger
           {:on-click #(do
                         (set-beta-program-preference! owner false)
                         ((om/get-shared owner :track-event) {:event-type :beta-leave-clicked}))
            :type "submit"
            :value "Leave Beta Program"}]]]
        (comment
          ;; uncomment to turn on beta sub programs
          [:hr]



(def available-betas
  [(comment {:id "insights"
             :name "Insights"
             :description "Also this text. Insights is super fun for the whole family! "})])

(defn set-beta-preference! [owner betas id value]
  (raise! owner [:preferences-updated {state/user-betas-key
