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

    (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)))
