   [explorations clusters]
   
   (let [total-expl   (-> clusters flatten count)
-        
         enums-ranked (fetch-enum-xpaths explorations clusters)]
 
     {:enum-candidates-ranked enums-ranked}))

        xpath-expls)))
    explorations)))

(defn cluster-member?
  [a-cluster x]
  (some
   (fn [a-member]

          0.75)
         *page-sim-thresh*))
   a-cluster))

(defn cluster-member-maximum?
  "Cluster explorations using maximum linkage"
  [a-cluster x]
  (every?
   (fn [a-member]
     (>= (page/signature-edit-distance-similarity
          (-> a-member :r1)
          (-> x :r1)
          0.25
          0.75)
         *page-sim-thresh*))
   a-cluster))

(defn cluster-member-average?
  "CLuster explorations using average linkage"
  [a-cluster x]
  (let [sim-scores (map
                    (fn [a-member]
                      (page/signature-edit-distance-similarity
                       (-> a-member :r1)
                       (-> x :r1)
                       0.25
                       0.75)
                      *page-sim-thresh*)
                    a-cluster)]
    
    (/ (apply + sim-scores)
       (count sim-scores))))

(def cluster-member? cluster-member-single?)

(defn cluster-explorations
  "Explorations are converted to an exploration-ds and
