27/163: gnu: catfish: Wrap with the new Guix PYTHONPATH.

[guix-commits]

apteryx pushed a commit to branch cu/farewell-to-pythonpath
in repository guix.

commit 2204e57097a105c5cfa5a532f2cb53e4b89e999e
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri Jan 22 16:49:17 2021 -0500

    gnu: catfish: Wrap with the new Guix PYTHONPATH.
    
    * gnu/packages/xfce.scm (catfish)
    [phases]{install}: Wrap with the new Guix PYTHONPATH.
---
 gnu/packages/xfce.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index 2192f61..18cda0e 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -238,10 +238,11 @@ to share commonly used Xfce widgets among the Xfce 
applications.")
                      (string-append "--prefix=" (assoc-ref outputs "out"))
                      "--root=/")))
          (add-after 'install 'wrap-program
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (pythonpath (guix-pythonpath inputs)))
                (wrap-program (string-append out "/bin/catfish")
-                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
+                 `(,pythonpath = (,(getenv pythonpath)))
                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))
        #:tests? #f))
     (native-inputs