summary refs log tree commit diff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2022-08-07 02:00:00 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2022-08-07 02:00:00 +0200
commit33ae2fb39824fbcdbd8f39a7a2936d3186df4513 (patch)
tree3c6624931699144bd57b4db22321bbc4a581afa0
parent501d4b3bb418c39fdea420ae1b8a1723af6ee3ab (diff)
downloadguix-33ae2fb39824fbcdbd8f39a7a2936d3186df4513.tar.gz
gnu: xonotic-data: Use G-expressions.
* gnu/packages/games.scm (xonotic-data)[arguments]:
Rewrite as G-expressions.
-rw-r--r--gnu/packages/games.scm34
1 files 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