markymark.clj

(ns markymark
  (:use
   [clojure.contrib pprint]
   [com.lithinos.clj-peg core string-wrapper]))

(make-parser
 {:main markdown
  :doc "blah"
  :rules (
          Doc     <- (+ Newline)
          Newline <- (| NL [CR (? NL)])
          NL      <- "\n"
          CR      <- "\r"
          
          )})

(pprint
 (markdown
  (wrap-string "\n\r\r\n")))