 (defn- css-map[css-data]
   (reduce
     #(let [v (peek %2)
-        k (pop %2)]
+        k (set (pop %2))]
       (assoc %1 k v))
       {} (parsed-css-to-vectors css-data)))
 

(def styles-from-css (css-map css-data))
(def styles-from-html (css-from-html-map styled-els))

;(pprint (keys styles-from-css))
;(pprint (keys styles-from-html))


    (clojure.string/trim)
    (clojure.string/split #"\s+")
    (->> (map #(keyword (str "*." %))))
      set ;vec
      ))

(defn- css-from-html-map[elements]
  (reduce (fn [res node]
