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

(enable-console-print!)

(def debug false)

;; A protocol for custom slides
(defprotocol Slide
  (init-slide-state [_])
  (render-slide [_ data owner]))

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

                )]
             )

           (when-let [code (:code data)]
             (om/build source-snippet data {:opts "filter"})
             )
