From 4962a8a5b2c02322bbd781186884ee7e1c3ed763 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 18 Jun 2022 11:18:31 +0200
Subject: Add num-cues

---
 guile/starlet/cue-list.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'guile/starlet/cue-list.scm')

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))
 
-- 
cgit v1.2.3