[bug#38022] v2 - [Patch] gnu: lilv: Enable python bindings.

[Florian Paul Schmidt <florian_paul.schmidt@uni-bielefeld.de>]

[-- Attachment #1: Type: text/plain, Size: 99 bytes --]

Hi,

do please include me in replies since I'm not subscribed to
guix-patches..

Kind regards,
FPS

[-- Attachment #2: 0001-gnu-lilv-Enable-python-bindings.patch --]
[-- Type: text/x-patch, Size: 2146 bytes --]

From 096a799b91fa6db12caaf7ad433852daf3ca6529 Mon Sep 17 00:00:00 2001
From: FPS <mista.tapas@gmx.net>
Date: Fri, 1 Nov 2019 14:35:49 +0100
Subject: [PATCH] gnu: lilv: Enable python bindings.

---
 gnu/packages/audio.scm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 88b5696a9b..c7b88d9ecf 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,16 @@ 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 +1851,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
-- 
2.22.0