ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-20 01:33:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: audacious: Use G-expressions.

Browse source 
* gnu/packages/music.scm (audacious)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
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

22
gnu/packages/music.scm
View file

@ -217,39 +217,39 @@ (define-public audacious
(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
#~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")
"--disable-gtk") "--disable-gtk")
#:tests? #f ; no check target #:tests? #f ; no check target
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'unpack-plugins (add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((plugins (assoc-ref inputs "audacious-plugins"))) (invoke "tar" "xvf"
(invoke "tar" "xvf" plugins)))) #$(this-package-native-input "audacious-plugins"))))
(add-after 'unpack-plugins 'configure-plugins (add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys) (lambda* (#:key configure-flags outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(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"