From a1feb3a6fe9bdadbc39294ddaf3d07c8655fc9f4 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 14 May 2023 21:48:05 +0200
Subject: Send selection via OSC

---
 guile/starlet/selection.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'guile/starlet/selection.scm')

diff --git a/guile/starlet/selection.scm b/guile/starlet/selection.scm
index d0f2c1d..7e5ca1a 100644
--- a/guile/starlet/selection.scm
+++ b/guile/starlet/selection.scm
@@ -20,6 +20,7 @@
 ;;
 (define-module (starlet selection)
   #:use-module (starlet utils)
+  #:use-module (starlet fixture)
   #:use-module (srfi srfi-1)
   #:export (sel
              add-sel
@@ -27,6 +28,7 @@
              desel
              selection-hook
              get-selection
+             get-selection-as-string
              selected?))
 
 
@@ -39,6 +41,15 @@
   selection)
 
 
+(define (get-selection-as-string)
+  (cat-with-spaces
+    (map
+      (lambda (s)
+        (symbol->string
+          (get-fixture-name s)))
+      selection)))
+
+
 (define (sel . fixture-list)
   (if (nil? fixture-list)
       (set! selection '())
-- 
cgit v1.2.3