From 1ef71f522577e8b796344e072463d87e5cbae889 Mon Sep 17 00:00:00 2001 From: Kei Kebreau Date: Sun, 26 Jan 2020 19:01:00 -0500 Subject: gnu: pcsxr: Wrap with GSETTINGS_SCHEMA_DIR path variable. Without setting this path variable, gtk+ must be installed in the user's profile for pcsxr's GUI to work. * gnu/packages/emulators.scm (pcsxr)[arguments]: Add 'wrap-program' phase and return #t from 'cd-subdir' and 'fix-cdio-lookup' phases. --- gnu/packages/emulators.scm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 140a8087ec..23b5ad864f 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -1478,12 +1478,22 @@ functions. The source code to MAME serves as this documentation.") #:phases (modify-phases %standard-phases (add-after 'unpack 'cd-subdir - (lambda _ (chdir "pcsxr"))) + (lambda _ (chdir "pcsxr") #t)) (add-before 'configure 'fix-cdio-lookup (lambda* (#:key inputs #:allow-other-keys) (substitute* "cmake/FindCdio.cmake" (("/usr/include/cdio") - (string-append (assoc-ref inputs "libcdio") "/include/cdio")))))))) + (string-append (assoc-ref inputs "libcdio") "/include/cdio"))) + #t)) + (add-after 'install 'wrap-program + (lambda* (#:key inputs outputs #:allow-other-keys) + (wrap-program (string-append (assoc-ref outputs "out") + "/bin/pcsxr") + ;; For GtkFileChooserDialog. + `("GSETTINGS_SCHEMA_DIR" = + (,(string-append (assoc-ref inputs "gtk+") + "/share/glib-2.0/schemas")))) + #t))))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool) -- cgit v1.2.3