(address . guix-patches@gnu.org)
03f462dc0e0b0a480bcf7de6ff1e816d19e37338.1693575064.git.iyzsong@member.fsf.org
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(-)
Toggle diff (48 lines)
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