me/guix
Archived
1
0
Fork 0
Code Activity

gnu: xonotic-data: Use G-expressions.

Browse source 
* gnu/packages/games.scm (xonotic-data)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-08-07 02:00:00 +02:00
parent 501d4b3bb4
commit 33ae2fb398
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/games.scm
View file

@ -7771,24 +7771,22 @@ quotation from a collection of quotes.")
(build-system trivial-build-system)
(native-inputs (list unzip))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
(xonotic (string-append out "/share/xonotic"))
(source (assoc-ref %build-inputs "source"))
(unzip (search-input-file %build-inputs "/bin/unzip")))
(copy-file source (string-append ,name "-" ,version ".zip"))
(invoke unzip (string-append ,name "-" ,version ".zip"))
(mkdir-p out)
(mkdir-p xonotic)
(chdir "Xonotic")
(copy-recursively "data"
(string-append xonotic "/data"))
(copy-recursively "server"
(string-append xonotic "/server"))
(install-file "key_0.d0pk" xonotic)))))
(list #:modules '((guix build utils))
#:builder
#~(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
(xonotic (string-append out "/share/xonotic"))
(source (assoc-ref %build-inputs "source"))
(unzip (search-input-file %build-inputs "/bin/unzip")))
(copy-file source (string-append #$name "-" #$version ".zip"))
(invoke unzip (string-append #$name "-" #$version ".zip"))
(chdir "Xonotic")
(install-file "key_0.d0pk" xonotic)
(copy-recursively "data"
(string-append xonotic "/data"))
(copy-recursively "server"
(string-append xonotic "/server"))))))
(home-page "http://xonotic.org")
(synopsis "Data files for Xonotic")
(description