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

gnu: bzflag: Improve package style.

Browse source 
* gnu/packages/games.scm (bzflag)[arguments]: Remove trailing #T from
phases. Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-03-09 15:16:30 +01:00
parent f57d174a51
commit 53abcfb1c3
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/games.scm
View file

@ -831,27 +831,27 @@ (define-public bzflag
(base32 "1i73ijlnxsz52fhqgkj2qcvibfgav3byq1is68gab2zwnyz330az")))) (base32 "1i73ijlnxsz52fhqgkj2qcvibfgav3byq1is68gab2zwnyz330az"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'install 'install-desktop-file-and-icons #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'install-desktop-file-and-icons
(let* ((share (string-append (assoc-ref outputs "out") "/share")) (lambda _
(data (string-append share "/bzflag")) (let* ((share (string-append #$output "/share"))
(hicolor (string-append share "/icons/hicolor")) (data (string-append share "/bzflag"))
(applications (string-append share "/applications"))) (hicolor (string-append share "/icons/hicolor"))
;; Move desktop file. (applications (string-append share "/applications")))
(install-file (string-append data "/bzflag.desktop") ;; Move desktop file.
applications) (install-file (string-append data "/bzflag.desktop")
;; Install icons. applications)
(for-each (lambda (size) ;; Install icons.
(let* ((dim (string-append size "x" size)) (for-each (lambda (size)
(dir (string-append hicolor "/" dim "/apps"))) (let* ((dim (string-append size "x" size))
(mkdir-p dir) (dir (string-append hicolor "/" dim "/apps")))
(copy-file (mkdir-p dir)
(string-append data "/bzflag-" dim ".png") (copy-file
(string-append dir "/bzflag.png")))) (string-append data "/bzflag-" dim ".png")
'("48" "256"))) (string-append dir "/bzflag.png"))))
#t))))) '("48" "256"))))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs