Replace data-codec use for base64 encoding with Base64 support built into the JDK as of Java 8

Author: puredanger

pom.xml

@@ -36,12 +36,6 @@
   </parent>
 
   <dependencies>
-    <dependency>
-      <groupId>org.clojure</groupId>
-      <artifactId>data.codec</artifactId>
-      <version>0.1.1</version>
-      <scope>compile</scope>
-    </dependency>
     <dependency>
       <groupId>org.clojure</groupId>
       <artifactId>test.check</artifactId>

project.clj

@@ -3,7 +3,6 @@
   :test-paths ["src/test/clojure" "src/test/clojurescript"]
   :resource-paths ["src/main/resources" "src/test/resources" "target/gen-resources"]
   :dependencies [[org.clojure/clojure "1.10.0-beta8"]
-                 [org.clojure/data.codec "0.1.1"]
                  [org.clojure/clojurescript "1.10.439"]
                  [com.cemerick/piggieback "0.2.2"]
                  [org.clojure/tools.nrepl "0.2.13"]

src/main/clojure/clojure/data/xml/impl.clj

@@ -9,7 +9,9 @@
 (ns clojure.data.xml.impl
   "Shared private code for data.xml namespaces"
   {:author "Herwig Hochleitner"}
-  (:require [clojure.data.codec.base64 :as b64]))
+  (:import
+    [java.util Base64]
+    [java.nio.charset StandardCharsets]))
 
 (defn- var-form? [form]
   (and (seq? form) (= 'var (first form))))
@@ -62,5 +64,6 @@
     `(do ~then)
     `(do ~else)))
 
-(defn b64-encode [ba]
-  (String. ^bytes (b64/encode ba)))
+(defn b64-encode [^bytes ba]
+  (let [encoder (Base64/getEncoder)]
+    (String. (.encode encoder ba) StandardCharsets/ISO_8859_1)))