mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Internationalize service "names".

Browse source 
* 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_'.
This commit is contained in:
Ludovic Courtès 2019-04-07 21:41:51 +02:00
parent 2e55f37c0c
commit 62b0f044f1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/installer/newt/services.scm
View file

@ -37,7 +37,7 @@ (define (run-desktop-environments-cbt-page)
choose the one to use on the log-in screen.")
#:title (G_ "Desktop environment")
#:items (filter desktop-system-service? %system-services)
#:item->text system-service-name
#:item->text system-service-name ;no i18n for DE names
#:checkbox-tree-height 5
#:exit-button-callback-procedure
(lambda ()
@ -59,7 +59,7 @@ (define (run-networking-cbt-page network-management?)
(lambda (service)
(memq (system-service-type service) types)))
%system-services)
#:item->text system-service-name
#:item->text (compose G_ system-service-name)
#:checkbox-tree-height 5
#:exit-button-callback-procedure
(lambda ()

14
gnu/installer/services.scm
View file

@ -44,7 +44,9 @@ (define %system-services
((_ fields ...)
(system-service
(type 'desktop)
fields ...)))))
fields ...))))
(G_ (syntax-rules () ;for xgettext
((_ str) str))))
(list
(desktop-environment
(name "GNOME")
@ -63,25 +65,25 @@ (define %system-services
;; 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))))))