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))))))