guile-clipboard-speaker

commit 68a3f27de433bdb5ee557d9f8befa31c8556dd60
parent d993ad86b6dbb9e3302ac785b7e292027a109dc4
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 18 Jun 2023 14:40:29 +0300

Change behaviour on `^C`. Now it exits. Before it didn't.

Diffstat:
M
clipboard-speaker.scm
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/clipboard-speaker.scm b/clipboard-speaker.scm
@@ -147,10 +147,11 @@
 ;;          #:input input-port))
 
 (define* (espeak-ng-speak text-to-speak words-per-minute)
-  (system* "espeak-ng"
-           "-s"
-           (number->string words-per-minute)
-           text-to-speak))
+  (open-pipe* OPEN_READ
+              "espeak-ng"
+              "-s"
+              (number->string words-per-minute)
+              text-to-speak))
 
 
 (define (make-fifo-ports fifo-file-path)