[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#67026] [PATCH 3/3] gnu: josm: Reduce closure size.
From: |
Julien Lepiller |
Subject: |
[bug#67026] [PATCH 3/3] gnu: josm: Reduce closure size. |
Date: |
Thu, 9 Nov 2023 20:13:09 +0100 |
This saves 240MB of closure size.
* gnu/packages/geo.scm (josm)[inputs]: Add openjdk11.
[arguments]: Filter native inputs out of CLASSPATH. Use `java' from
openjdk11 instead of the JDK.
Change-Id: Ifa03b5cd033c5866d22e7557119284be0ea25a0e
---
gnu/packages/geo.scm | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm
index dbc8440141..746b22a082 100644
--- a/gnu/packages/geo.scm
+++ b/gnu/packages/geo.scm
@@ -1970,7 +1970,8 @@ (define-public josm
java-openjfx-media
java-parsson ; runtime dependency
java-signpost-core
- java-svg-salamander))
+ java-svg-salamander
+ openjdk11))
(arguments
`(#:tests? #f
#:jar-name "josm.jar"
@@ -2070,9 +2071,16 @@ (define-public josm
(lambda _
(display
(string-append "#!/bin/sh\n"
- (assoc-ref inputs "jdk") "/bin/java"
+ (assoc-ref inputs "openjdk") "/bin/java"
" -cp " out "/share/java/josm.jar:"
- (getenv "CLASSPATH")
+ ;; CLASSPATH, but remove native inputs
+ (string-join
+ (filter
+ (lambda (jar)
+ (and (not (string-contains jar
"-jdk/"))
+ (not (string-contains jar
"-javacc-"))))
+ (string-split (getenv "CLASSPATH")
#\:))
+ ":")
"
org.openstreetmap.josm.gui.MainApplication"))))
(chmod (string-append bin "/josm") #o755))
#t)))))
--
2.41.0