      {:src-link             url
       :explorations         explorations
       :xpaths-hrefs         xpaths-hrefs
+      :xpaths-text          xpaths-text
       :signature            signature
       :dfs                  dfs
       :hrefs                hrefs
+      :tokens               tokens
       :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]]

         (merge-with set/union acc v))
       {}
       (map #(-> % :hrefs-table) xpath-explorations)))
    explorations)))

(defn text-table
  [explorations]
  (reduce
   (fn [acc v]
     (merge-with set/union acc v))
   {}
   (map
    (fn [{xpath :xpath xpath-explorations :explorations}]
      (reduce
       (fn [acc v]
         (merge-with set/union acc v))
       {}
       (map #(-> % :text-table) xpath-explorations)))
    explorations)))

(defn update-table
