|
From: | Hunter Jozwiak |
Subject: | [bug#58528] [PATCH] gnu: Services: Add espeakup service. |
Date: | Sat, 15 Oct 2022 08:09:48 -0700 |
"(" <paren@disroot.org> writes:
Heya,On Fri Oct 14, 2022 at 9:09 PM BST, wrote:diff –git a/doc/guix.texi b/doc/guix.texi index dbf4ca9be9..73dc647ca5 100644 — a/doc/guix.texi+b/doc/guix.texi @@ -17572,6 +17572,7 @@ Services@menu * Base Services:: Essential system services. +* Accessibility Services:: For those with various impairments. * Scheduled Job Execution:: The mcron service. * Log Rotation:: The rottlog service. * Networking Setup:: Setting up network interfaces. @@ -18793,6 +18794,24 @@ Base Services (local-file "sway-greetd.conf")))))))) @end lisp @end deftp +@node Accessibility Services +@subsection Accessibility Services +%espeakup-configuration +@c %start of fragment + +@deftp {Data Type} espeakup-configuration +Available @code{espeakup-configuration} fields are: + +@table @asis +@item @code{default-voice} (default: @code{"en-US"}) (type: string) +Set the voice that espeak-ng should use by default. + +@end table + +@end deftp + + +@c %end of fragmentRemember to add your copyright notice to the manual's copyright section.+ (define-module (gnu services accessibility)Since this is a new file, you'll need to update ``gnu/local.mk'' accordingly.+Remove this empty line after the ``;;; Copyright …'' line.+ #:export (espeakup-configuration espeakup-service-type))You should probably put each variable here on a new line.+ +;; Espeakup serviceInstead of this, do this:^L ;;; ;;; Espeakup. ;;;The ^L is a control character, not a literal ``L''. Look at one of the other files and copy their ^L in. Also, add another newline after this "section comment".+(define-configuration/no-serialization espeakup-configuration + (default-voice (string "en-US") + "Set the voice that espeak-ng should use by default."))Funky indentation here, and there needs to be a field for customizing the ``espeakup'' package to use. Should be:(define-configuration/no-serialization espeakup-configuration (espeakup (file-like espeakup) "Set the package providing the @code{/bin/espeakup} command.") (default-voice (string "en-US") "Set the voice that espeak-ng should use by default."))+(define (espeakup-shepherd-service config) + (list (shepherd-service (provision '(espeakup)) + (documentation "The espeak-ng bridge to speakup.") + (requirement '(user-processes)) + (start #~(make-forkexec-constructor (list (string-append #(espeakup-configuration-default-voice+ config))))) + (stop #~(make-kill-destructor)))))Again, indentation is off here, and there's a small issue with ``string-append'' being used where ``file-append'' should be. Try this instead:(define (espeakup-shepherd-service config) (list (shepherd-service (provision '(espeakup)) (requirement '(user-processes)) (documentation "Run espeakup, the espeak-ng bridge to speakup.") (start #~(make-forkexec-constructor (list #(espeakup-configuration-default-voice config))))(stop #~(make-kill-destructor)))))+(define espeakup-service-type + (service-type (name 'espeakup) + (description + "A lightweight connector between espeak and speakup.") + (extensions (list (service-extension + shepherd-root-service-type + espeakup-shepherd-service) + (service-extension + kernel-module-loader-service-type + (const (list "speakupsoft"))))) + (default-value (espeakup-configuration))))Here too; try this:(define espeakup-service-type (service-type (name 'espeakup) (extensions (list (service-extension shepherd-root-service-type espeakup-shepherd-services) (service-extension kernel-module-loader-service-type (const (list "speakupsoft"))))) (default-value (espeakup-configuration)) (description "Configure and run espeakup, a lightweight bridge between espeak-ng and speakup.")))– (
0001-gnu-Services-Add-espeakup-service.patch
Description: Text Data
signature.asc
Description: PGP signature
[Prev in Thread] | Current Thread | [Next in Thread] |