121/131: gnu: freecad: Wrap with GUIX_PYTHONPATH.

[guix-commits]

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

commit 2d2713f0aa886030e70b360e14fc464586164652
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Jan 27 21:16:22 2021 -0500

    gnu: freecad: Wrap with GUIX_PYTHONPATH.
    
    * gnu/packages/engineering.scm (freecad)
    [phases]{restore-pythonpath}: Delete phase.
    {wrap-pythonpath}: Replace PYTHONPATH with GUIX_PYTHONPATH.
---
 gnu/packages/engineering.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index d0c7a2b..0bf3fe4 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -2591,18 +2591,12 @@ full programmatic control over your models.")
                          "/include/shiboken2"))
          #:phases
          (modify-phases %standard-phases
-           (add-before 'configure 'restore-pythonpath
-             (lambda _
-               (substitute* "src/Main/MainGui.cpp"
-                 (("_?putenv\\(\"PYTHONPATH=\"\\);") ""))
-               #t))
            (add-after 'install 'wrap-pythonpath
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((out (assoc-ref outputs "out")))
                  (wrap-program (string-append out "/bin/FreeCAD")
-                   (list "PYTHONPATH"
-                         'prefix (list (getenv "GUIX_PYTHONPATH")))))
-               #t)))))
+                   (list "GUIX_PYTHONPATH"
+                         'prefix (list (getenv "GUIX_PYTHONPATH"))))))))))
       (home-page "https://www.freecadweb.org/";)
       (synopsis "Your Own 3D Parametric Modeler")
       (description