     (render [_]
       (html
        [:section.home-prolog {:ref "home-prolog"}
-        (om/build home-cta {:source view})
+        (om/build home-cta {:source view
+                            :cta-class "prolog-cta"})
         [:div.home-top-shelf]
         [:div.home-slogans
          [:h1.slogan.proverb {:item-prop "Ship better code, faster."}

    om/IRender
    (render [_]
      (html
        [:a.home-action {:href "/signup"
                       :role "button"
                       :ref "prolog-cta"
                       :on-mouse-up #(analytics/track-signup-click {:view source})}
       (str (common/sign-up-text))]))))

(defn prolog [data owner {:keys [logo-visibility-callback


(def view "home")

(defn home-cta [{:keys [source cta-class]} owner]
  (reify
    om/IDidMount
    (did-mount [_]
