Google Common Lisp Style Guide の XML ファイルを HTML ファイルに XSLT を使って変換する。

lispguide-convert.clj

;;;
;;; see http://mail2.nara-edu.ac.jp/~asait/java/xml/xml.htm#section4
;;;
(ns lispguide-convert
  (:import
   [javax.xml.transform TransformerFactory]
   [javax.xml.transform.stream StreamSource StreamResult]))

(defn doit
  ([] (doit "lispguide.html" "lispguide.xml" "styleguide.xsl"))
  ([outfile xmlfile xslfile]
     (let [factory (TransformerFactory/newInstance)
           xslt (. factory newTransformer (StreamSource. xslfile))]
       (. xslt transform
          (StreamSource. xmlfile)
          (StreamResult. outfile)))))