diff options
author | Thomas White <taw@physics.org> | 2023-05-14 21:48:05 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-05-14 21:48:05 +0200 |
commit | a1feb3a6fe9bdadbc39294ddaf3d07c8655fc9f4 (patch) | |
tree | 1d9aecf85f2df712ed7537353b53d7ff54e5a5cc /guile/starlet/selection.scm | |
parent | d2138c27ffc90080fe7e0b16a9e7f3109200ee23 (diff) |
Send selection via OSC
Diffstat (limited to 'guile/starlet/selection.scm')
-rw-r--r-- | guile/starlet/selection.scm | 11 |
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 '()) |