              )
 
            (when-let [custom (:custom data)]
-             (om/build custom data {:opts (:opts data)})
-             #_(when (satisfies? Slide (om/value custom))
-               (render-slide (om/value custom) data owner)))
+             (om/build custom data {:opts (:opts data)}))
 
            (when-let [event (:event data)]
              [:div {:style {:text-align "center" :margin-top "20pt"}}

                )]
             )

           #_[:p (:text data)]
           #_(when-let [content (:content data)]
             (apply vec content)
             )
           (when-let [code (:code data)]
             (om/build source-snippet data {:opts "filter"})
             )

(enable-console-print!)

(def debug false)

(defn put-and-take-slide [data owner opts]
  (reify
