1 files changed, 11 insertions, 0 deletions
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 '())