[bug#55516] [PATCH] gnu: Add quod-libet.

[Wamm K. D]

---
 gnu/packages/music.scm | 61 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 210af3b166..d3a3064a50 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -45,6 +45,7 @@
 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 ;;; Copyright © 2021 Thomas Albers Raviola <thomas@thomaslabs.org>
 ;;; Copyright © 2022 Sughosha <sughosha@disroot.org>
+;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -176,6 +177,7 @@ (define-module (gnu packages music)
   #:use-module (gnu packages vim)       ;for 'xxd'
   #:use-module (gnu packages web)
   #:use-module (gnu packages webkit)
+  #:use-module (gnu packages wm)
   #:use-module (gnu packages wxwidgets)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xml)
@@ -6877,3 +6879,62 @@ (define-public musikcube
 streaming audio server.")
     (home-page "https://musikcube.com/";)
     (license license:bsd-3)))
+
+(define-public quod-libet
+  (package
+    (name "quod-libet")
+    (version "4.5.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/quodlibet/quodlibet/";)
+                    (commit (string-append "release-" version))))
+              (sha256 (base32
+                       
"1i5k93k3bfp7hpcwkbr865mbj9jam3jv2a5k1bazcyp4f5vdrb0v"))))
+    (build-system python-build-system)
+    (native-inputs (list gettext-minimal python-pytest))
+    (inputs (list ;;; Per their documentation:
+                  ;; required
+                  python-pygobject
+                  python-pycairo
+                  python-mutagen
+                  gtk+
+                  libsoup-minimal-2
+                  python-feedparser
+                  gstreamer
+                  gst-plugins-base
+                  ;; discovered, while building
+                  gdk-pixbuf
+                  ;; optional but recommended
+                  gst-plugins-good
+                  gst-plugins-bad
+                  gst-plugins-ugly
+                  gst-libav
+                  ;; optional but needed for DBus and
+                  ;; multimedia keys under Gnome
+                  python-dbus
+                  ;; optional but needed for multimedia keys not under Gnome
+                  keybinder-3.0
+                  ;; optional but needed for Undo/Redo
+                  ;; support for multiline text fields
+                  gtksourceview
+                  ;; optional but needed for the auto library update plugin
+                  python-pyinotify
+                  ;; optional but needed for the Musicbrainz plugin
+                  python-musicbrainzngs))
+    (arguments `(#:phases (modify-phases %standard-phases
+                            (add-after 'wrap 'gi-wrap
+                              (lambda* (#:key outputs #:allow-other-keys)
+                                (for-each
+                                 (lambda (binary)
+                                   (wrap-program (string-append (assoc-ref 
outputs "out")
+                                                                "/bin/"
+                                                                binary)
+                                     `("GI_TYPELIB_PATH" = (,(getenv 
"GI_TYPELIB_PATH")))))
+                                 '("quodlibet" "exfalso")))))
+                 ;; Gtk.init_check requires an internet connection to 
initialize
+                 #:tests? #f))
+    (home-page "https://quodlibet.readthedocs.io/en/latest/";)
+    (synopsis "Music player and music library manager for Linux, Windows, and 
macOS")
+    (description "Quod Libet is a cross-platform audio / music management 
program.  It can be used to view your local library and supports streaming 
audio and feeds (podcasts, etc.).  It, also, has metadata editing and searching 
capabilities.")
+    (license license:gpl2)))
-- 
2.36.0