01/02: gnu: kawa: Wrap to find java.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ea607b355169158fefa796cabb3add66aac7301d
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Tue Apr 14 07:06:12 2020 +0200

    gnu: kawa: Wrap to find java.
    
    * gnu/packages/kawa.scm (kawa)[arguments]: Add ‘wrap-kawa’ phase to set 
JAVA_HOME.
---
 gnu/packages/kawa.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kawa.scm b/gnu/packages/kawa.scm
index 5771eed..e72e198 100644
--- a/gnu/packages/kawa.scm
+++ b/gnu/packages/kawa.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2019 Carlo Zancanaro <address@hidden>
 ;;; Copyright © 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2020 Tobias Geerinckx-Rice <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -38,7 +39,15 @@
     (build-system gnu-build-system)
     (arguments
      `(#:parallel-build? #f
-       #:parallel-tests? #f))
+       #:parallel-tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-kawa
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/share/kawa/bin/kawa")
+                 `("JAVA_HOME" ":" = (,(assoc-ref inputs "icedtea"))))
+               #t))))))
     (inputs
      `(("icedtea" ,icedtea-8 "jdk")))
     (home-page "https://www.gnu.org/software/kawa/";)