Archived
1
0
Fork 0

gnu: openttd-opensfx: Use new package style.

* gnu/packages/games.scm (openttd-opensfx)[arguments]: Convert to list of
G-Expressions.  Drop trailing ‘#t’s.
[native-inputs]: Drop labels.
This commit is contained in:
Liliana Marie Prikler 2022-04-16 00:49:31 +02:00
parent 2bae85d39b
commit 4df82befc9
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -4363,34 +4363,34 @@ OpenGFX provides you with...
"0aym026lg0r7dp3jxxs9c0rj8lwy1fz3v9hmk3mml6sycsg3fv42")))) "0aym026lg0r7dp3jxxs9c0rj8lwy1fz3v9hmk3mml6sycsg3fv42"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("catcodec" ,catcodec) (list catcodec
("python" ,python) python
("tar" ,tar))) tar))
(arguments (arguments
`(#:make-flags (list
(list (string-append "DIR_NAME=opensfx") #:make-flags
(string-append "TAR=" #~(list (string-append "DIR_NAME=opensfx")
(search-input-file %build-inputs "/bin/tar"))) (string-append "TAR="
;; The check phase only verifies md5sums, see openttd-opengfx. (search-input-file %build-inputs "/bin/tar")))
#:tests? #f ;; The check phase only verifies md5sums, see openttd-opengfx.
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
(add-after 'unpack 'make-reproducible #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'make-reproducible
;; Remove the time dependency of the installed tarball by setting (lambda _
;; the modification times if its members to 0. ;; Remove the time dependency of the installed tarball by setting
(substitute* "scripts/Makefile.def" ;; the modification times if its members to 0.
(("-cf") " --mtime=@0 -cf")) (substitute* "scripts/Makefile.def"
#t)) (("-cf") " --mtime=@0 -cf"))))
(delete 'configure) (delete 'configure)
(add-before 'build 'prebuild (add-before 'build 'prebuild
(lambda _ (invoke "make" "opensfx.cat"))) (lambda _ (invoke "make" "opensfx.cat")))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(copy-recursively "opensfx" (copy-recursively "opensfx"
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/share/games/openttd/baseset" "/share/games/openttd/baseset"
"/opensfx"))))))) "/opensfx")))))))
(home-page "http://dev.openttdcoop.org/projects/opensfx") (home-page "http://dev.openttdcoop.org/projects/opensfx")
(synopsis "Base sounds for OpenTTD") (synopsis "Base sounds for OpenTTD")
(description "OpenSFX is a set of free base sounds for OpenTTD which make (description "OpenSFX is a set of free base sounds for OpenTTD which make