Create a gist now

Instantly share code, notes, and snippets.

@raek /html.clj
Created Apr 13, 2012

What would you like to do?
(ns se.raek.html
(:import [org.ccil.cowan.tagsoup.jaxp SAXFactoryImpl])
(:require [clojure.xml :as xml]))
(defn startparse-tagsoup [s ch]
(.. (new SAXFactoryImpl) (newSAXParser) (parse s ch)))
(defn parse [s]
(xml/parse s startparse-tagsoup))
(defn title [h]
(let [head-content (-> h :content first :content)]
(-> (filter (fn [node] (= (:tag node) :title))
first :content first .trim)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment