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

                                   :header-overlap-px (atom 0)})
    om/IDidMount
    (did-mount [_]
      (scroll/register owner
       #(let [logo (om/get-node owner "center-logo")
              cta (om/get-node owner "prolog-cta")
              prolog (om/get-node owner "home-prolog")
              logo-visible? (neg? (.-bottom (.getBoundingClientRect logo)))
              cta-visible? (neg? (.-bottom (.getBoundingClientRect cta)))


(def view "home")

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