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