Implement OSC encoders for list attributesosc-with-guileosc

1 files changed, 16 insertions, 1 deletions

diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 1db713b..856a67d 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -45,7 +45,10 @@
             get-attr-range
             get-attr-home-val
             continuous-attribute?
-            colour-attribute?))
+            colour-attribute?
+
+            next-attr-item
+            prev-attr-item))
 
 
 (define-class <fixture-attribute> (<object>)
@@ -221,3 +224,15 @@
 
 
 (define fixture-has-attr? find-attr)
+
+
+(define (next-attr-item attr cval)
+  (next-item-in-list
+    (get-attr-range attr)
+    cval))
+
+
+(define (prev-attr-item attr cval)
+  (next-item-in-list
+    (reverse (get-attr-range attr))
+    cval))