gnu: gpodder: Update to 3.11.4.

* gnu/packages/gpodder.scm (gpodder): Update to 3.11.4.
[inputs]: Replace youtube-dl with yt-dlp.
[arguments]: Use G-expressions.  Use #$output and search-input-file instead of assoc-ref.  Remove trailing #t from phases.

Change-Id: Ic5c07f63e1e5e419857ead2d58cd273660e0cad5
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
kiasoc5 2024-08-27 16:44:45 -04:00 committed by Ludovic Courtès
parent 5d2d395477
commit 73ec844389
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -22,6 +22,7 @@
(define-module (gnu packages gpodder) (define-module (gnu packages gpodder)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
@ -50,7 +51,7 @@ (define-module (gnu packages gpodder)
(define-public gpodder (define-public gpodder
(package (package
(name "gpodder") (name "gpodder")
(version "3.11.1") (version "3.11.4")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -58,7 +59,7 @@ (define-public gpodder
(url "https://github.com/gpodder/gpodder") (url "https://github.com/gpodder/gpodder")
(commit version))) (commit version)))
(sha256 (sha256
(base32 "121cb8qz4rp6602lpbi6m2vqx3ar1cw2s4z4r7nr5qaxb0q3gk9n")) (base32 "1zmp7kkldb59fx1y6k4mkff8ngmyb9pflcd3yqb28m9wb9bp4j4h"))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(patches (search-patches "gpodder-disable-updater.patch")))) (patches (search-patches "gpodder-disable-updater.patch"))))
(build-system python-build-system) (build-system python-build-system)
@ -81,47 +82,42 @@ (define-public gpodder
python-mutagen python-mutagen
python-mygpoclient python-mygpoclient
python-podcastparser python-podcastparser
youtube-dl yt-dlp
xdg-utils)) xdg-utils))
(arguments (arguments
'(#:phases (list
(modify-phases %standard-phases #:phases
;; Avoid needing xdg-utils as a propagated input. #~(modify-phases %standard-phases
(add-after 'unpack 'patch-xdg-open ;; Avoid needing xdg-utils as a propagated input.
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch-xdg-open
(let ((xdg-utils (assoc-ref inputs "xdg-utils"))) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/gpodder/util.py" (substitute* "src/gpodder/util.py"
(("xdg-open") (string-append xdg-utils "/bin/xdg-open"))) (("xdg-open") (search-input-file inputs "bin/xdg-open")))))
#t))) (replace 'check
(replace 'check (lambda* (#:key tests? #:allow-other-keys)
(lambda* (#:key tests? #:allow-other-keys) (when tests?
(when tests? (invoke "make" "unittest"))))
(invoke "make" "unittest")))) ;; 'msgmerge' introduces non-determinism by resetting the
;; 'msgmerge' introduces non-determinism by resetting the ;; POT-Creation-Date in .po files.
;; POT-Creation-Date in .po files. (add-before 'install 'do-not-run-msgmerge
(add-before 'install 'do-not-run-msgmerge (lambda _
(lambda _ (substitute* "makefile"
(substitute* "makefile" (("msgmerge") "true"))))
(("msgmerge") "true")) (add-before 'install 'make-po-files-writable
#t)) (lambda _
(add-before 'install 'make-po-files-writable (for-each
(lambda _
(for-each
(lambda (f) (lambda (f)
(chmod f #o664)) (chmod f #o664))
(find-files "po")) (find-files "po"))))
#t)) (replace 'install
(replace 'install (lambda _
(lambda* (#:key outputs #:allow-other-keys) (setenv "PREFIX" #$output)
(setenv "PREFIX" (assoc-ref outputs "out")) (invoke "make" "install")))
(invoke "make" "install"))) (add-after 'install 'wrap-gpodder
(add-after 'install 'wrap-gpodder (lambda _
(lambda* (#:key outputs #:allow-other-keys) (let ((gi-typelib-path (getenv "GI_TYPELIB_PATH")))
(let ((out (assoc-ref outputs "out")) (wrap-program (string-append #$output "/bin/gpodder")
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))) `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
(wrap-program (string-append out "/bin/gpodder")
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
#t))))))
(home-page "https://gpodder.github.io") (home-page "https://gpodder.github.io")
(synopsis "Simple podcast client") (synopsis "Simple podcast client")
(description "gPodder is a podcatcher, i.e. an application that allows (description "gPodder is a podcatcher, i.e. an application that allows