(defn- xpath-predicate-has-class?
"Makes XPath predicate whether a element has the specified class."
[class]
(format "contains(concat(' ',normalize-space(@class),' '), ' %s ')"
class))
;; (format "//*[%s]" (xpath-predicate-has-class? "clearfix"))