bug-guix
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#63151: [PATCH] gnu: sound-juicer: Update to 3.40.0.


From: iyzsong
Subject: bug#63151: [PATCH] gnu: sound-juicer: Update to 3.40.0.
Date: Fri, 1 Sep 2023 21:31:28 +0800

From: 宋文武 <iyzsong@member.fsf.org>

* gnu/packages/gnome.scm (sound-juicer): Update to 3.40.0.
[arguments]<phases>: Adjust 'disable-gtk-update-icon-cache'.
Add 'wrap-program' for GST_PLUGIN_SYSTEM_PATH.
---
 gnu/packages/gnome.scm | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 4a2e867476..8d8d091407 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -11430,7 +11430,7 @@ (define-public passwordsafe
 (define-public sound-juicer
   (package
     (name "sound-juicer")
-    (version "3.38.0")
+    (version "3.40.0")
     (source
      (origin
        (method url-fetch)
@@ -11439,15 +11439,25 @@ (define-public sound-juicer
                            name "-" version ".tar.xz"))
        (sha256
         (base32
-         "08d5d81rz9sj3m5paw8fwbgxmhlbr7bcjdzpmzj832qvg8smydxf"))))
+         "1rhxmvx2mr22zd5p0azc0svi0mbnzcjnh3sasv3b9gli8ds85s1f"))))
     (build-system meson-build-system)
     (arguments
      (list
       #:glib-or-gtk? #t
-      #:phases #~(modify-phases %standard-phases
-                   (add-after 'unpack 'disable-gtk-update-icon-cache
-                     (lambda _
-                       (setenv "DESTDIR" "/"))))))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'disable-gtk-update-icon-cache
+            (lambda _
+              (substitute* "meson.build"
+                (("gtk_update_icon_cache: true")
+                 "gtk_update_icon_cache: false"))))
+          (add-after 'install 'wrap-program
+            (lambda _
+              (let ((prog (string-append #$output "/bin/sound-juicer"))
+                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
+                (wrap-program prog
+                  `("GST_PLUGIN_SYSTEM_PATH"
+                    ":" prefix (,gst-plugin-path)))))))))
     (native-inputs
      (list desktop-file-utils
            gettext-minimal

base-commit: 4e531e55dcdc99c83bcfe3eec67c3fd95c7b6ca7
-- 
2.41.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]