From f023685dca64e703b2663c763e7fad1e50d59f9e Mon Sep 17 00:00:00 2001 From: Andy Patterson Date: Sun, 15 Oct 2017 11:47:16 -0400 Subject: [PATCH] gnu: virt-manager: Wrap with GSettings schema and GIO modules search paths. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- 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 c8ab607028..f99942c72d 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)