From 0aeadc0d635e0cd72f1a0f94f4af3930ef6aaa06 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 28 May 2021 17:18:50 +0200
Subject: Add "cut!" (cut forwards)

---
 guile/starlet/playback.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 65f808b..e9ad81a 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -40,6 +40,7 @@
             get-playback-cue-number
             run-cue-number!
             go!
+            cut!
             stop!
             back!
             cue-list
@@ -232,6 +233,10 @@
               'no-more-cues-in-list)))))
 
 
+(define (cut! pb)
+  (cut-to-cue-index! pb (get-next-cue-index pb)))
+
+
 (define (stop! pb)
   (let ((clock (get-cue-clock pb)))
     (when (and clock
-- 
cgit v1.2.3