diff options
| author | Sughosha <sughosha@disroot.org> | 2024-12-05 21:43:08 +0530 |
|---|---|---|
| committer | Gabriel Wicki <gabriel@erlikon.ch> | 2025-09-17 12:13:04 +0200 |
| commit | 2c47027d02491d739706f89df934f9107366093e (patch) | |
| tree | 044284eec8aac3ea76b3ec6ff69e9a6351820f26 | |
| parent | 80065cbaa9597c431fcaa319ac4ff2e594a83d8c (diff) | |
gnu: carla: Make carla executable.
This commit allows lmms to launch carla.
* gnu/packages/audio.scm (carla)[arguments]<#:phases>: In make-carla-executable
phase, also make carla-control, carla-jack-multi, carla-jack-single,
carla-patchbay and carla-rack executable. In wrap-executables phase, also wrap
the other executables.
Change-Id: I42dee1070d467ca0aa292a4b5a412bece6c1a489
| -rw-r--r-- | gnu/packages/audio.scm | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index e01d0def8f..908a308f32 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -6533,12 +6533,30 @@ as is the case with audio plugins.") (invoke "make" "features"))) (add-after 'install 'make-carla-executable (lambda _ - (chmod (string-append #$output "/share/carla/carla") #o555))) + (with-directory-excursion (string-append #$output + "/share/carla") + (for-each (lambda (file) + (chmod file #o555)) + (list "carla" + "carla-control" + "carla-jack-multi" + "carla-jack-single" + "carla-patchbay" + "carla-rack"))))) (add-after 'install 'wrap-executables - (lambda _ - (wrap-program (string-append #$output "/bin/carla") - `("GUIX_PYTHONPATH" ":" prefix - (,(getenv "GUIX_PYTHONPATH"))))))))) + (lambda* (#:key inputs #:allow-other-keys) + ;; Wrap only those executable files that other programs + ;; (e.g. lmms) would call. + (with-directory-excursion #$output + (for-each (lambda (file) + (when (and (executable-file? file) + (not (symbolic-link? file)) + (not (string-suffix? ".py" file))) + (wrap-program file + `("GUIX_PYTHONPATH" ":" prefix + (,(getenv "GUIX_PYTHONPATH")))))) + (append (find-files "share/carla/resources") + (find-files "bin"))))))))) (inputs (list alsa-lib ffmpeg |