31/40: gnu: arcan: Use new style arguments.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 076660f2ef1ca9fa35137e8520d77b7dcb41ee63
Author: Ahmad Draidi <a.r.draidi@redscript.org>
AuthorDate: Thu Aug 10 22:16:36 2023 +0400

    gnu: arcan: Use new style arguments.
    
    * gnu/packages/arcan.scm (arcan)[arguments]: Use new style arguments.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 gnu/packages/arcan.scm | 50 ++++++++++++++++++++++++--------------------------
 1 file changed, 24 insertions(+), 26 deletions(-)

diff --git a/gnu/packages/arcan.scm b/gnu/packages/arcan.scm
index 9d18f7a52a..ee32f05b64 100644
--- a/gnu/packages/arcan.scm
+++ b/gnu/packages/arcan.scm
@@ -79,32 +79,30 @@
                      (delete-file-recursively "external/sqlite")))))
       (build-system cmake-build-system)
       (arguments
-       `(#:configure-flags '("-DBUILD_PRESET=everything"
-                             "-DDISTR_TAG='Guix'")
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'patch-paths
-             (lambda* (#:key outputs #:allow-other-keys)
-               (substitute* "src/platform/posix/paths.c"
-                 (("/usr/local")
-                  (assoc-ref outputs "out")))))
-           ;; Normally, it tries to fetch patched openal with git
-           ;; but copying files manually in the right place seems to work too.
-           (add-after 'unpack 'prepare-static-openal
-             (lambda* (#:key inputs #:allow-other-keys)
-               (let ((arcan-openal (assoc-ref inputs "arcan-openal")))
-                 (copy-recursively arcan-openal "external/git/openal"))
-               #t))
-           (add-after 'prepare-static-openal 'generate-man
-             (lambda _
-               (with-directory-excursion "doc"
-                 (invoke "ruby" "docgen.rb" "mangen"))
-               #t))
-           (add-before 'configure 'chdir
-             (lambda _
-               (chdir "src")
-               #t)))
-         #:tests? #f))
+       (list #:configure-flags #~'("-DBUILD_PRESET=everything"
+                                   "-DDISTR_TAG='Guix'")
+             #:phases #~(modify-phases %standard-phases
+                          (add-after 'unpack 'patch-paths
+                            (lambda* (#:key outputs #:allow-other-keys)
+                              (substitute* "src/platform/posix/paths.c"
+                                (("/usr/local")
+                                 (assoc-ref outputs "out")))))
+                          ;; Normally, it tries to fetch patched openal with 
git
+                          ;; but copying files manually in the right place 
seems to work too.
+                          (add-after 'unpack 'prepare-static-openal
+                            (lambda* (#:key inputs #:allow-other-keys)
+                              (let ((arcan-openal (assoc-ref inputs
+                                                             "arcan-openal")))
+                                (copy-recursively arcan-openal
+                                                  "external/git/openal")) #t))
+                          (add-after 'prepare-static-openal 'generate-man
+                            (lambda _
+                              (with-directory-excursion "doc"
+                                (invoke "ruby" "docgen.rb" "mangen")) #t))
+                          (add-before 'configure 'chdir
+                            (lambda _
+                              (chdir "src") #t)))
+             #:tests? #f))
       (inputs
        `(("bash-minimal" ,bash-minimal)
          ("espeak" ,espeak)