guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

04/21: installer: Change livery.


From: John Darrington
Subject: 04/21: installer: Change livery.
Date: Sun, 29 Jan 2017 07:35:01 +0000 (UTC)

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

commit da8a99f6088dcc2c3bc262f814290cf56cbb017e
Author: John Darrington <address@hidden>
Date:   Sun Jan 22 20:44:36 2017 +0100

    installer: Change livery.
    
    * gnu/system/installer/misc.scm (strong-colour): New variable.
    * gnu/system/installer/guixsd-installer.scm (guixsd-installer): Set a second
    colour pair.
---
 gnu/system/installer/guixsd-installer.scm |    4 ++--
 gnu/system/installer/misc.scm             |    4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/guixsd-installer.scm 
b/gnu/system/installer/guixsd-installer.scm
index c5394df..aa6095e 100644
--- a/gnu/system/installer/guixsd-installer.scm
+++ b/gnu/system/installer/guixsd-installer.scm
@@ -287,8 +287,8 @@ tail of the list."
 
       (start-color!)
 
-      (init-pair! livery-title COLOR_RED COLOR_BLACK)
-      (init-pair! 2 COLOR_MAGENTA COLOR_BLACK)
+      (init-pair! livery-title COLOR_MAGENTA COLOR_BLACK)
+      (init-pair! strong-colour COLOR_RED COLOR_BLACK)
 
       (curs-set 0)
 
diff --git a/gnu/system/installer/misc.scm b/gnu/system/installer/misc.scm
index 5c0ad3e..4bed5b8 100644
--- a/gnu/system/installer/misc.scm
+++ b/gnu/system/installer/misc.scm
@@ -20,6 +20,7 @@
   #:use-module (ncurses curses)
 
   #:export (livery-title)
+  #:export (strong-colour)
   #:export (time-zone)
   #:export (host-name)
   #:export (config-file)
@@ -29,6 +30,7 @@
   #:export (mount-points))
 
 (define livery-title 1)
+(define strong-colour 2)
 
 (define mount-points '())
 
@@ -58,7 +60,7 @@
     (acro         . ,normal)
     (email        . ,normal)
     (emph         . ,dim)
-    (strong       . ,(lambda (x) (color 2 x)))
+    (strong       . ,(lambda (x) (color strong-colour x)))
     (sample       . ,normal)
     (sc           . ,normal)
     (titlefont    . ,normal)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]