me/guix
Archived
1
0
Fork 0
Code Activity

gnu: astromenace: Improve package style.

Browse source 
* gnu/packages/games.scm (astromenace)[arguments]: Use G-expressions.  Remove
trailing #T from phases.
This commit is contained in:
Nicolas Goaziou 2022-12-05 23:02:35 +01:00
parent c84820618a
commit 6f3f952e20
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 21 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
gnu/packages/games.scm
View file

@ -457,30 +457,27 @@ physics settings to tweak as well.")
(base32 "0vw94issjzz6rji0ssqv5yrll513dvj7m0d33q8lbih1gdh4alal")))) (base32 "0vw94issjzz6rji0ssqv5yrll513dvj7m0d33q8lbih1gdh4alal"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;no test (list
#:configure-flags (list (string-append "-DDATADIR=" #:tests? #f ;no tests
(assoc-ref %outputs "out") #:configure-flags
"/share/astromenace")) #~(list (string-append "-DDATADIR=" #$output "/share/astromenace"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'install (replace 'install
;; Upstream provides no install phase. ;; Upstream provides no install phase.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((bin (string-append #$output "/bin"))
(bin (string-append out "/bin")) (share (string-append #$output "/share"))
(share (string-append out "/share")) (apps (string-append share "/applications"))
(apps (string-append share "/applications")) (data (string-append share "/astromenace"))
(data (string-append share "/astromenace")) (icons (string-append share "/icons/hicolor/64x64/apps")))
(icons (string-append share "/icons/hicolor/64x64/apps"))) (install-file "astromenace" bin)
(install-file "astromenace" bin) (install-file "gamedata.vfs" data)
(install-file "gamedata.vfs" data) (with-directory-excursion (string-append #$source "/share")
(let ((source (assoc-ref inputs "source"))) (install-file "astromenace.desktop" apps)
(with-directory-excursion (string-append source "/share") (mkdir-p icons)
(install-file "astromenace.desktop" apps) (copy-file "astromenace_64.png"
(mkdir-p icons) (string-append icons "/astromenace.png")))))))))
(copy-file "astromenace_64.png"
(string-append icons "/astromenace.png")))))
#t)))))
(inputs (inputs
(list freealut (list freealut
freetype freetype