gistfile1.txt

(ns html-to-markdown.core
  (:import java.io.File
	   java.io.StringReader
	   java.io.StringWriter
	   javax.xml.transform.stream.StreamSource
	   javax.xml.transform.stream.StreamResult
	   javax.xml.transform.TransformerFactory
	   javax.xml.transform.Transformer))

(def xslt-transformer
 (let [xslt (StreamSource. (File. "src/markdown.xslt"))
       trans-factory (TransformerFactory/newInstance)]
   (.newTransformer transformer-factory xslt)))

(defn html-to-markdown [html]
  (let [xml (StreamSource. (StringReader. html))
	result (StringWriter.)]
    (.transform xslt-transformer xml (StreamResult. result))
    (.toString result)))