Subject: [PATCH 17/21] gnu: Add java-batik-script.

From: Danny Milosavljevic <[email-masked]>
Date: Fri, 5 Oct 2018 17:50:18 +0200

* gnu/packages/batik.scm (java-batik-script): New variable.
---
 gnu/packages/batik.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/batik.scm b/gnu/packages/batik.scm
index 65d813e98..71417ec50 100644
--- a/gnu/packages/batik.scm
+++ b/gnu/packages/batik.scm
@@ -367,3 +367,28 @@ from @code{batik}).")
    `(("java-batik-awt-util" ,java-batik-awt-util)
      ("java-batik-constants" ,java-batik-constants)
      ("java-batik-util" ,java-batik-util))))
+
+(define-public java-batik-script
+  (let ((base-package
+         (java-batik-package "batik-script"
+          `(("java-batik-anim" ,java-batik-anim)
+            ("java-batik-constants" ,java-batik-constants)
+            ("java-batik-css" ,java-batik-css)
+            ("java-batik-dom" ,java-batik-dom)
+            ("java-batik-i18n" ,java-batik-i18n)
+            ("java-batik-svg-dom" ,java-batik-svg-dom)
+            ("java-batik-util" ,java-batik-util)
+            ("java-w3c-svg" ,java-w3c-svg-1.0)))))
+    (package
+      (inherit base-package)
+      (arguments
+       (substitute-keyword-arguments (package-arguments base-package)
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (add-after 'unpack 'remove-unsupported-features
+               (lambda _
+                 ;; TODO: Implement those.
+                 (delete-file-recursively "batik-script/src/main/java/org/apache/batik/script/jacl")
+                 (delete-file-recursively "batik-script/src/main/java/org/apache/batik/script/jpython")
+                 (delete-file-recursively "batik-script/src/main/java/org/apache/batik/script/rhino")
+                 #t)))))))))