         convert (walk-arb-fn wrap-node proccess-node)]
     (convert arb)))
 
-(defn html->hiccup
-  ([html] (as-hiccup (parse html)))
-  ([html as-fragment]
-   (if (false? as-fragment)
-     (html->hiccup html)
-     (let [result (map as-hiccup (parse-fragment html))]
-       (if (not= 1 (count result))
-         (into [:div {}] result)
-         (first result))))))
-
 (defn hiccup->arb [hiccup]
   (let [[tag attrs & value] hiccup]
     (if (or (nil? value) (and (= 1 (count value) (string? (first value)))))


(defn get-in-metadata [k metadata]
  (k (first (filter #(k %) metadata))))

(defn walk-arb-fn [wrap-node process-node]
  (fn walk [arb]

            (recur (conj values (first items)) (next items))
            (recur (conj values (hiccup->arb (first items))) (next items))))))))

(defn html->hiccup
  ([html] (as-hiccup (parse html)))
  ([html as-fragment]
   (if (false? as-fragment)
     (html->hiccup html)
     (let [result (map as-hiccup (parse-fragment html))]
       (if (not= 1 (count result))
         (into [:div {}] result)
         (first result))))))

(defn html->arb
  ([html] (html->arb html true))
  ([html as-fragment]
