[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: audacious: Use G-expressions.
|
From: |
guix-commits |
|
Subject: |
04/04: gnu: audacious: Use G-expressions. |
|
Date: |
Sat, 8 Jul 2023 23:34:27 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit 9e03f08b7956c754137946a96cd82dcb2b73b802
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 2 02:00:04 2023 +0200
gnu: audacious: Use G-expressions.
* gnu/packages/music.scm (audacious)[arguments]:
Rewrite as G-expressions.
---
gnu/packages/music.scm | 68 +++++++++++++++++++++++++-------------------------
1 file changed, 34 insertions(+), 34 deletions(-)
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 696a524e09..a31b128921 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -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