From d22916fbc08dbd7f805e3fff809bd744519a0366 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 29 May 2022 17:29:19 -0300
Subject: Revert "src/xyz/euandreh/pending.scm: Ad quodlibet"

This reverts commit 6b1fd6e0d494c8ee414a5897f13bc771a9846e76.

The quodlibet package was included upstream.
---
 src/xyz/euandreh/pending.scm | 110 -------------------------------------------
 1 file changed, 110 deletions(-)

(limited to 'src/xyz/euandreh')

diff --git a/src/xyz/euandreh/pending.scm b/src/xyz/euandreh/pending.scm
index 315a2fb..8f6e56d 100644
--- a/src/xyz/euandreh/pending.scm
+++ b/src/xyz/euandreh/pending.scm
@@ -1,31 +1,14 @@
 (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
@@ -103,98 +86,5 @@ 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)
-- 
cgit v1.2.3