installer: newt: Locate the logo within local-file.

* gnu/installer/newt.scm (logo): Remove it,
(welcome-page): Use a relative path to locate the logo.
This commit is contained in:
Mathieu Othacehe 2018-11-18 12:22:50 +09:00 committed by Ludovic Courtès
parent ba32109a28
commit 9b9a5e3283
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 6 deletions

View File

@ -57,13 +57,8 @@
#~(lambda* (zonetab) #~(lambda* (zonetab)
(run-timezone-page zonetab))) (run-timezone-page zonetab)))
(define logo
(string-append
(dirname (search-path %load-path "guix.scm"))
"/gnu/installer/aux-files/logo.txt"))
(define welcome-page (define welcome-page
#~(run-welcome-page #$(local-file logo))) #~(run-welcome-page #$(local-file "aux-files/logo.txt")))
(define menu-page (define menu-page
#~(lambda (steps) #~(lambda (steps)