06/67: installer: newt: Locate the logo within local-file.

[guix-commits]

civodul pushed a commit to branch wip-newt-installer
in repository guix.

commit 11f3e6da826f6a051625a148c78e73544e3297b5
Author: Mathieu Othacehe <address@hidden>
Date:   Sun Nov 18 12:22:50 2018 +0900

    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.
---
 gnu/installer/newt.scm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index 3d9fd69..23b737d 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)