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/utils.scm | |
parent | d2138c27ffc90080fe7e0b16a9e7f3109200ee23 (diff) |
Send selection via OSC
Diffstat (limited to 'guile/starlet/utils.scm')
-rw-r--r-- | guile/starlet/utils.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm index e1b92a8..e0579ab 100644 --- a/guile/starlet/utils.scm +++ b/guile/starlet/utils.scm @@ -41,7 +41,8 @@ comment hash-table-empty? lookup - add-and-run-hook!)) + add-and-run-hook! + cat-with-spaces)) (define (print-hash-table ht) @@ -179,3 +180,10 @@ (define (add-and-run-hook! hook proc . initial-args) (add-hook! hook proc) (apply proc initial-args)) + + +(define (cat-with-spaces lst) + (reduce + (lambda (b a) + (string-append a " " b)) + "" lst)) |