guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

197/197: installer: Use "G_" instead of "_".


From: Danny Milosavljevic
Subject: 197/197: installer: Use "G_" instead of "_".
Date: Mon, 3 Jul 2017 20:37:24 -0400 (EDT)

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit ff635881340062a7b7b0d1279642007483995cd2
Author: Danny Milosavljevic <address@hidden>
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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]