     (render [_]
       (html
        [:section.home-epilog {:ref "home-epilog"}
-        (om/build home-cta {:source view})
+        (om/build home-cta {:source view
+                            :cta-class "epilog-cta"})
         [:div.home-top-shelf]
         [:div.home-slogans
          [:h2.slogan.proverb {:item-prop "So, ready to ship faster?"}

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

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