futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: kawa: Wrap to find java.

Browse Source 
* gnu/packages/kawa.scm (kawa)[arguments]: Add ‘wrap-kawa’ phase to set JAVA_HOME.
This commit is contained in:
Tobias Geerinckx-Rice 2020-04-14 07:06:12 +02:00
parent 7059f925ea
commit ea607b3551
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/kawa.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2019 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -38,7 +39,15 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:parallel-build? #f `(#: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 (inputs
`(("icedtea" ,icedtea-8 "jdk"))) `(("icedtea" ,icedtea-8 "jdk")))
(home-page "https://www.gnu.org/software/kawa/") (home-page "https://www.gnu.org/software/kawa/")