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

                                (-> a-tag
                                    (.getAttributes)
                                    (.getNamedItem "href")
                                    (.getValue)))
                               "javascript")
                              (not
                               (some

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