me
/
guix
Archived
1
0
Fork 0
Code

gnu: audacious: Use G-expressions. 

* gnu/packages/music.scm (audacious)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2023-07-02 02:00:04 +02:00
parent da6ab2ee7a
commit 9e03f08b79
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
gnu/packages/music.scm
View File

@ -217,40 +217,40 @@
(base32 "0hi0njnw3q7kngmjk837ynagighrbz8a4wpf8bim2nsh85lf5sc5"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")
"--disable-gtk")
#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys)
(let ((plugins (assoc-ref inputs "audacious-plugins")))
(invoke "tar" "xvf" plugins))))
(add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(substitute* "configure"
(("/bin/sh") (which "sh")))
(apply invoke "./configure"
(append configure-flags
;; audacious-plugins requires audacious to build.
(list (string-append "PKG_CONFIG_PATH="
out "/lib/pkgconfig:"
(getenv "PKG_CONFIG_PATH"))
(string-append "--prefix=" out))))))))
(add-after 'configure-plugins 'build-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(invoke "make" "-j" (number->string (parallel-job-count))))))
(add-after 'build-plugins 'install-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(invoke "make" "install")))))))
(list
#:configure-flags
#~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")
"--disable-gtk")
#:tests? #f ; no check target
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "xvf"
#$(this-package-native-input "audacious-plugins"))))
(add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys)
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(substitute* "configure"
(("/bin/sh") (which "sh")))
(apply invoke "./configure"
(append configure-flags
;; audacious-plugins requires audacious to build.
(list (string-append "PKG_CONFIG_PATH="
#$output "/lib/pkgconfig:"
(getenv "PKG_CONFIG_PATH"))
(string-append "--prefix=" #$output)))))))
(add-after 'configure-plugins 'build-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(invoke "make" "-j" (number->string (parallel-job-count))))))
(add-after 'build-plugins 'install-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(invoke "make" "install")))))))
(native-inputs
`(("audacious-plugins"
,(origin