From 876a8d987085b8c64f32c8a320e4219575af285c Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sun, 14 Jun 2020 13:10:40 +0200
Subject: [PATCH] installer: final: Make sure 'bold' font files are loaded.
* gnu/installer/newt/final.scm (run-install-shell): Force kmscon to open
'bold' font files, before the cow-store overlay is mounted.
---
gnu/installer/newt/final.scm | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm
index 5cb4f6816db..fa8d6fea718 100644
--- a/gnu/installer/newt/final.scm
+++ b/gnu/installer/newt/final.scm
@@ -25,6 +25,7 @@ (define-module (gnu installer newt final)
#:use-module (gnu installer newt page)
#:use-module (gnu installer newt utils)
#:use-module (guix i18n)
+ #:use-module (guix colors)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
@@ -101,6 +102,13 @@ (define* (run-install-shell locale
#:key (users '()))
(clear-screen)
(newt-suspend)
+ ;; XXX: Force loading 'bold' font files before mouting the
+ ;; cow-store. Otherwise, if the file is loaded by kmscon after the cow-store
+ ;; in mounted, it will be necessary to kill kmscon to umount to cow-store.
+ (display
+ (colorize-string
+ (format #f (G_ "Installing Guix System ...~%"))
+ (color BOLD)))
(let ((install-ok? (install-system locale #:users users)))
(newt-resume)
install-ok?))
--
GitLab