loom: music: New module for music-related stuff (re-introducing a GTK

version of audacious)

* loom/packages/music.scm: New module file

loom/packages/music.scm

@@ -0,0 +1,23 @@
+(define-module (loom packages music)
+  #:use-module ((gnu packages music)
+                #:select (audacious))
+  #:use-module ((gnu packages gtk)
+                #:select (gtk+))
+  #:use-module ((guix gexp)
+                #:select (gexp))
+  #:use-module ((guix packages)
+                #:select (package package-inputs package-arguments)))
+
+(define (un-qt e)
+  (not (string-prefix? "qt" (car e))))
+
+(define-public audacious-gtk
+  (package
+    (inherit audacious)
+    (name "audacious-gtk")
+    (arguments
+      (append (package-arguments audacious)
+        (list #:configure-flags #~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")
+                                        "--enable-gtk3"
+                                        "--disable-qt"))))
+    (inputs (cons `("gtk+" ,gtk+) (filter un-qt (package-inputs audacious))))))