     (when-let [s (get @slide-states (dec (:slide @state)))]
       (reset! state s))))
 
+(defn skip-slide!
+  "Go to next slide skipping transitions if we can."
+  []
+  (when-not @in-transition?
+    (when-let [s (get @slide-states (inc (:slide @state)))]
+      (reset! state s))))
+
 (def key-names
   {37 :left
    38 :up

            :typescript {:alpha 0}
            :soundscript {:alpha 0}
            :flow {:alpha 0}}
   })

;; Current state of the application.

              {:a :_ :b 1 :duration 1} [:static :sphere :alpha]
              {:a :_ :b 400 :duration 1} [:static :sphere :r])))

     ;; show static language titles
     (let [angle (/ (* 2 PI) 3) ;; arc angle
           low 0.2]             ;; alpha of faded out title
       [;; show typescript
