fix some errors

borkdude · borkdude · commit c133ef0a259b · 2024-12-06T12:03:54.000+01:00
diff --git a/src/clj/hickory/core.clj b/src/clj/hickory/core.clj
@@ -7,6 +7,8 @@
             DocumentType Element TextNode XmlDeclaration]
            [org.jsoup.parser Tag Parser]))
 
+(set! *warn-on-reflection* true)
+
 (defn- end-or-recur [as-fn loc data & [skip-child?]]
   (let [new-loc (-> loc (zip/replace data) zip/next (cond-> skip-child? zip/next))]
     (if (zip/end? new-loc)
@@ -68,9 +70,10 @@
   DocumentType
   (as-hiccup
     ([this] (trampoline as-hiccup this (hzip/hiccup-zip this)))
-    ([this loc] (end-or-recur as-hiccup loc (utils/render-doctype (.attr this "name")
-                                                                  (.attr this "publicid")
-                                                                  (.attr this "systemid")))))
+    ([this loc]
+     (end-or-recur as-hiccup loc (utils/render-doctype (.name this)
+                                                       (.publicId this)
+                                                       (.systemId this)))))
   Element
   (as-hiccup
     ([this] (trampoline as-hiccup this (hzip/hiccup-zip this)))
@@ -141,12 +144,16 @@
     ([this] (trampoline as-hickory this (hzip/hickory-zip this)))
     ([this loc] (end-or-recur as-hickory loc (.getWholeText this)))))
 
+(set! *warn-on-reflection* false)
+
 (defn parse
   "Parse an entire HTML document into a DOM structure that can be
    used as input to as-hiccup or as-hickory."
   [s]
   (Jsoup/parse s))
 
+(set! *warn-on-reflection* true)
+
 (defn parse-fragment
   "Parse an HTML fragment (some group of tags that might be at home somewhere
    in the tag hierarchy under <body>) into a list of DOM elements that can
