~ruther/guix-local: gnu: elixir: Wrap binaries.

c2ed5a7d134dff0755954dd966cb3a41fc047ba5 — Pierre-Henry Fröhring 2 years ago e0e6d65

gnu: elixir: Wrap binaries.

* gnu/packages/elixir.scm (elixir)[#:phases]: Add ‘wrap-programs’.
[native-search-path]: Add “GUIX_ELIXIR_LIBS”.

Change-Id: I75bdde3aeedc1d495ea5fc2c5fc3fcdc5dc3fad2
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

patch browse .tar.gz

1 files changed, 15 insertions(+), 3 deletions(-)

M gnu/packages/elixir.scm

M gnu/packages/elixir.scm => gnu/packages/elixir.scm +15 -3

@@ 27,6 27,7 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix build-system gnu)
   #:use-module (guix gexp)
+  #:use-module (guix utils)
   #:use-module (guix git-download)
   #:use-module (guix packages)
   #:use-module (gnu packages)


@@ 96,9 97,20 @@
             (lambda* (#:key inputs #:allow-other-keys)
               ;; Some tests require access to a home directory.
               (setenv "HOME" "/tmp")))
-          (delete 'configure))))
-    (inputs
-     (list erlang git))
+          (delete 'configure)
+          (add-after 'install 'wrap-programs
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let* ((out (assoc-ref outputs "out"))
+                     (programs '("elixir" "elixirc" "iex" "mix")))
+                (for-each (lambda (program)
+                            (wrap-program (string-append out "/bin/" program)
+                              '("ERL_LIBS" prefix ("${GUIX_ELIXIR_LIBS}"))))
+                          programs)))))))
+    (inputs (list erlang git))
+    (native-search-paths
+     (list (search-path-specification
+            (variable "GUIX_ELIXIR_LIBS")
+            (files (list (string-append "lib/elixir/" (version-major+minor version)))))))
     (home-page "https://elixir-lang.org/")
     (synopsis "Elixir programming language")
     (description "Elixir is a dynamic, functional language used to build