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

gnu: carla: Fix start-up.

Browse source 
This fixes <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=39942>,
properly.

* gnu/packages/audio.scm (carla)[arguments]: Add ‘wrap-executables’ phase.
[inputs]: Add guile-2.2.
This commit is contained in:
Tobias Geerinckx-Rice 2020-03-06 16:28:32 +01:00
parent 366c2c8f48
commit 1ab58a3d90
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/audio.scm
View file

@ -70,6 +70,7 @@
#:use-module (gnu packages gnunet) ; libmicrohttpd #:use-module (gnu packages gnunet) ; libmicrohttpd
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages libbsd) #:use-module (gnu packages libbsd)
@ -3940,7 +3941,12 @@ as is the case with audio plugins.")
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(chmod (string-append out "/share/carla/carla") #o555) (chmod (string-append out "/share/carla/carla") #o555)
#t))) #t)))
))) (add-after 'install 'wrap-executables
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-script (string-append out "/bin/carla")
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
#t))))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("ffmpeg" ,ffmpeg) ("ffmpeg" ,ffmpeg)
@ -3958,7 +3964,10 @@ as is the case with audio plugins.")
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)
("libx11" ,libx11) ("libx11" ,libx11)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("zlib" ,zlib))) ("zlib" ,zlib)
;; For WRAP-SCRIPT above.
("guile" ,guile-2.2)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(home-page "https://kx.studio/Applications:Carla") (home-page "https://kx.studio/Applications:Carla")