summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2022-03-09 15:16:30 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2022-03-09 15:16:30 +0100
commit53abcfb1c3d00a1863fb23b141543ebc0f4b999f (patch)
tree0bb4cfc1d80d1b80d684b2e3920ebcc9903e4e2e
parentf57d174a51028eaad6889fd1491d44a3276b20bb (diff)
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.scm42
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