01/01: installer: Make boxed-window look nicer.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit df12fe3c67abda3e3ddac32357359d9dda300acf
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 22:55:29 2017 +0200

    installer: Make boxed-window look nicer.
    
    * gnu/system/installer/utils.scm (boxed-window-decoration-refresh):
    Remove "[", "]" around title.
    (make-boxed-window): Set background color by symbol.
---
 gnu/system/installer/utils.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index cb4ae55..afac3a3 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -274,7 +274,7 @@ Ignore blank lines."
     ;(addstr win "X")
     (box win (acs-vline) (acs-hline))
     (if title
-      (let ((title (string-append "[ " title " ]")))
+      (let ((title (string-append " " title " ")))
         ;(move win 2 1)
         ;(hline win (acs-hline) (- (getmaxx win) 2))
         (select-color! win 'livery-title)
@@ -291,7 +291,7 @@ pair whose car is the inner window and whose cdr is the 
frame."
     (let ((sw (derwin win (- (getmaxy win) ystart 1)
                       (- (getmaxx win) 2)
                       ystart 1 #:panel #t)))
-      (bkgdset! sw (color 1 (dim #\space)))
+      (bkgdset! sw (color (color-index-by-symbol 'explanation) (dim #\space)))
       (boxed-window-decoration-refresh (cons sw win) title)
       ;(refresh* sw)
       ;; Return the inner and outer windows