aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Gibbons <jgibbons2357@gmail.com>2019-12-21 16:56:43 -0700
committerChristopher Baines <mail@cbaines.net>2020-11-20 20:03:03 +0000
commitd38903fab47fe333a99c68166e98e454d6e0e446 (patch)
treea1610e400843465d756142fc1edf935c662eb37c
parenta99ddf3e7ac436e75fcee0345f931b5d7f767e36 (diff)
downloadguix-d38903fab47fe333a99c68166e98e454d6e0e446.tar
guix-d38903fab47fe333a99c68166e98e454d6e0e446.tar.gz
gnu: clojure: Add bin/clojure wrapper.
Fixes: https://issues.guix.gnu.org/issue/32709 * gnu/packages/clojure.scm: (clojure)[inputs]: Add icedtea. [arguments]: Add make-wrapper phase. Signed-off-by: Christopher Baines <mail@cbaines.net>
-rw-r--r--gnu/packages/clojure.scm22
1 files changed, 21 insertions, 1 deletions
diff --git a/gnu/packages/clojure.scm b/gnu/packages/clojure.scm
index e66132ab40..5b238ab996 100644
--- a/gnu/packages/clojure.scm
+++ b/gnu/packages/clojure.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
@@ -21,6 +22,7 @@
(define-module (gnu packages clojure)
#:use-module (gnu packages)
+ #:use-module (gnu packages java)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
@@ -78,6 +80,8 @@
(sha256
(base32 "1kcyv2836acs27vi75hvf3r773ahv2nlh9b3j9xa9m9sdanz1h83")))))
(build-system ant-build-system)
+ (inputs
+ `(("jre" ,icedtea)))
(arguments
`(#:imported-modules ((guix build clojure-utils)
(guix build guile-build-system)
@@ -114,7 +118,23 @@
(add-after 'install-license-files 'install-doc
(cut install-doc #:doc-dirs '("doc/clojure/") <...>))
(add-after 'install-doc 'install-javadoc
- (install-javadoc "target/javadoc/")))))
+ (install-javadoc "target/javadoc/"))
+ (add-after 'install 'make-wrapper
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (wrapper (string-append out "/bin/clojure")))
+ (mkdir-p (string-append out "/bin"))
+ (with-output-to-file wrapper
+ (lambda _
+ (display
+ (string-append
+ "#!"
+ (which "sh")
+ "\n\n"
+ (assoc-ref inputs "jre") "/bin/java -jar "
+ out "/share/java/clojure.jar \"$@\"\n"))))
+ (chmod wrapper #o555))
+ #t)))))
(native-inputs libraries)
(home-page "https://clojure.org/")
(synopsis "Lisp dialect running on the JVM")