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


(def debug false)

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

           ]]]]))))

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