(defn html-snippet [& values]
 "Concatenate values as a string and then parse it with tagsoup.
  html-snippet doesn't insert missing  or  tags."
  (-> (apply str "" values) 
    java.io.StringReader. html-resource first :content))