04/04: gnu: librsvg: Fix gdk-pixbuf-thumbnailer file name.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit df3391c0309443ac37f9a9a6b1038a85454b8ee6
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Apr 13 08:27:09 2023 -0400

    gnu: librsvg: Fix gdk-pixbuf-thumbnailer file name.
    
    * gnu/packages/gnome.scm (librsvg)
    [arguments]: Add patch-gdk-pixbuf-thumbnailer phase.
---
 gnu/packages/gnome.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 5c6a7b812e..1c85faea17 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -3628,6 +3628,14 @@ for dealing with different structured file formats.")
         ("rust-yeslogic-fontconfig-sys" ,rust-yeslogic-fontconfig-sys-2))
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-gdk-pixbuf-thumbnailer
+            (lambda* (#:key inputs #:allow-other-keys)
+              ;; The gdk-pixbuf-thumbnailer location is assumed to be relative
+              ;; to librsvg's own installation prefix (see:
+              ;; https://gitlab.gnome.org/GNOME/librsvg/-/issues/955).
+              (substitute* "gdk-pixbuf-loader/librsvg.thumbnailer.in"
+                (("@bindir@/gdk-pixbuf-thumbnailer")
+                 (search-input-file inputs "bin/gdk-pixbuf-thumbnailer")))))
           (add-after 'unpack 'prepare-for-build
             (lambda _
               ;; In lieu of #:make-flags