          (for [{:keys [name description]} available-betas]
           (card/titled {:title name} description)))]))))
 
-(defn set-beta-program-preference! [owner pref]
-  (raise! owner [:preferences-updated {state/user-in-beta-key pref}]))
-
 (defrender beta-terms-modal [{:keys [close-fn]} owner]
   (component
    (modal/modal-dialog {:title "Join Beta Program"

                                  (button/button
                                   {:primary? true
                                    :on-click #(do
                                                 (set-beta-program-preference! owner true)
                                                 ((om/get-shared owner :track-event) {:event-type :beta-accept-terms-clicked})
                                                 (close-fn))}
                                   "Accept")]})))

                       [:p "We'd love to know what you think - " [:a {:href "mailto:beta@circleci.com"} "send us your feedback"] "!"]
                       (button/button
                        {:on-click #(do
                                      (raise! owner [:preferences-updated {state/user-in-beta-key false}])
                                      ((om/get-shared owner :track-event) {:event-type :beta-leave-clicked}))
                         :primary? true}
                        "Leave Beta Program")]))
