mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 01:07:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: arcan: Use new style arguments.

Browse source 
* gnu/packages/arcan.scm (arcan)[arguments]: Use new style arguments.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Ahmad Draidi 2023-08-10 22:16:36 +04:00 committed by Maxim Cournoyer
parent 2b6b951f55
commit 076660f2ef
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 24 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/arcan.scm
View file

@ -79,10 +79,9 @@ (define-public arcan
(delete-file-recursively "external/sqlite"))))) (delete-file-recursively "external/sqlite")))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:configure-flags '("-DBUILD_PRESET=everything" (list #:configure-flags #~'("-DBUILD_PRESET=everything"
"-DDISTR_TAG='Guix'") "-DDISTR_TAG='Guix'")
#:phases #:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths (add-after 'unpack 'patch-paths
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(substitute* "src/platform/posix/paths.c" (substitute* "src/platform/posix/paths.c"
@ -92,18 +91,17 @@ (define-public arcan
;; but copying files manually in the right place seems to work too. ;; but copying files manually in the right place seems to work too.
(add-after 'unpack 'prepare-static-openal (add-after 'unpack 'prepare-static-openal
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((arcan-openal (assoc-ref inputs "arcan-openal"))) (let ((arcan-openal (assoc-ref inputs
(copy-recursively arcan-openal "external/git/openal")) "arcan-openal")))
#t)) (copy-recursively arcan-openal
"external/git/openal")) #t))
(add-after 'prepare-static-openal 'generate-man (add-after 'prepare-static-openal 'generate-man
(lambda _ (lambda _
(with-directory-excursion "doc" (with-directory-excursion "doc"
(invoke "ruby" "docgen.rb" "mangen")) (invoke "ruby" "docgen.rb" "mangen")) #t))
#t))
(add-before 'configure 'chdir (add-before 'configure 'chdir
(lambda _ (lambda _
(chdir "src") (chdir "src") #t)))
#t)))
#:tests? #f)) #:tests? #f))
(inputs (inputs
`(("bash-minimal" ,bash-minimal) `(("bash-minimal" ,bash-minimal)