                   :when (= [(keyword (:vcs_type project)) (keyword (:username project))] selected-org)]
               (om/build project/email-pref {:project project :user user} {:react-key (:reponame project)}))]]])))))
 
+
+
 (defn notifications [app owner]
   (reify
     om/IRender



(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
                                       (if value
                                         (conj (set betas) id)
                                         (disj (set betas) id))}]))

(defn beta-programs [app owner]
  (reify

    (render [_]
      (html
       [:div
        [:div.card
         [:div.header [:h2 "Beta Program"]]
         [:div.body
          [:div.section
           [: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"] "!"]
           (button/button
            {:on-click #(do
                          (set-beta-program-preference! owner false)
                          ((om/get-shared owner :track-event) {:event-type :beta-leave-clicked}))
             :primary? true}
            "Leave Beta Program")]]]

        (om/build beta-programs app)]))))

(defn beta-program [app owner]
  (reify
