aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer
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
parent8e214c53a48a841887a59f24a20e7392b5e59b55 (diff)
downloadguix-70c2897ea39b8633f7b71324025954e43b4ed055.tar
guix-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')
-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)