From bd3c1d0c2212cfde4b0e3c4848325e8ea815cbb0 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Tue, 26 Aug 2025 15:50:01 +0200
Subject: [PATCH] gnu: denemo: Update to 2.6.44.

* gnu/packages/music.scm (denemo): Update to 2.6.44.
[source]: Switch to git-fetch.
[arguments]: Add configure flags and a phase to fix build failures.
[inputs]: Remove guile-2.0; add guile-3.0.
[native-inputs]: Add autoconf and automake.

Fixes: guix/guix#2105
Change-Id: I3ca3121bce48e1819abeaa4e6176e4d969544e00
Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/music.scm | 32 +++++++++++++++++++++++++-------
 1 file changed, 25 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 9b770d6442a53d0ded2a380b62ef65e8c8466edf..86187dc3c05c38f40f31644dcff13776d982d267 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -903,18 +903,34 @@ many input formats and provides a customisable Vi-style user interface.")
 (define-public denemo
   (package
     (name "denemo")
-    (version "2.6.0")
+    (version "2.6.44")
     (source
      (origin
-       (method url-fetch)
-       (uri (string-append "mirror://gnu/denemo/denemo-" version ".tar.gz"))
+       (method git-fetch)
+       (uri (git-reference
+              (url "git://git.git.savannah.gnu.org/denemo")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
        (sha256
-        (base32 "0pdmjij2635jbw2a24ivk1y4w0z58jbmq9vnz3qrfzw4d469grab"))))
+        (base32
+         "1vpaiw34f0h0z01r40ln00494l4dwmyc4cy00hz2xggp6pa4abqy"))))
     (build-system gnu-build-system)
     (arguments
      (list
+      #:configure-flags
+      #~(list (string-append
+               "CFLAGS="
+               (string-join (list "-Wno-error=incompatible-pointer-types"
+                                  "-Wno-error=implicit-function-declaration")
+                            " ")))
       #:phases
       #~(modify-phases %standard-phases
+          (add-before 'bootstrap 'patch-autogen
+            (lambda _
+              (substitute* "autogen.sh"
+                (("/usr/share/aclocal")
+                 (string-append #$(this-package-native-input "automake")
+                                "/share/aclocal")))))
           (replace 'check
             (lambda* (#:key inputs tests? #:allow-other-keys)
               ;; Tests require to write $HOME.
@@ -938,8 +954,10 @@ many input formats and provides a customisable Vi-style user interface.")
                                   lilypond
                                   "\");")))))))))
     (native-inputs
-     (list diffutils
-           `(,glib "bin")               ; for gtester
+     (list autoconf
+           automake
+           diffutils
+           `(,glib "bin")             ; for gtester
            gtk-doc/stable
            intltool
            libtool
@@ -953,7 +971,7 @@ many input formats and provides a customisable Vi-style user interface.")
            glib
            gtk+
            gtksourceview-3
-           guile-2.0
+           guile-3.0
            (librsvg-for-system)
            libsndfile
            libxml2