summary refs log tree commit diff
path: root/gnu/installer/steps.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-04-14 22:29:14 +0200
committerLudovic Courtès <ludo@gnu.org>2021-04-14 22:51:38 +0200
commit70c2897ea39b8633f7b71324025954e43b4ed055 (patch)
tree51eea993e64b0d9bb8a6e2a69f984f1095e84aed /gnu/installer/steps.scm
parent8e214c53a48a841887a59f24a20e7392b5e59b55 (diff)
downloadguix-70c2897ea39b8633f7b71324025954e43b4ed055.tar.gz
installer: Internationalize comment of the generated config.
* gnu/installer/steps.scm (configuration->file): Pass the comment in the
generated file through 'G_'.
Diffstat (limited to 'gnu/installer/steps.scm')
-rw-r--r--gnu/installer/steps.scm12
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/installer/steps.scm b/gnu/installer/steps.scm
index fdcfb0cb4d..057f2ae163 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)