01/01: gnu: conda: Fix environment scripts.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 1d84500a728dab29989e615602889c32868e9a50
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Nov 3 00:10:36 2017 +0100

    gnu: conda: Fix environment scripts.
    
    * gnu/packages/package-management.scm (conda)[arguments]: Add phase
    "undo-wrap".
---
 gnu/packages/package-management.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index af0ef10..8703209 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -732,7 +732,17 @@ This package provides Conda as a library.")
                  ;; And it aborts if the directory doesn't exist.
                  (mkdir-p target)
                  (zero? (system* "python" "utils/setup-testing.py" "install"
-                                 (string-append "--prefix=" out))))))))))
+                                 (string-append "--prefix=" out))))))
+           ;; The "activate" and "deactivate" scripts don't need wrapping.
+           ;; They also break when they are renamed.
+           (add-after 'wrap 'undo-wrap
+             (lambda* (#:key outputs #:allow-other-keys)
+               (with-directory-excursion (string-append (assoc-ref outputs 
"out") "/bin/")
+                 (delete-file "deactivate")
+                 (rename-file ".deactivate-real" "deactivate")
+                 (delete-file "activate")
+                 (rename-file ".activate-real" "activate")
+                 #t)))))))
     (description
      "Conda is a cross-platform, Python-agnostic binary package manager.  It
 is the package manager used by Anaconda installations, but it may be used for