 
 
 (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))}]))
+  [{:id "project-cache-clear-buttons"
+    :name "Clear Project Caches"
+    :description "The Clear Project Caches beta allows you to totally
+    clear the source and dependency caches for your projects.  These
+    options are available on the project settings under the \"Clear
+    Caches\" heading. This is different from the clear cache button
+    when retrying a build which only clears the cache for retried
+    build."}
+
+   {:id "projects-page"
+    :name "Projects Page"
+    :description "The Projects Page helps give a quick overview of
+    which projects you have building on CircleCI.  Access it by
+    clicking on the \"Projects\" item in the left navigation bar."}
+
+   {:id "merge-pull-request"
+    :name "Merge Pull Request"
+    :description "Now you can merge pull requests directly from a
+   green build on CircleCI.  To use, look for the \"Merge PR\" button
+   on a build page whose branch has a PR open." } ])
 
 (defn beta-programs [app owner]
   (reify

    om/IRenderState
    (render-state [_ {:keys [clicked-join?]}]
      (html
       [:div
        [:p
         "We invite you to join Inner Circle, our new beta program. As a
         member of CircleCI’s Inner Circle you get exclusive access to new
         features and settings before they are released publicly!"]
        [:form
         (if (not clicked-join?)
           (button/button
            {:on-click #(do
                         (om/set-state! owner :clicked-join? true)
                         ((om/get-shared owner :track-event) {:event-type :beta-join-clicked}))
             :primary? true}
            "Join Beta Program")
           [:div
            [:div.card
             [:h1 "Beta Terms"]
             [:p
              "Our beta program is a way to engage with our most
               thoughtful and dedicated users. We want to build the
               best features with your help. To that end, in joining
               the beta program you should be comfortable with these
               expectations:"]
             [:ul
              [:li "You’ll find out about new features through e-mail and in-app messages"]
              [:li "Please give us feedback about new features when we release them"]
              [:li "Keep the private beta, private. Please no tweets, blogs, or other public
                    posting, but we do encourage you to talk with your
                    coworkers!"]]]
            [:p]
            (button/button
             {:on-click #(do
                          (set-beta-program-preference! owner true)
                          ((om/get-shared owner :track-event) {:event-type :beta-accept-terms-clicked}))}
             "Accept")])]]))))

(defn beta-program-member [app owner]
  (reify

         [:div#settings-beta-program
          [:div
           (let [message (get-in app state/general-message-path)
                 enrolled? (get-in app state/user-in-beta-path)])
           (if (get-in app state/user-in-beta-path)
             (om/build beta-program-member app)
             (om/build join-beta-program app))]])))))
