guix_mirror_bot pushed a commit to branch master
in repository guix.
commit b01968f6542a99c1de66f7202bd402098e75a603
Author: Hilton Chain <[email protected]>
AuthorDate: Fri Jan 16 13:19:48 2026 +0800
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 c460539212..c3bbf8afdb 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
<https://codeberg.org/guix/guix/pulls/5654#issuecomment-9928509>
+ "font-sarasa-gothic")))
+ '())))
(base (if desktop?
(if (target-hurd?)
'%desktop-services/hurd
