                                    [xpath (set (map first links-text))])
                                  xpaths-hrefs-text))
 
+         xpaths-text           (into
+                                {}
+                                (map
+                                 (fn [[xpath links-text]]
+                                   [xpath (set (map second links-text))])
+                                 xpaths-hrefs-text))
+
          xpaths                (map first xpaths-hrefs)
 
          ;; WTF?

     {:src-link             url
      :explorations         explorations
      :xpaths-hrefs         xpaths-hrefs
      :signature            signature
      :dfs                  dfs
      :hrefs                hrefs
      :novelties            novelties
      :updates              updates
      :in-host-xpaths-hrefs in-host-xpath-hrefs})))

         in-host-xpaths        (map first in-host-xpath-hrefs)
         
         signature             (into
                                {}
                                (map
                                 (fn [an-xpath]
                                   [an-xpath (count (xpaths-hrefs an-xpath))])
                                 xpaths))
        
         explorations          (map
                                (fn [[xpath hrefs]]
