Markdown

markdown.clj

(ns util.markdown
  (import (java.io
           BufferedReader
           InputStreamReader)))

(defn markdown
  [s]
  (let [builder (java.lang.ProcessBuilder. ["Markdown.pl"])
        proc (.start builder)
        stdin (.getOutputStream proc)
        reader (BufferedReader. (InputStreamReader. (.getInputStream proc)))
        bytes (.getBytes s)]
    (do
      (.write stdin bytes 0 (alength bytes))
      (.flush stdin)
      (.close stdin)
      (apply str (interpose "\n" (line-seq reader))))))