diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-02 02:00:04 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-02 02:00:07 +0200 |
| commit | 9e03f08b7956c754137946a96cd82dcb2b73b802 (patch) | |
| tree | 922abba2aa762a944ae0745b6135bbb5ad9b56da | |
| parent | da6ab2ee7a92cad21293a125da3b17d42cdb65ea (diff) | |
| download | guix-9e03f08b7956c754137946a96cd82dcb2b73b802.tar.gz | |
gnu: audacious: Use G-expressions.
* gnu/packages/music.scm (audacious)[arguments]: Rewrite as G-expressions.
| -rw-r--r-- | gnu/packages/music.scm | 68 |
1 files 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 |