clojure fileinputstream delete

clojure-delete-on-close-fileinput-stream.clj

(ns delete-on-close-fileinput-stream)

(defn create-fis [^java.io.File f]
  (proxy [java.io.FileInputStream] [f]
    (close []
      (try 
        (proxy-super close)
        (finally 
          (.delete f))))))
 
 (comment 
   (spit "a-file" ["hello"])
   (.exists (clojure.java.io/file "a-file"))
   (slurp "a-file")
   (def fis (create-fis (clojure.java.io/file "a-file")))
   (slurp fis)
   (.exists (clojure.java.io/file "a-file"))
   
   )

already supported by:

Path path = Paths.get(filePath);
InputStream fileStream = Files.newInputStream(path, StandardOpenOption.DELETE_ON_CLOSE);