                                   (-> a-tag
                                       (.getAttributes)
                                       (.getNamedItem "href")
-                                      (.getValue)))
+                                      (.getValue)
+                                      (StringEscapeUtils/unescapeHtml)))
                                  "javascript")
                                 (not
                                  (some

                                     (-> a-tag
                                         (.getAttributes)
                                         (.getNamedItem "href")
                                         (.getValue)))}
                                  (set blacklist)))))
                         anchor-nodes)


                             (let [link (-> x
                                            (.getAttributes)
                                            (.getNamedItem "href")
                                            (.getValue)
                                            (StringEscapeUtils/unescapeHtml))]
                               {:node x
                                :href (try
                                        (uri/fragment
