[shepherd] 03/03: support: Internationalize initial configuration file

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 6be3ce171fa655b1fbf0664ad1612cdbe0203921
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Mar 24 23:04:26 2022 +0100

    support: Internationalize initial configuration file
    
    * modules/shepherd/support.scm (make-bare-init-file): Add 'l10n' calls.
---
 modules/shepherd/support.scm | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm
index 2d6673c..8dc7ecb 100644
--- a/modules/shepherd/support.scm
+++ b/modules/shepherd/support.scm
@@ -292,22 +292,26 @@ There is NO WARRANTY, to the extent permitted by law.")))
 TARGET should be a string representing a filepath + name."
   (with-output-to-file target
     (lambda ()
-      (display (string-append
-                ";; init.scm -- default shepherd configuration file.
-
+      (display
+       (string-append
+        ;; TRANSLATORS: Please keep double semicolons at the beginning of each
+        ;; line: they introduce comments in the Scheme language.  Also, keep
+        ;; "shepherd" untranslated.  Thank you!  :-)
+        (l10n ";; init.scm -- default shepherd configuration file.\n")
+        "\n"
+        (l10n "\
 ;; Services known to shepherd:
 ;; Add new services (defined using 'make <service>') to shepherd here by
-;; providing them as arguments to 'register-services'.
-""(register-services)
-
-;; Send shepherd into the background
-""(action 'shepherd 'daemonize)
-
+;; providing them as arguments to 'register-services'.\n")
+        "(register-services)\n\n"
+        (l10n "\
+;; Send shepherd into the background\n")
+        "(action 'shepherd 'daemonize)\n\n"
+        (l10n "\
 ;; Services to start when shepherd starts:
 ;; Add the name of each service that should be started to the list
-;; below passed to 'for-each'.
-""(for-each start '())
-")))))
+;; below passed to 'for-each'.\n")
+        "(for-each start '())\n")))))
 
 ;; Logging.
 (define (user-default-log-file)