From 62b0f044f14569ffcaeb7a068e879a9422fdecbd Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 7 Apr 2019 21:41:51 +0200 Subject: 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_'. --- gnu/installer/newt/services.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/installer/newt/services.scm') diff --git a/gnu/installer/newt/services.scm b/gnu/installer/newt/services.scm index 76db31d9ab..10c19115ca 100644 --- a/gnu/installer/newt/services.scm +++ b/gnu/installer/newt/services.scm @@ -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 () -- cgit v1.2.3