diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-03-09 15:16:30 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-03-09 15:16:30 +0100 |
commit | 53abcfb1c3d00a1863fb23b141543ebc0f4b999f (patch) | |
tree | 0bb4cfc1d80d1b80d684b2e3920ebcc9903e4e2e | |
parent | f57d174a51028eaad6889fd1491d44a3276b20bb (diff) | |
download | guix-patches-53abcfb1c3d00a1863fb23b141543ebc0f4b999f.tar guix-patches-53abcfb1c3d00a1863fb23b141543ebc0f4b999f.tar.gz |
gnu: bzflag: Improve package style.
* gnu/packages/games.scm (bzflag)[arguments]: Remove trailing #T from
phases. Use G-expressions.
-rw-r--r-- | gnu/packages/games.scm | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 4b50943613..8cc29b3487 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -831,27 +831,27 @@ Quizzes: arithmetic and quiz.") (base32 "1i73ijlnxsz52fhqgkj2qcvibfgav3byq1is68gab2zwnyz330az")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-desktop-file-and-icons - (lambda* (#:key outputs #:allow-other-keys) - (let* ((share (string-append (assoc-ref outputs "out") "/share")) - (data (string-append share "/bzflag")) - (hicolor (string-append share "/icons/hicolor")) - (applications (string-append share "/applications"))) - ;; Move desktop file. - (install-file (string-append data "/bzflag.desktop") - applications) - ;; Install icons. - (for-each (lambda (size) - (let* ((dim (string-append size "x" size)) - (dir (string-append hicolor "/" dim "/apps"))) - (mkdir-p dir) - (copy-file - (string-append data "/bzflag-" dim ".png") - (string-append dir "/bzflag.png")))) - '("48" "256"))) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'install-desktop-file-and-icons + (lambda _ + (let* ((share (string-append #$output "/share")) + (data (string-append share "/bzflag")) + (hicolor (string-append share "/icons/hicolor")) + (applications (string-append share "/applications"))) + ;; Move desktop file. + (install-file (string-append data "/bzflag.desktop") + applications) + ;; Install icons. + (for-each (lambda (size) + (let* ((dim (string-append size "x" size)) + (dir (string-append hicolor "/" dim "/apps"))) + (mkdir-p dir) + (copy-file + (string-append data "/bzflag-" dim ".png") + (string-append dir "/bzflag.png")))) + '("48" "256")))))))) (native-inputs (list pkg-config)) (inputs |