me/guix
Archived
1
0
Fork 0
Code Activity

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 @@ install. If you select multiple desktops environments, you will be able to \
choose the one to use on the log-in screen.") choose the one to use on the log-in screen.")
#:title (G_ "Desktop environment") #:title (G_ "Desktop environment")
#:items (filter desktop-system-service? %system-services) #: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 #:checkbox-tree-height 5
#:exit-button-callback-procedure #:exit-button-callback-procedure
(lambda () (lambda ()
@ -59,7 +59,7 @@ system.")
(lambda (service) (lambda (service)
(memq (system-service-type service) types))) (memq (system-service-type service) types)))
%system-services) %system-services)
#:item->text system-service-name #:item->text (compose G_ system-service-name)
#:checkbox-tree-height 5 #:checkbox-tree-height 5
#:exit-button-callback-procedure #:exit-button-callback-procedure
(lambda () (lambda ()

14
gnu/installer/services.scm
View file

@ -44,7 +44,9 @@
((_ fields ...) ((_ fields ...)
(system-service (system-service
(type 'desktop) (type 'desktop)
fields ...))))) fields ...))))
(G_ (syntax-rules () ;for xgettext
((_ str) str))))
(list (list
(desktop-environment (desktop-environment
(name "GNOME") (name "GNOME")
@ -63,25 +65,25 @@
;; Networking. ;; Networking.
(system-service (system-service
(name "OpenSSH secure shell daemon (sshd)") (name (G_ "OpenSSH secure shell daemon (sshd)"))
(type 'networking) (type 'networking)
(snippet '(service openssh-service-type))) (snippet '(service openssh-service-type)))
(system-service (system-service
(name "Tor anonymous network router") (name (G_ "Tor anonymous network router"))
(type 'networking) (type 'networking)
(snippet '(service tor-service-type))) (snippet '(service tor-service-type)))
;; Network connectivity management. ;; Network connectivity management.
(system-service (system-service
(name "NetworkManager network connection manager") (name (G_ "NetworkManager network connection manager"))
(type 'network-management) (type 'network-management)
(snippet '(service network-manager-service-type))) (snippet '(service network-manager-service-type)))
(system-service (system-service
(name "Connman network connection manager") (name (G_ "Connman network connection manager"))
(type 'network-management) (type 'network-management)
(snippet '(service connman-service-type))) (snippet '(service connman-service-type)))
(system-service (system-service
(name "DHCP client") (name (G_ "DHCP client (dynamic IP address assignment)"))
(type 'network-management) (type 'network-management)
(snippet '(service dhcp-client-service)))))) (snippet '(service dhcp-client-service))))))