09/09: gnu: vapoursynth: Wrap with own PYTHONPATH.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit c00b1760f605255719a525e52c268b222a1f5184
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun May 30 11:51:30 2021 +0200

    gnu: vapoursynth: Wrap with own PYTHONPATH.
    
    This fixes, e.g., ‘vspipe -v’ in a pure environment.
    
    * gnu/packages/video.scm (vapoursynth)[arguments]: Add a 'wrap phase.
    
    Reported by maddo of #guix.
---
 gnu/packages/video.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 2eef765..5975004 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -2817,6 +2817,18 @@ capabilities.")
                (base32
                 "1krfdzc2x2vxv4nq9kiv1c09hgj525qn120ah91fw2ikq8ldvmx4"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out    (assoc-ref outputs "out"))
+                    (site   (string-append out "/lib/python"
+                                           ,(version-major+minor
+                                             (package-version python))
+                                           "/site-packages")))
+               (wrap-program (string-append out "/bin/vspipe")
+                 `("PYTHONPATH" ":" = (,site)))))))))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)