nongnu: bitwig-studio: Fix program crash.

* nongnu/packages/music.scm (bitwig-studio)[#:phases]: Modify "create-wrapper".
This commit is contained in:
Sughosha 2023-06-14 06:28:56 +00:00
parent d09cd3d9e4
commit 2c6f8ae5ce

View File

@ -202,7 +202,7 @@ comprehensively extended, scripted and modified.")
"BitwigAudioEngine-X64-AVX2" "BitwigAudioEngine-X64-AVX2"
"BitwigAudioEngine-X64-SSE41")))) "BitwigAudioEngine-X64-SSE41"))))
(add-after 'install 'create-wrapper (add-after 'install 'create-wrapper
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(make-wrapper (make-wrapper
(string-append #$output "/bin/bitwig-studio") (string-append #$output "/bin/bitwig-studio")
(string-append #$output (string-append #$output
@ -211,13 +211,20 @@ comprehensively extended, scripted and modified.")
`("PATH" prefix `("PATH" prefix
(,(string-append #$ffmpeg "/bin"))) (,(string-append #$ffmpeg "/bin")))
`("LD_LIBRARY_PATH" ":" suffix `("LD_LIBRARY_PATH" ":" suffix
(,(string-append #$alsa-lib "/lib") (,(string-append (assoc-ref inputs "libc") "/lib")
,(string-append #$alsa-lib "/lib")
,(string-append #$jack-1 "/lib") ,(string-append #$jack-1 "/lib")
,(string-append #$libusb4java "/lib") ,(string-append #$libusb4java "/lib")
,(string-append #$libx11 "/lib")
,(string-append #$libxcb "/lib")
,(string-append #$libxkbcommon "/lib")
,(string-append #$llvm-13 "/lib") ,(string-append #$llvm-13 "/lib")
,(string-append #$pipewire "/lib") ,(string-append #$pipewire "/lib")
,(string-append #$pulseaudio "/lib") ,(string-append #$pulseaudio "/lib")
,(string-append #$xcb-imdkit "/lib")))))) ,(string-append #$xcb-imdkit "/lib")
,(string-append #$xcb-util "/lib")
,(string-append #$xcb-util-wm "/lib")
,(string-append #$zlib))))))
(replace 'install-license-files (replace 'install-license-files
(lambda _ (lambda _
(install-file (install-file