54/96: gnu: audacity: Update to 3.3.0-beta-1.

[guix-commits]

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

commit c4c048032b337352642357a7aa48b3c08a35a973
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Apr 17 19:59:04 2023 -0400

    gnu: audacity: Update to 3.3.0-beta-1.
    
    * gnu/packages/audio.scm (audacity): Update to 3.3.0-beta-1.
    [source]: Delete trailing #t in snippet.
    [arguments]: Update fix-cmake-rpath phase.
    
    Reported-by: tschilptschilp23 on #guix.
---
 gnu/packages/audio.scm | 25 ++++++-------------------
 1 file changed, 6 insertions(+), 19 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 053ee13413..33bc074a13 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -858,7 +858,7 @@ engineers, musicians, soundtrack editors and composers.")
 (define-public audacity
   (package
     (name "audacity")
-    (version "3.2.4")
+    (version "3.3.0-beta-1")            ;for ffmpeg 6 support
     (source
      (origin
        (method git-fetch)
@@ -867,7 +867,7 @@ engineers, musicians, soundtrack editors and composers.")
              (commit (string-append "Audacity-" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "06kfxbfvvhbhwfzkvar6hir351606g29ij8b4hksxpzq338shgc3"))
+        (base32 "1j1fy8h3vvf3pbyy2vxahf7admcqfmx7m1mxm7g48n54i2f0n1h9"))
        (patches (search-patches "audacity-ffmpeg-fallback.patch"))
        (modules '((guix build utils)))
        (snippet
@@ -887,8 +887,7 @@ engineers, musicians, soundtrack editors and composers.")
               ;; FIXME: we have this library, but it differs in that the Slide
               ;; class does not have a member "getInverseStretchedTime".
               ;; "sbsms"
-              ))
-           #t))))
+              ))))))
     (build-system cmake-build-system)
     (inputs
      (list wxwidgets
@@ -905,14 +904,14 @@ engineers, musicians, soundtrack editors and composers.")
            libsndfile
            mpg123
            soundtouch
-           soxr ;replaces libsamplerate
+           soxr                         ;replaces libsamplerate
            sqlite
            twolame
            vamp
            libvorbis
            lv2
-           lilv ;for lv2
-           suil ;for lv2
+           lilv                         ;for lv2
+           suil                         ;for lv2
            portaudio
            portmidi
            wavpack))
@@ -950,18 +949,6 @@ engineers, musicians, soundtrack editors and composers.")
        (modify-phases %standard-phases
          (add-after 'unpack 'fix-cmake-rpath
            (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* "CMakeLists.txt"
-               (("\\$ORIGIN/\\.\\./\\$\\{_PKGLIB\\}")
-                (string-append (assoc-ref outputs "out") "/lib/audacity"))
-               (("CMAKE_BUILD_WITH_INSTALL_RPATH [A-Z]*")
-                "CMAKE_BUILD_WITH_INSTALL_RPATH TRUE")
-               (("CMAKE_INSTALL_RPATH_USE_LINK_PATH [A-Z]*")
-                "CMAKE_INSTALL_RPATH_USE_LINK_PATH TRUE"))
-             (substitute* "libraries/image-compiler/CMakeLists.txt"
-               (("PROPERTIES")
-                ;; This scripts needs to run during build, make sure it finds
-                ;; the required libraries.
-                "PROPERTIES BUILD_WITH_INSTALL_RPATH FALSE"))
              (substitute* "src/CMakeLists.txt"
                ;; Despite the name, this script breaks rpath.  Don't run it.
                (("install.*linux/fix_rpath\\.cmake.*")