35/36: gnu: brasero: Embed growisofs from dvd+rw-tools input.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 0cdc984147b45399199336511fe2e1118f2b7599
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Oct 4 05:04:17 2021 +0200

    gnu: brasero: Embed growisofs from dvd+rw-tools input.
    
    * gnu/packages/gnome.scm (brasero)[arguments]: Rename the
    'embed-growisofs phase to 'embed-growisofs-reference.  Get its
    growisofs file name from the dvd+rw-tools input, not WHICH.
---
 gnu/packages/gnome.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index a8eb41c..18c6018 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -300,11 +300,12 @@
                                          "/lib/girepository-1.0"))
        #:phases
        (modify-phases %standard-phases
-         (add-before 'configure 'embed-growisofs
+         (add-before 'configure 'embed-growisofs-reference
            (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "plugins/growisofs/burn-growisofs.c"
-               (("\"growisofs") (string-append "\"" (which "growisofs"))))
-             #t)))))
+             (let ((dvd+rw-tools (assoc-ref inputs "dvd+rw-tools")))
+               (substitute* "plugins/growisofs/burn-growisofs.c"
+                 (("(\")(growisofs)" _ prefix command)
+                  (string-append prefix dvd+rw-tools "/bin/" command)))))))))
     (propagated-inputs
      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
     (native-inputs