05/13: gnu: xonotic-data: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 33ae2fb39824fbcdbd8f39a7a2936d3186df4513
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Aug 7 02:00:00 2022 +0200

    gnu: xonotic-data: Use G-expressions.
    
    * gnu/packages/games.scm (xonotic-data)[arguments]:
    Rewrite as G-expressions.
---
 gnu/packages/games.scm | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 1dcc6483b7..055c9ba9b7 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -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