@@ -133,8 +133,8 @@ (defn- emit-root [node] (if-let [[name public-id system-id] (-> node meta ::xml/dtd)] (let [preamble (if public-id - (str "<!DOCTYPE \"" name "\" PUBLIC \"" public-id "\"\n \"" system-id "\">\n") - (str "<!DOCTYPE \"" name "\" SYSTEM \"" system-id "\">\n"))] + (str "<!DOCTYPE " name " PUBLIC \"" public-id "\"\n \"" system-id "\">\n") + (str "<!DOCTYPE " name " SYSTEM \"" system-id "\">\n"))] (cons preamble (emit node))) (emit node))) src/net/cgrand/enlive_html.clj da1a2378762eed9501847a4f574fbe63bd2baf4d Christophe Grand christophe@cgrand.net http://github.com/cgrand/enlive/commit/ea3bce9ba539981f5034a102af0abf1eb2166799 ea3bce9ba539981f5034a102af0abf1eb2166799 2009-10-29T12:18:18-07:00 2009-10-29T12:18:18-07:00 remove unneeded quotes in DOCTYPE 9964a5c5a427ba7be0046c0be8c35b9d570629d6 Christophe Grand christophe@cgrand.net