diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-11-18 12:22:50 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:20 +0100 |
| commit | 9b9a5e3283168463545588f83748bb36411e68fe (patch) | |
| tree | 879ed78a06656b250310c6a1ad539c3f461effc3 | |
| parent | ba32109a28e7c67c748838b8f5d406ccc3983e7f (diff) | |
| download | guix-9b9a5e3283168463545588f83748bb36411e68fe.tar guix-9b9a5e3283168463545588f83748bb36411e68fe.tar.gz | |
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.
| -rw-r--r-- | gnu/installer/newt.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm index 3d9fd69bee..23b737ddf0 100644 --- a/gnu/installer/newt.scm +++ b/gnu/installer/newt.scm @@ -57,13 +57,8 @@ #~(lambda* (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 - #~(run-welcome-page #$(local-file logo))) + #~(run-welcome-page #$(local-file "aux-files/logo.txt"))) (define menu-page #~(lambda (steps) |