A script for extracting attachments from ZFO files

zfo_attachments_extractor.clj

(import '[java.util Base64])  

(let [decode-base64 #(.decode (Base64/getDecoder) %)
      path "/my/input/zfo.xml"
      output-dir "/my/output/dir/"
      parsed (-> path io/file io/input-stream xml/parse)
      files
      (->> parsed
           :content
           first
           :content
           first
           :content
           (filter (comp (partial = :dmFiles) :tag))
           first
           :content
           (map (juxt (comp :dmFileDescr :attrs) (comp first :content first :content))))]
  (with-open [w (io/output-stream (str output-dir (ffirst files)))]
    (.write w (-> files first second (string/replace "\n" "") decode-base64)))
  (map first files)))