From 12f59dc24a9ef0254f92865877d64ad6ffe01d6b Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Tue, 26 Mar 2024 09:05:05 +0100
Subject: [PATCH] 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 | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 loom/packages/music.scm

diff --git a/loom/packages/music.scm b/loom/packages/music.scm
new file mode 100644
index 0000000..a110148
--- /dev/null
+++ b/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))))))