diff mbox series

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

Message ID 03f462dc0e0b0a480bcf7de6ff1e816d19e37338.1693575064.git.iyzsong@member.fsf.org
State New
Headers show
Series [bug#65676] gnu: sound-juicer: Update to 3.40.0. | expand

Commit Message

vasilii.smirnov--- via Guix-patches" via Sept. 1, 2023, 1:31 p.m. UTC 
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(-)


base-commit: 4e531e55dcdc99c83bcfe3eec67c3fd95c7b6ca7

Comments

宋文武 Sept. 2, 2023, 12:45 a.m. UTC | #1 
Pushed now, closing.
diff mbox series

Patch

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