14/18: gnu: gnome-boxes: Patch 'qemu-img' file name.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ddb2b632fa1402a0a52e7f9eb53f7cc0fb79bf5d
Author: Jacob Hrbek <kreyren@rixotstudio.cz>
AuthorDate: Mon Sep 19 04:09:40 2022 +0000

    gnu: gnome-boxes: Patch 'qemu-img' file name.
    
    * gnu/packages/gnome.scm (gnome-boxes)[arguments]: Add
    'set-qemu-file-name' phase.
    [inputs]: Add QEMU-MINIMAL.
    
    Co-authored-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/gnome.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 0adb065eb5..5761475c88 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -12224,7 +12224,13 @@ integrate seamlessly with the GNOME desktop.")
            #:phases #~(modify-phases %standard-phases
                         (add-after 'unpack 'disable-gtk-update-icon-cache
                           (lambda _
-                            (setenv "DESTDIR" "/"))))))
+                            (setenv "DESTDIR" "/")))
+                        (add-before 'configure 'set-qemu-file-name
+                          (lambda* (#:key inputs #:allow-other-keys)
+                            (substitute* "src/installed-media.vala"
+                              (("qemu-img")
+                               (search-input-file inputs
+                                                  "/bin/qemu-img"))))))))
     (native-inputs
      (list desktop-file-utils           ;for update-desktop-database
            gettext-minimal
@@ -12250,6 +12256,7 @@ integrate seamlessly with the GNOME desktop.")
            libvirt
            libvirt-glib
            libxml2
+           qemu-minimal                           ;for qemu-img
            sparql-query
            spice-gtk
            tracker