[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: installer: Clear screen upon exit.
From: |
guix-commits |
Subject: |
03/03: installer: Clear screen upon exit. |
Date: |
Fri, 7 Dec 2018 20:38:58 -0500 (EST) |
mothacehe pushed a commit to branch wip-newt-installer
in repository guix.
commit 0d6a99e16ef82d84f13af3a232021b15c34f1980
Author: Mathieu Othacehe <address@hidden>
Date: Sat Dec 8 10:37:56 2018 +0900
installer: Clear screen upon exit.
* gnu/installer/newt.scm (exit): Call clear-screen after newt-finish,
(exit-error): ditto.
---
gnu/installer/newt.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index 31329b5..6c44b4a 100644
--- a/gnu/installer/newt.scm
+++ b/gnu/installer/newt.scm
@@ -47,7 +47,8 @@
(set-screen-size!))
(define (exit)
- (newt-finish))
+ (newt-finish)
+ (clear-screen))
(define (exit-error file key args)
(newt-set-color COLORSET-ROOT "white" "red")
@@ -66,7 +67,8 @@ problem. The backtrace is displayed below. Please report it
by email to \
#:file-textbox-width width
#:file-textbox-height height))
(newt-set-color COLORSET-ROOT "white" "blue")
- (newt-finish))
+ (newt-finish)
+ (clear-screen))
(define (final-page result prev-steps)
(run-final-page result prev-steps))