guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: gnu: carla: Fix start-up.


From: guix-commits
Subject: branch master updated: gnu: carla: Fix start-up.
Date: Fri, 06 Mar 2020 10:36:07 -0500

This is an automated email from the git hooks/post-receive script.

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 1ab58a3  gnu: carla: Fix start-up.
1ab58a3 is described below

commit 1ab58a3d90cc6b0d15b5557de4cc67fee6636cb3
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Fri Mar 6 16:28:32 2020 +0100

    gnu: carla: Fix start-up.
    
    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.
---
 gnu/packages/audio.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 0cbed2a..6056ded 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -70,6 +70,7 @@
   #:use-module (gnu packages gnunet) ; libmicrohttpd
   #:use-module (gnu packages gperf)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages guile)
   #:use-module (gnu packages icu4c)
   #:use-module (gnu packages image)
   #:use-module (gnu packages libbsd)
@@ -3940,7 +3941,12 @@ as is the case with audio plugins.")
              (let ((out (assoc-ref outputs "out")))
                (chmod (string-append out "/share/carla/carla") #o555)
                #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
      `(("alsa-lib" ,alsa-lib)
        ("ffmpeg" ,ffmpeg)
@@ -3958,7 +3964,10 @@ as is the case with audio plugins.")
        ("python-wrapper" ,python-wrapper)
        ("libx11" ,libx11)
        ("qtbase" ,qtbase)
-       ("zlib" ,zlib)))
+       ("zlib" ,zlib)
+
+       ;; For WRAP-SCRIPT above.
+       ("guile" ,guile-2.2)))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (home-page "https://kx.studio/Applications:Carla";)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]