01/03: gnu: lilv: Enable python bindings.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 6833c7a1b3752a28737541bbbdcb357888512bfe
Author: FPS <address@hidden>
Date:   Fri Nov 1 14:35:49 2019 +0100

    gnu: lilv: Enable python bindings.
    
    * gnu/packages/audio.scm (lilv)[arguments]: Add #:configure-flags.  Add 
phase
    to embed full path to liblilv-0.so.
    [native-inputs]: Add PYTHON.
    [home-page]: Follow redirect.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/audio.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 88b5696..28dbf06 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -1825,6 +1825,7 @@ included are the command line utilities @code{send_osc} 
and @code{dump_osc}.")
     (build-system waf-build-system)
     (arguments
      `(#:tests? #f                      ; no check target
+       #:configure-flags (list "--bindings")
        #:phases
        (modify-phases %standard-phases
          (add-before
@@ -1833,7 +1834,14 @@ included are the command line utilities @code{send_osc} 
and @code{dump_osc}.")
             (setenv "LDFLAGS"
                     (string-append "-Wl,-rpath="
                                    (assoc-ref outputs "out") "/lib"))
-            #t)))))
+            #t))
+         (add-after 'unpack 'full-store-path-to-shared-library
+           (lambda* (#:key outputs #:allow-other-keys)
+             (with-directory-excursion "bindings/python"
+               (substitute* "lilv.py"
+                 (("liblilv-0.so") (string-append (assoc-ref outputs "out")
+                                                  "/lib/liblilv-0.so"))))
+             #t)))))
     ;; Required by lilv-0.pc.
     (propagated-inputs
      `(("lv2" ,lv2)
@@ -1841,8 +1849,9 @@ included are the command line utilities @code{send_osc} 
and @code{dump_osc}.")
        ("sord" ,sord)
        ("sratom" ,sratom)))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
-    (home-page "https://drobilla.net/software/lilv/";)
+     `(("python" ,python)
+       ("pkg-config" ,pkg-config)))
+    (home-page "https://drobilla.net/software/lilv";)
     (synopsis "Library to simplify use of LV2 plugins in applications")
     (description
      "Lilv is a C library to make the use of LV2 plugins as simple as possible