From b8436733a95122204a0c5325d20bb7af174d67f2 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sat, 7 Sep 2019 16:19:28 +0200
Subject: [PATCH] add more clojure.java.io stuff (#64)

---
 src/babashka/impl/clojure/java/io.clj | 13 +++++++++++++
 src/babashka/main.clj                 |  7 ++-----
 2 files changed, 15 insertions(+), 5 deletions(-)
 create mode 100644 src/babashka/impl/clojure/java/io.clj

diff --git a/src/babashka/impl/clojure/java/io.clj b/src/babashka/impl/clojure/java/io.clj
new file mode 100644
index 00000000..c7d6b28c
--- /dev/null
+++ b/src/babashka/impl/clojure/java/io.clj
@@ -0,0 +1,13 @@
+(ns babashka.impl.clojure.java.io
+  (:require [clojure.java.io :as io]))
+
+(def io-bindings
+  {'io/as-relative-path io/as-relative-path
+   'io/copy io/copy
+   'io/delete-file io/delete-file
+   'io/file io/file
+   'io/input-stream io/input-stream
+   'io/make-parents io/make-parents
+   'io/output-stream io/output-stream
+   'io/reader io/reader
+   'io/writer io/writer})
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 00063cb5..19fa3972 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -6,6 +6,7 @@
    [babashka.impl.Thread :refer [thread-bindings]]
    [babashka.impl.async :refer [async-bindings]]
    [babashka.impl.clojure.core :refer [core-bindings]]
+   [babashka.impl.clojure.java.io :refer [io-bindings]]
    [babashka.impl.clojure.stacktrace :refer [print-stack-trace]]
    [babashka.impl.conch :refer [conch-bindings]]
    [babashka.impl.pipe-signal-handler :refer [handle-pipe! pipe-signal-received?]]
@@ -142,15 +143,11 @@ Everything after that is bound to *command-line-args*."))
   (merge {'shell/sh shell/sh
           'namespace namespace
           ;; clojure.java.io
-          'io/as-relative-path io/as-relative-path
-          'io/copy io/copy
-          'io/delete-file io/delete-file
-          'io/file io/file
-          'io/reader io/reader
           'edn/read-string edn/read-string
           'net/wait-for-it net/wait-for-it
           'sig/pipe-signal-received? pipe-signal-received?}
          core-bindings
+         io-bindings
          system-bindings
          file-bindings
          thread-bindings