(define-module (gnu packages gpodder)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system cmake)
#:use-module (guix build-system python)
#:use-module (gnu packages)
#:use-module (gnu packages check)
+ #:use-module (gnu packages freedesktop)
+ #:use-module (gnu packages glib)
+ #:use-module (gnu packages gtk)
#:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages python-web)
+ #:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt))
+(define-public gpodder
+ (package
+ (name "gpodder")
+ (version "3.10.9")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/gpodder/gpodder.git")
+ (commit version)))
+ (sha256
+ (base32
+ "1sdmr1sq1d4p492zp9kq3npl7p56yr0pr470z9r6xxcylax5mhfq"))
+ (file-name (git-file-name name version))))
+ (build-system python-build-system)
+ (native-inputs
+ `(("intltool" ,intltool)))
+ (inputs
+ `(("gtk+" ,gtk+)
+ ("python-pygobject" ,python-pygobject)
+ ("python-pycairo" ,python-pycairo)
+ ("python-dbus" ,python-dbus)
+ ("python-html5lib" ,python-html5lib)
+ ("python-mygpoclient" ,python-mygpoclient)
+ ("python-podcastparser" ,python-podcastparser)
+ ("xdg-utils" ,xdg-utils)))
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ ;; Avoid needing xdg-utils as a propagated input.
+ (add-after 'unpack 'patch-xdg-open
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((xdg-utils (assoc-ref inputs "xdg-utils")))
+ (substitute* "src/gpodder/util.py"
+ (("xdg-open") (string-append xdg-utils "/bin/xdg-open")))
+ #t)))
+ ;; 'msgmerge' introduces non-determinism by resetting the
+ ;; POT-Creation-Date in .po files.
+ (add-before 'install 'do-not-run-msgmerge
+ (lambda _
+ (substitute* "makefile"
+ (("msgmerge") "true"))
+ #t))
+ (add-before 'install 'make-po-files-writable
+ (lambda _
+ (for-each
+ (lambda (f)
+ (chmod f #o664))
+ (find-files "po"))
+ #t))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (setenv "PREFIX" (assoc-ref outputs "out"))
+ (invoke "make" "install")))
+ (add-after 'install 'wrap-gpodder
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
+ (wrap-program (string-append out "/bin/gpodder")
+ `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
+ #t))))))
+ (home-page "https://gpodder.github.io")
+ (synopsis "Simple podcast client")
+ (description "gPodder is a podcatcher, i.e. an application that allows
+podcast feeds (RSS, Atom, Youtube, Soundcloud, Vimeo and XSPF) to be
+subscribed to, checks for new episodes and allows the podcast to be saved
+locally for later listening.")
+ (license license:gpl3+)))
+
(define-public libmygpo-qt
(package
(name "libmygpo-qt")