dannym pushed a commit to branch wip-installer-2
in repository guix.
commit ff635881340062a7b7b0d1279642007483995cd2
Author: Danny Milosavljevic <[email protected]>
Date: Tue Jul 4 02:33:11 2017 +0200
installer: Use "G_" instead of "_".
* gnu/system/installer/format.scm (format-page-init): Use "G_" instead of
"_".
* gnu/system/installer/hostname.scm (host-name-refresh): Use "G_" instead of
"_".
* gnu/system/installer/ping.scm (ping-page-key-handler): Use "G_" instead
of "_".
(ping-page-refresh): Likewise.
---
gnu/system/installer/format.scm | 2 +-
gnu/system/installer/hostname.scm | 2 +-
gnu/system/installer/ping.scm | 6 +++---
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index 99e1d02..5a487c3 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -187,7 +187,7 @@ match those uuids read from the respective partitions"
text-window
(texi-fragment->stexi
(format #f
- (_ "The partitions ~s will be formatted. @strong{Any existing
data on these partitions will be destroyed if you continue!!}")
+ (G_ "The partitions ~s will be formatted. @strong{Any existing
data on these partitions will be destroyed if you continue!!}")
(map (lambda (x) (car x))
mount-points)))
#:markup-table installer-texinfo-markup)
diff --git a/gnu/system/installer/hostname.scm
b/gnu/system/installer/hostname.scm
index 151f3b0..7f9668f 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -62,7 +62,7 @@
text-window
(format
#f
- (_ "Enter the host name for the new system. Only letters, digits and
hyphens are allowed. The first character may not be a hyphen. A maximum of ~a
characters are allowed.")
+ (G_ "Enter the host name for the new system. Only letters, digits and
hyphens are allowed. The first character may not be a hyphen. A maximum of ~a
characters are allowed.")
max-length))
(refresh* text-window)
(refresh* (outer (page-wwin page)))
diff --git a/gnu/system/installer/ping.scm b/gnu/system/installer/ping.scm
index 2bde5eb..8e22ac6 100644
--- a/gnu/system/installer/ping.scm
+++ b/gnu/system/installer/ping.scm
@@ -91,9 +91,9 @@
(car %default-substitute-urls)))))
(addstr test-window
- (_ "Test successful. Network is working."))
+ (G_ "Test successful. Network is working."))
(addstr test-window
- (_ "Test failed. No servers reached.")))
+ (G_ "Test failed. No servers reached.")))
(refresh* test-window)))) #f))
@@ -104,7 +104,7 @@
(let ((text-window (page-datum page 'text-window)))
(addstr* text-window
- (_ "Choose \"Test\" to check network connectivity."))
+ (G_ "Choose \"Test\" to check network connectivity."))
(refresh* text-window)
(refresh* (page-datum page 'test-window))))
