gistfile1.clj

#!/usr/bin/env clj
(require 'clojure.string)

(defn escape-html [text]
  (clojure.string/escape text {\< "&lt;", \& "&amp;"}))

(doseq [file *command-line-args*]
  (load-file file))

(println "<dl>")

(doseq [fn (mapcat (comp vals ns-publics) (all-ns))]
  (let [fn-name (name (:name (meta fn)))
        fn-doc (:doc (meta fn))]
    (when fn-doc
      (println "<dt><code>" (escape-html fn-name) "</code></dt>")
      (println "<dd><code>" (escape-html fn-doc) "</code></dd>"))))

(println "</dl>")