(defn add-class
 "Adds the specified classes to the selected element." 
 [& classes]
  #(let [classes (into (or (attr-values % :class) #{}) classes)]
     (assoc-in % [:attrs :class] (apply str (interpose \space classes)))))