                 :style {:width "100%"
                         :height "100%"}}]
 
-
          [:section {:class (str "slide " (:class data))}
           [:div {:class "deck-slide-scaler"}
            (when-let [bg (:background data)]

           :custom (AltsSlide. {:font-size "30pt"})}

          {:subtitle "go blocks"
           :custom (GoBlockSlide. {:font-size "30pt"})}
          ;; Show result of race in alts! between a channel and a timeout

          ;; Go blocks

          {:title "When?"}]}))

(defn source-snippet [data owner fname]
  (reify

      (goog.events.listen
       js/document "keydown"
       (fn [e]
         (println (.-keyCode e))

         (cond
          (= (.-keyCode e) 49)
          (do
            (println "I am going to the beginning of the presentation!")
            (om/update! app :current-slide 0))

          (or (= (.-keyCode e) 37)
              (= (.-keyCode e) kc/PAGE_UP))
          (when (pos? (:current-slide @app))
