10/11: gnu: virt-manager: Wrap with GSettings schema and GIO modules search paths.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f023685dca64e703b2663c763e7fad1e50d59f9e
Author: Andy Patterson <address@hidden>
Date:   Sun Oct 15 11:47:16 2017 -0400

    gnu: virt-manager: Wrap with GSettings schema and GIO modules search paths.
    
    Fixes a crash when opening the file chooser dialog.
    
    * gnu/packages/virtualization.scm (virt-manager)[arguments]
    <#:imported-modules>: Add (guix build glib-or-gtk-build-system).
    <#:modules>: Import (guix build glib-or-gtk-build-system) as glib-or-gtk:.
    <#:arguments>: Add 'glib-or-gtk-compile-schemas and 'glib-or-gtk-wrap.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/virtualization.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index c8ab607..f99942c 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -509,9 +509,12 @@ virtualization library.")
        ;; Some of the tests seem to require network access to install virtual
        ;; machines.
        #:tests? #f
+       #:imported-modules ((guix build glib-or-gtk-build-system)
+                           ,@%python-build-system-modules)
        #:modules ((ice-9 match)
                   (srfi srfi-26)
                   (guix build python-build-system)
+                  ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
                   (guix build utils))
        #:phases
        (modify-phases %standard-phases
@@ -545,7 +548,11 @@ virtualization library.")
                              `("GI_TYPELIB_PATH" ":" prefix
                                ,(filter identity paths))))
                          bin-files))
-             #t)))))
+             #t))
+         (add-after 'install 'glib-or-gtk-compile-schemas
+           (assoc-ref glib-or-gtk:%standard-phases 
'glib-or-gtk-compile-schemas))
+         (add-after 'install 'glib-or-gtk-wrap
+           (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
     (inputs
      `(("gtk+" ,gtk+)
        ("gtk-vnc" ,gtk-vnc)