Add num-cues

2 files changed, 10 insertions, 1 deletions

diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm
index 78fecc5..dd3edbd 100644
--- a/guile/starlet/cue-list.scm
+++ b/guile/starlet/cue-list.scm
@@ -48,7 +48,8 @@
             cue-number-to-index
             cue-index-to-number
             current-cue-clock
-            read-cue-list-file)
+            read-cue-list-file
+            num-cues)
   #:re-export (snap crossfade))
 
 
@@ -75,6 +76,10 @@
   (cue-clock          get-cue-clock))
 
 
+(define-method (num-cues (l <vector>))
+  (vector-length l))
+
+
 (define (qnum a)
   (/ (inexact->exact (* a 1000)) 1000))
 
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 5e6038e..1628d99 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -337,6 +337,10 @@
     (write-recovery-file! pb (get-cue-number the-cue))))
 
 
+(define-method (num-cues (pb <starlet-playback>))
+  (num-cues (get-playback-cue-list pb)))
+
+
 (define-method (update-state! (pb <starlet-playback>))
   (when (and (get-pb-cue-clock pb)
              (clock-expired? (get-pb-cue-clock pb))