     (render [_]
       (html
        [:div
-        #_[:p (str "Current slide is " (inc (:current-slide app)) "/" (count (:slides app)))]
+        [:p (str "Current slide is " (inc (:current-slide app)) "/" (count (:slides app)))]
         (om/build-all slide
                       (:slides app)
                       {:key :slideno :init-state chans :opts (:current-slide app)})]))))

         :buf buf
         :ch ch
         :default-font (:font-size opts)
         :radius (:radius opts)}))
    om/IRender
    (render [_]
      (let [bufsize (om/get-state owner :buffer-size)

           ]]]]))))

(def app-model
  (atom {:current-slide 4
         :slides
         ;; TODO Add cardinal such that each slide has its own number to avoid react warning
         (vec
