                            (go
                              (<! ch)
                              (om/set-state! owner :modified (new js/Date))))}
-            [:rect {
-                    :x 0 :y 0 :width 140 :height 100 :fill "black"}]
-            [:text {:x 30 :y 80 :style {:font-size default-font :stroke "white" :fill "white"}} "<!"]]]])))))
+
+            [:g {:transform "translate(90,0)"}
+             [:rect {:x 0 :y 0 :width 140 :height 100 :fill "black"}]
+             [:text {:x 0 :y 80 :style {:font-size default-font :stroke "white" :fill "white"}} "<!"]]
+
+            ]]])))))
 
 (defn timeout-slide [data owner opts]
   (reify

                             ;; Forces a re-render
                             (om/set-state! owner :modified (new js/Date))))}

            [:rect {:x 0 :y 0 :width 140 :height 100 :fill "black"}]
            [:text {:x 30 :y 80 :style {:font-size default-font :stroke "white" :fill "white"}} ">!"]]

           (for [x (range bufsize)]
             [:g {:transform (str "translate(320,320)")}

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


(om/root slides app-model {:target (.getElementById js/document "content")})
