diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-12-05 23:02:35 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-12-05 23:02:35 +0100 |
| commit | 6f3f952e20031d0892f8cd5b32a0c61647493616 (patch) | |
| tree | 15b9251fba0414edbb697c54ec741c6ab7cad59a | |
| parent | c84820618a24a6bab153e9504d1bdd5158bb09ec (diff) | |
| download | guix-6f3f952e20031d0892f8cd5b32a0c61647493616.tar guix-6f3f952e20031d0892f8cd5b32a0c61647493616.tar.gz | |
gnu: astromenace: Improve package style.
* gnu/packages/games.scm (astromenace)[arguments]: Use G-expressions. Remove
trailing #T from phases.
| -rw-r--r-- | gnu/packages/games.scm | 45 |
1 files changed, 21 insertions, 24 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 19cf669284..0f5f3cc332 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -457,30 +457,27 @@ physics settings to tweak as well.") (base32 "0vw94issjzz6rji0ssqv5yrll513dvj7m0d33q8lbih1gdh4alal")))) (build-system cmake-build-system) (arguments - `(#:tests? #f ;no test - #:configure-flags (list (string-append "-DDATADIR=" - (assoc-ref %outputs "out") - "/share/astromenace")) - #:phases - (modify-phases %standard-phases - (replace 'install - ;; Upstream provides no install phase. - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (share (string-append out "/share")) - (apps (string-append share "/applications")) - (data (string-append share "/astromenace")) - (icons (string-append share "/icons/hicolor/64x64/apps"))) - (install-file "astromenace" bin) - (install-file "gamedata.vfs" data) - (let ((source (assoc-ref inputs "source"))) - (with-directory-excursion (string-append source "/share") - (install-file "astromenace.desktop" apps) - (mkdir-p icons) - (copy-file "astromenace_64.png" - (string-append icons "/astromenace.png"))))) - #t))))) + (list + #:tests? #f ;no tests + #:configure-flags + #~(list (string-append "-DDATADIR=" #$output "/share/astromenace")) + #:phases + #~(modify-phases %standard-phases + (replace 'install + ;; Upstream provides no install phase. + (lambda _ + (let* ((bin (string-append #$output "/bin")) + (share (string-append #$output "/share")) + (apps (string-append share "/applications")) + (data (string-append share "/astromenace")) + (icons (string-append share "/icons/hicolor/64x64/apps"))) + (install-file "astromenace" bin) + (install-file "gamedata.vfs" data) + (with-directory-excursion (string-append #$source "/share") + (install-file "astromenace.desktop" apps) + (mkdir-p icons) + (copy-file "astromenace_64.png" + (string-append icons "/astromenace.png"))))))))) (inputs (list freealut freetype |