guile-clipboard-speaker

commit d993ad86b6dbb9e3302ac785b7e292027a109dc4
parent ff8b38e7594b1eefa541300c6de5eccda7037d9b
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 18 Jun 2023 14:32:42 +0300

Fix flag provided to xsel.

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

1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/clipboard-speaker.scm b/clipboard-speaker.scm
@@ -35,8 +35,6 @@
 (define (get-home-directory)
   (passwd:dir (getpw (getuid))))
 
-(display (get-home-directory)) (newline)
-
 (define DEFAULT-WORDS-PER-MINUTE 200)
 
 (define DEFAULT-CLIPBOARD-SPEAKER-HOME-PATH ".config/clipboard-speaker/")
@@ -115,7 +113,6 @@
         (put-string file-port value))))
 
 (define (mkfifo path mode)
-  (display path) (newline)
   (mknod path 'fifo mode 0))
 
 
@@ -124,7 +121,7 @@
   (define xsel-port
     (open-pipe* OPEN_READ
                 "xsel"
-                clipboard-type))
+                (string-append "-" clipboard-type)))
 
   ;; Read lines from xsel port and for each line replace the newlines in it
   ;; with spaces.