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