clipboard-speaker.scm (2202B)
1 (define-library (kakafarm software clipboard-speaker) 2 (import (guile)) 3 (export make-sxml) 4 5 (begin 6 (define* (make-sxml #:key posts) 7 `(div 8 (h2 "Clipboard Speaker") 9 (p "An accessibility tool that reads either what you mark with your mouse.") 10 (p (em "NOTICE: ") 11 "The Python version is obsolete. Use the GNU Guile one instead.") 12 13 (dl 14 (dt "GNU Guile") 15 (dd (pre "clipboard-speaker --clipboard-type=p")) 16 17 (dt "Python") 18 (dd (pre "clipboard-speaker -p"))) 19 20 "Or the contents of your clipboard:" 21 22 (dl 23 (dt "GNU Guile") 24 (dd (pre "clipboard-speaker --clipboard-type=b")) 25 26 (dt "Python") 27 (dd (pre "clipboard-speaker -b"))) 28 29 30 (a (@ (href "https://sr.ht/~kakafarm/clipboard-speaker/")) 31 "Clipboard Speaker's Sourcehut repositories") 32 33 (h3 "GNU Guile Clipboard Speaker") 34 35 (h4 "A helpful help message:") 36 37 (pre 38 "$ clipboard-speaker --help 39 Usage: clipboard-speaker [--kill] 40 [-f] 41 [-l] 42 [-w 230] 43 [--clipboard-speaker-path=] 44 [--clipboard-type=b/s/p (choose b or s or p)] 45 [--words-per-minute=170] 46 47 Keywords: 48 --clipboard-speaker-path Path to the clipboard-speaker settings directory. 49 --clipboard-type Type of clipboard (b, s, or p) 50 --fifo-file-path -f Path to FIFO file. 51 --kill Kill the espeak-ng loop process. 52 --lock-file-path -l Path to lock file. 53 --words-per-minute Words per minute spoken. 54 --words-per-minute -w Words per minute spoken.") 55 56 (h4 "Repository:") 57 58 (p "The current rewrite it in GNU Guile:" 59 (a (@ (href "https://git.sr.ht/~kakafarm/clipboard-speaker/")) 60 "GNU Guile Clipboard Speaker's Sourcehut repository")) 61 62 (h3 "Python Clipboard Speaker") 63 (p "The original Python code:" 64 (a (@ (href "https://git.sr.ht/~kakafarm/clipboard-speaker/")) 65 "Python Clipboard Speaker's Sourcehut repository"))))))