1 files changed, 8 insertions(+), 1 deletions(-)

M modules/ruther/environment.scm

@@ 13,7 13,8 @@
   #:export (make-environment
              make-interpreted-environment
              make-python-environment
-             make-guile-environment))
+             make-guile-environment
+             package->application-environment))
 
 ;; Makes a package that uses the given environment, and wraps the binaries in it.
 ;; TODO: replace the paths (only in text files!!! not in binaries...) in all extra-paths files,


@@ 146,3 147,9 @@
    python
    "guile"
    guile-packages))
+
+(define* (package->application-environment
+          application)
+  (make-environment
+    (package->manifest application)
+    #:name (string-append(package-name application) "environment")))