         xpath-expls)))
     explorations)))
 
-(defn cluster-member?
+(defn cluster-member-single?
+  "Single linkage clustering of explorations"
   [a-cluster x]
   (some
    (fn [a-member]

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

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

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

    {:enum-candidates-ranked enums-ranked}))
