diff options
Diffstat (limited to 'src/xyz/euandreh')
| -rw-r--r-- | src/xyz/euandreh/pending.scm | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/src/xyz/euandreh/pending.scm b/src/xyz/euandreh/pending.scm index 8f6e56d..315a2fb 100644 --- a/src/xyz/euandreh/pending.scm +++ b/src/xyz/euandreh/pending.scm @@ -1,14 +1,31 @@ (define-module (xyz euandreh pending) #:use-module (guix licenses) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix packages) + #:use-module (guix utils) #:use-module (guix build-system perl) + #:use-module (guix build-system python) + #:use-module (guix build-system gnu) #:use-module (gnu packages) + #:use-module (gnu packages boost) #:use-module (gnu packages docbook) + #:use-module (gnu packages mail) #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) + #:use-module (gnu packages gtk) + #:use-module (gnu packages gstreamer) #:use-module (gnu packages tex) #:use-module (gnu packages xml) #:use-module (gnu packages perl) + #:use-module (gnu packages python) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages web) + #:use-module (gnu packages music) + #:use-module (gnu packages check) + #:use-module (gnu packages python-build) + #:use-module (gnu packages xorg) #:use-module (gnu packages perl-check)) (define-public po4a-text @@ -86,5 +103,98 @@ more interestingly, the maintenance of translations) using gettext tools on areas where they were not expected like documentation.") (license gpl2+))) + +(define-public quodlibet + (package + (name "quodlibet") + (version "4.5.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/quodlibet/quodlibet") + (commit (string-append "release-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1i5k93k3bfp7hpcwkbr865mbj9jam3jv2a5k1bazcyp4f5vdrb0v")))) + (build-system python-build-system) + (arguments + `(#:modules ((guix build gnu-build-system) + (guix build python-build-system) + ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) + (guix build utils)) + #:imported-modules (,@%gnu-build-system-modules + (guix build python-build-system) + (guix build glib-or-gtk-build-system)) + #:tests? #f + #:phases + (modify-phases %standard-phases + + (add-before 'check 'start-xorg-server + (lambda* (#:key inputs #:allow-other-keys) + (setenv "HOME" (getcwd)) ; test suite wants to home directory + #t)) + + (replace 'check + (lambda* (#:key tests? inputs #:allow-other-keys) + (if tests? + (begin + (invoke "dbus-run-session" "--" "xvfb-run" "pytest" "-vv" + "--disable-warnings" ; ignored upstream + "--ignore=tests/test_browsers_iradio.py" ; needs network + "--ignore=tests/quality" ; broken upstream + )) + (format #t "test suite not run~%")))) + + (add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) + + (add-after 'install 'wrap-gi-typelib ; GObject Introspection + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (for-each (lambda (prog) + (wrap-program (string-append out "/bin/" prog) + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) + '("exfalso" "quodlibet"))) + #t))))) + + (native-inputs + (list xvfb-run gettext-minimal dbus)) + (inputs + (list adwaita-icon-theme + gdk-pixbuf + glib + gst-plugins-bad + gst-plugins-base + gst-plugins-good + gst-plugins-ugly + gstreamer + gtk+ + hicolor-icon-theme + librsvg + libsoup-minimal-2 + python + python-cheetah + python-dbus + python-feedparser + python-gst + python-iniconfig + python-mutagen + python-pycairo + python-pygobject + python-pytest + python-sgmllib3k + python-toml)) + (home-page "https://github.com/quodlibet/quodlibet") + (synopsis "Audio library, manager & player") + (description "Quod Libet is a cross-platform audio / music management +program. It provides many ways to view your local library, and supports +streaming audio and feeds (podcasts etc). It has extremely flexible metadata +editing and searching capabilities. Ex Falso is a program that uses the same +tag editing back-end as Quod Libet, but isn’t connected to an audio player.") + (license gpl2+))) + (list + quodlibet po4a-text) |