From b01968f6542a99c1de66f7202bd402098e75a603 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Fri, 16 Jan 2026 13:19:48 +0800 Subject: [PATCH] installer: Add fonts to cover all languages for desktop installation. * gnu/installer/services.scm (system-services->configuration): Install font-google-noto, font-google-noto-emoji and font-sarasa-gothic when using a desktop environment. Fixes: #5613 Merges: #5654 Change-Id: Ie6e0af004969158bad316f0fcf886519cf3bdc7d --- gnu/installer/services.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index c460539212a2e227234199e11cd60f6d5f17c91b..c3bbf8afdba54f6eb2c8fb0f42d6120232bb3ac5 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -195,8 +195,21 @@ (define (system-services->configuration services) "Return the configuration field for SERVICES." (let* ((snippets (append-map system-service-snippet services)) - (packages (append-map system-service-packages services)) (desktop? (find desktop-system-service? services)) + (packages + (append (append-map system-service-packages services) + (if desktop? + (cons (comment (G_ ";; Fonts to cover all languages.\n")) + (map (lambda (package) + `(specification->package ,package)) + '("font-google-noto" + "font-google-noto-emoji" + ;; FIXME: Selection of fonts depends on the + ;; locale. Use a monospaced CJK font with + ;; latin letters before there's proper fix. + ;; See + "font-sarasa-gothic"))) + '()))) (base (if desktop? (if (target-hurd?) '%desktop-services/hurd