[bug#58572] [PATCH v3] gnu: juce: Fix paths

[Sughosha via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/music.scm (juce)[arguments]: Fix paths.
[inputs]: Add dconf, fontconfig and glib:bin.
[propagated-inputs]: Add xdg-open.
---
 gnu/packages/music.scm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 6d0fd1e9c0..2fee51ed1f 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -1890,14 +1890,33 @@ (define-public juce
     (build-system cmake-build-system)
     ;; TODO: Use installed packages instead of bundled dependencies.
     (arguments
-     (list #:tests? #f)) ;no test suite
+     (list #:tests? #f ;no test suite
+           #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'fix-paths
+                          (lambda _
+                            (substitute* "extras/Projucer/Source/ProjectSaving/jucer_ProjectExport_CodeBlocks.h"
+                              (("/usr/include/freetype2")
+                               (string-append #$freetype "/include/freetype")))
+                            (substitute* "modules/juce_graphics/native/juce_linux_Fonts.cpp"
+                              (("/etc/fonts")
+                               (string-append #$fontconfig "/etc/fonts")))
+                            (substitute* "modules/juce_gui_basics/native/x11/juce_linux_XWindowSystem.cpp"
+                              (("/usr/bin/dconf")
+                               (string-append #$dconf "/bin/dconf"))
+                              (("/usr/bin/gsettings")
+                               (string-append (ungexp glib "bin")
+                                              "/bin/gsettings"))))))))
     (native-inputs (list pkg-config))
     (inputs (list alsa-lib
                   curl
+                  dconf
+                  fontconfig
                   freetype
+                  `(,glib "bin")
                   jack-1
                   libx11
                   python))
+    (propagated-inputs (list xdg-utils)) ;for xdg-open to open web browser
     (home-page "https://juce.com")
     (synopsis "Cross-platform C++ application framework")
     (description
-- 
2.38.0