mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: carla: Use G-expressions.

Browse source 
* gnu/packages/audio.scm (carla)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-01 02:00:00 +02:00
parent eb1eac4762
commit acfc0feae4
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/audio.scm
View file

@ -4998,28 +4998,25 @@ (define-public carla
(base32 "01ngkmfcxyg1bb4qmfvlkkjbx4lx62akxqhizl8zmqnhfcy4p9bx")))) (base32 "01ngkmfcxyg1bb4qmfvlkkjbx4lx62akxqhizl8zmqnhfcy4p9bx"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target (list #:tests? #f ; no "check" target
#:make-flags #:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))) #~(list (string-append "PREFIX=" #$output))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(add-before 'build 'set-CC-variable-and-show-features (add-before 'build 'set-CC-variable-and-show-features
(lambda _ (lambda _
(setenv "CC" "gcc") (setenv "CC" "gcc")
(invoke "make" "features"))) (invoke "make" "features")))
(add-after 'install 'make-carla-executable (add-after 'install 'make-carla-executable
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (chmod (string-append #$output "/share/carla/carla") #o555)))
(chmod (string-append out "/share/carla/carla") #o555) (add-after 'install 'wrap-executables
#t))) (lambda* (#:key inputs #:allow-other-keys)
(add-after 'install 'wrap-executables (wrap-script (string-append #$output "/bin/carla")
(lambda* (#:key inputs outputs #:allow-other-keys) #:guile (search-input-file inputs "bin/guile")
(let ((out (assoc-ref outputs "out"))) `("GUIX_PYTHONPATH" ":" prefix
(wrap-script (string-append out "/bin/carla") (,(getenv "GUIX_PYTHONPATH")))))))))
#:guile (search-input-file inputs "bin/guile")
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH"))))
#t))))))
(inputs (inputs
(list alsa-lib (list alsa-lib
ffmpeg ffmpeg