summary refs log tree commit diff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-14 13:10:40 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-14 17:42:36 +0200
commit876a8d987085b8c64f32c8a320e4219575af285c (patch)
tree1907d82b3414e9395e562a89d996de50015c1a04 /gnu/installer
parente88745a655b220b4047f7db5175c828ef9c33e11 (diff)
downloadguix-876a8d987085b8c64f32c8a320e4219575af285c.tar.gz
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.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/final.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm
index 5cb4f6816d..fa8d6fea71 100644
--- a/gnu/installer/newt/final.scm
+++ b/gnu/installer/newt/final.scm
@@ -25,6 +25,7 @@
   #: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 @@ a specific step, or restart the installer."))
                             #: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?))