gnu: stepmania: Fix all instances of accessing application data.

This is a follow-up to commit 45aba232ab.

* gnu/packages/games.scm (stepmania)[arguments]: Rename phase
ensure-gtk-module-can-be-found to ensure-application-files-can-be-found and
fix remaining instances of application data access.
This commit is contained in:
Ricardo Wurmus 2019-03-29 14:14:19 +01:00
parent 47131ebbc9
commit 4774677228
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -6182,12 +6182,21 @@ (define-public stepmania
"/lib/glib-2.0/include"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'ensure-gtk-module-can-be-found
(add-after 'unpack 'ensure-application-files-can-be-found
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
(("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
(string-append "\"" (assoc-ref outputs "out")
"/share/stepmania/GtkModule.so\"")))
(let ((out (assoc-ref outputs "out")))
(substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
(("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
(string-append "\"" out
"/share/stepmania/GtkModule.so\"")))
(substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
(("Root = sDirOfExecutable")
(string-append "Root = \"" out "/share/stepmania/\""))
(("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
(string-append "\"" out "/share/stepmania/" dir "\"")))
(substitute* "src/RageFileManager.cpp"
(("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
(string-append "\"" out "/share/stepmania/\""))))
#t))
(add-after 'unpack 'fix-install-subdir
;; Installation would be done in "%out/stepmania-X.Y", but we