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:
parent
ba32109a28
commit
9b9a5e3283
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue