nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

install: Add colors in 'motd' and 'issue'. 

* gnu/system/install.scm (%installation-services)[motd]: Add colors.
[services]: Use the "lat9u-16" font.
(%issue): Add colors.
This commit is contained in:
Ludovic Courtès 2017-12-03 17:44:38 +01:00
parent 2f60084f77
commit 8638362f13
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/system/install.scm
View File

@ -188,13 +188,13 @@ the user's target storage device rather than on the RAM disk."
(define %installation-services (define %installation-services
;; List of services of the installation system. ;; List of services of the installation system.
(let ((motd (plain-file "motd" " (let ((motd (plain-file "motd" "
Welcome to the installation of the Guix System Distribution! \x1b[1;37mWelcome to the installation of the Guix System Distribution!\x1b[0m
There is NO WARRANTY, to the extent permitted by law. In particular, you may \x1b[2mThere is NO WARRANTY, to the extent permitted by law. In particular, you may
LOSE ALL YOUR DATA as a side effect of the installation process. Furthermore, LOSE ALL YOUR DATA as a side effect of the installation process. Furthermore,
it is 'beta' software, so it may contain bugs. it is 'beta' software, so it may contain bugs.
You have been warned. Thanks for being so brave. You have been warned. Thanks for being so brave.\x1b[0m
"))) ")))
(define (normal-tty tty) (define (normal-tty tty)
(mingetty-service (mingetty-configuration (tty tty) (mingetty-service (mingetty-configuration (tty tty)
@ -245,10 +245,12 @@ You have been warned. Thanks for being so brave.
;; since it takes the installation directory as an argument. ;; since it takes the installation directory as an argument.
(cow-store-service) (cow-store-service)
;; Install Unicode support and a suitable font. ;; Install Unicode support and a suitable font. Use a font that
;; doesn't have more than 256 glyphs so that we can use colors with
;; varying brightness levels (see note in setfont(8)).
(service console-font-service-type (service console-font-service-type
(map (lambda (tty) (map (lambda (tty)
(cons tty %default-console-font)) (cons tty "lat9u-16"))
'("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
;; To facilitate copy/paste. ;; To facilitate copy/paste.
@ -288,9 +290,9 @@ You have been warned. Thanks for being so brave.
(define %issue (define %issue
;; Greeting. ;; Greeting.
" "
This is an installation image of the GNU system. Welcome. \x1b[1;37mThis is an installation image of the GNU system. Welcome.\x1b[0m
Use Alt-F2 for documentation. \x1b[1;33mUse Alt-F2 for documentation.\x1b[0m
") ")
(define installation-os (define installation-os