24 lines
841 B
Scheme
24 lines
841 B
Scheme
(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))))))
|