01/02: installer: Internationalize comment of the generated config.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 70c2897ea39b8633f7b71324025954e43b4ed055
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Apr 14 22:29:14 2021 +0200

    installer: Internationalize comment of the generated config.
    
    * gnu/installer/steps.scm (configuration->file): Pass the comment in the
    generated file through 'G_'.
---
 gnu/installer/steps.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gnu/installer/steps.scm b/gnu/installer/steps.scm
index fdcfb0c..057f2ae 100644
--- a/gnu/installer/steps.scm
+++ b/gnu/installer/steps.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
-;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -20,6 +20,7 @@
 (define-module (gnu installer steps)
   #:use-module (guix records)
   #:use-module (guix build utils)
+  #:use-module (guix i18n)
   #:use-module (gnu installer utils)
   #:use-module (ice-9 match)
   #:use-module (ice-9 pretty-print)
@@ -245,8 +246,13 @@ found in RESULTS."
   (mkdir-p (dirname filename))
   (call-with-output-file filename
     (lambda (port)
-      (format port ";; This is an operating system configuration generated~%")
-      (format port ";; by the graphical installer.~%")
+      ;; TRANSLATORS: This is a comment within a Scheme file.  Each line must
+      ;; start with ";; " (two semicolons and a space).  Please keep line
+      ;; length below 60 characters.
+      (display (G_ "\
+;; This is an operating system configuration generated
+;; by the graphical installer.\n")
+               port)
       (newline port)
       (for-each (lambda (part)
                   (if (null? part)