diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-04-14 22:29:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-04-14 22:51:38 +0200 |
| commit | 70c2897ea39b8633f7b71324025954e43b4ed055 (patch) | |
| tree | 51eea993e64b0d9bb8a6e2a69f984f1095e84aed /gnu/installer | |
| parent | 8e214c53a48a841887a59f24a20e7392b5e59b55 (diff) | |
| download | guix-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.scm | 12 |
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) |