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) | |
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 3d9fd69bee1..23b737ddf09 100644 --- a/gnu/installer/newt.scm +++ b/gnu/installer/newt.scm | |||
| @@ -57,13 +57,8 @@ | |||
| 57 | #~(lambda* (zonetab) | 57 | #~(lambda* (zonetab) |
| 58 | (run-timezone-page zonetab))) | 58 | (run-timezone-page zonetab))) |
| 59 | 59 | ||
| 60 | (define logo | ||
| 61 | (string-append | ||
| 62 | (dirname (search-path %load-path "guix.scm")) | ||
| 63 | "/gnu/installer/aux-files/logo.txt")) | ||
| 64 | |||
| 65 | (define welcome-page | 60 | (define welcome-page |
| 66 | #~(run-welcome-page #$(local-file logo))) | 61 | #~(run-welcome-page #$(local-file "aux-files/logo.txt"))) |
| 67 | 62 | ||
| 68 | (define menu-page | 63 | (define menu-page |
| 69 | #~(lambda (steps) | 64 | #~(lambda (steps) |
