                 )]
              )
 
-           #_[: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)

;; 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 [custom (:custom data)]
             (om/build custom data {:opts (:opts data)}))

           (when-let [event (:event data)]
             [:div {:style {:text-align "center" :margin-top "20pt"}}
