ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 20:27:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: flare-game: Improve package style.

Browse source 
* gnu/packages/games.scm (flare-game)[arguments]: Use G-expressions.  Use
SEARCH-INPUT-DIRECTORY and SEARCH-INPUT-FILE.
This commit is contained in:
Nicolas Goaziou 2022-02-07 12:02:11 +01:00
parent 644be96305
commit 7047ca22e6
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 37 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
gnu/packages/games.scm
View file

@ -8951,48 +8951,45 @@ (define-public flare-game
"0l0d4j2l1szdwrk8casaiskdk16wkbmms7cid4y751d42czg4ffw"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;no test
#:configure-flags '("-DDATADIR=share/flare")
#:phases
(modify-phases %standard-phases
;; Flare expects the mods to be located in the same folder.
;; Yet, "default" mod is in the engine, whereas the others
;; are in the current package. Merge everything here with
;; a symlink.
(add-after 'install 'add-default-mod
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(mods (string-append out "/share/flare/mods")))
(with-directory-excursion mods
(symlink (string-append (assoc-ref inputs "flare-engine")
"/share/flare/mods/default")
"default")
(symlink (string-append (assoc-ref inputs "flare-engine")
"/share/flare/mods/mods.txt")
"mods.txt")))
#t))
(add-after 'install 'install-executable
;; The package only provides assets for the game, the
;; executable coming from "flare-engine". Since more than
;; one game may use the engine, we create a new executable,
;; "flare-game", which launches the engine with appropriate
;; parameters.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bash (search-input-file inputs "/bin/bash"))
(list
#:tests? #f ;no test
#:configure-flags #~(list "-DDATADIR=share/flare")
#:phases
#~(modify-phases %standard-phases
;; Flare expects the mods to be located in the same folder.
;; Yet, "default" mod is in the engine, whereas the others
;; are in the current package. Merge everything here with
;; a symlink.
(add-after 'install 'add-default-mod
(lambda* (#:key inputs #:allow-other-keys)
(let ((mods (string-append #$output "/share/flare/mods")))
(with-directory-excursion mods
(symlink (search-input-directory inputs
"/share/flare/mods/default")
"default")
(symlink (search-input-file inputs
"/share/flare/mods/mods.txt")
"mods.txt")))))
(add-after 'install 'install-executable
;; The package only provides assets for the game, the
;; executable coming from "flare-engine". Since more than
;; one game may use the engine, we create a new executable,
;; "flare-game", which launches the engine with appropriate
;; parameters.
(lambda* (#:key inputs #:allow-other-keys)
(let ((bash (search-input-file inputs "/bin/bash"))
(flare (search-input-file inputs "/bin/flare"))
(script (string-append out "/bin/flare-game")))
(mkdir-p (dirname script))
(call-with-output-file script
(lambda (port)
(format port
"#!~a
(script (string-append #$output "/bin/flare-game")))
(mkdir-p (dirname script))
(call-with-output-file script
(lambda (port)
(format port
"#!~a
exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
bash
flare
out)))
(chmod script #o755))
#t)))))
bash
flare
#$output)))
(chmod script #o755)))))))
(inputs
(list flare-engine))
(home-page "http://www.flarerpg.org/")