Subject: bug#55516: closed (Re: [PATCH v2] gnu: Add quodlibet.)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 28 May 2022 11:14:01 +0000

Your bug report

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

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
55516: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=55516
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [PATCH v2] gnu: Add quodlibet.
From: Liliana Marie Prikler <[email-masked]>
To: Remco van 't Veer <[email-masked]>, [email-masked]
Cc: [email-masked], [email-masked]
Date: Sat, 28 May 2022 13:13:27 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Am Samstag, dem 28.05.2022 um 10:57 +0200 schrieb Remco van 't Veer:
> * gnu/packages/music.scm (quodlibet): New variable.
Cleaned up and pushed.

Cheers

Subject: [PATCH] gnu: Add quod-libet.
From: "Wamm K. D" <[email-masked]>
To: [email-masked]
Cc: "Wamm K. D" <[email-masked]>
Date: Wed, 18 May 2022 23:41:30 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

---
 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 <[email-masked]>
 ;;; Copyright © 2021 Thomas Albers Raviola <[email-masked]>
 ;;; Copyright © 2022 Sughosha <[email-masked]>
+;;; Copyright © 2022 Wamm K. D. <[email-masked]>
 ;;;
 ;;; 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