yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed xml escaping to use commons.lang.StringEscapeUtils.escapeXml()

Browse source
This commit is contained in:
Brett Morgan 2015-07-27 20:20:08 -04:00
parent 79f0d3a99a
commit 5721558391
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/uberjar.clj
View file

@ -13,7 +13,8 @@
(:import (java.io File FileOutputStream PrintWriter)
(java.util.regex Pattern)
(java.util.zip ZipFile ZipOutputStream ZipEntry)
(org.apache.commons.io.output CloseShieldOutputStream)))
(org.apache.commons.io.output CloseShieldOutputStream)
(org.apache.commons.lang StringEscapeUtils)))
(defn- tree-edit
"Walk the componment xml dom looking for description tag"
@ -31,7 +32,7 @@
[node]
(let [content (get (:content node) 0)]
(if-not (nil? content)
(assoc-in node [:content 0] (clojure.string/escape content {\< "&lt;" \> "&gt;" \& "&amp;" \" "&quot;"}))
(assoc-in node [:content 0] (StringEscapeUtils/escapeXml content))
node)))
(defn- components-read [ins]