diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-07 21:41:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-07 22:23:51 +0200 |
| commit | 62b0f044f14569ffcaeb7a068e879a9422fdecbd (patch) | |
| tree | 03460056427bccee19c5ed35a96d5104524ae889 /gnu/installer/services.scm | |
| parent | 2e55f37c0c8fdfbc413edff61490161648a78dcc (diff) | |
| download | guix-patches-62b0f044f14569ffcaeb7a068e879a9422fdecbd.tar guix-patches-62b0f044f14569ffcaeb7a068e879a9422fdecbd.tar.gz | |
installer: Internationalize service "names".
* gnu/installer/services.scm (%system-services): Mark networking service
names with 'G_'.
* gnu/installer/newt/services.scm (run-networking-cbt-page): Pass
'system-service-name' through 'G_'.
Diffstat (limited to 'gnu/installer/services.scm')
| -rw-r--r-- | gnu/installer/services.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index b79c2dfdc9..46ade0f8fa 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -44,7 +44,9 @@ ((_ fields ...) (system-service (type 'desktop) - fields ...))))) + fields ...)))) + (G_ (syntax-rules () ;for xgettext + ((_ str) str)))) (list (desktop-environment (name "GNOME") @@ -63,25 +65,25 @@ ;; Networking. (system-service - (name "OpenSSH secure shell daemon (sshd)") + (name (G_ "OpenSSH secure shell daemon (sshd)")) (type 'networking) (snippet '(service openssh-service-type))) (system-service - (name "Tor anonymous network router") + (name (G_ "Tor anonymous network router")) (type 'networking) (snippet '(service tor-service-type))) ;; Network connectivity management. (system-service - (name "NetworkManager network connection manager") + (name (G_ "NetworkManager network connection manager")) (type 'network-management) (snippet '(service network-manager-service-type))) (system-service - (name "Connman network connection manager") + (name (G_ "Connman network connection manager")) (type 'network-management) (snippet '(service connman-service-type))) (system-service - (name "DHCP client") + (name (G_ "DHCP client (dynamic IP address assignment)")) (type 'network-management) (snippet '(service dhcp-client-service)))))) |