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 <ludo@gnu.org>
This commit is contained in:
Andy Patterson 2017-10-15 11:47:16 -04:00 committed by Ludovic Courtès
parent 60e9529729
commit f023685dca
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions

View File

@ -509,9 +509,12 @@ virtualization library.")
;; Some of the tests seem to require network access to install virtual ;; Some of the tests seem to require network access to install virtual
;; machines. ;; machines.
#:tests? #f #:tests? #f
#:imported-modules ((guix build glib-or-gtk-build-system)
,@%python-build-system-modules)
#:modules ((ice-9 match) #:modules ((ice-9 match)
(srfi srfi-26) (srfi srfi-26)
(guix build python-build-system) (guix build python-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(guix build utils)) (guix build utils))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -545,7 +548,11 @@ virtualization library.")
`("GI_TYPELIB_PATH" ":" prefix `("GI_TYPELIB_PATH" ":" prefix
,(filter identity paths)))) ,(filter identity paths))))
bin-files)) 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 (inputs
`(("gtk+" ,gtk+) `(("gtk+" ,gtk+)
("gtk-vnc" ,gtk-vnc) ("gtk-vnc" ,gtk-vnc)