Create a github flavored markdown reporter.

This commit is contained in:
Ryan McGowan 2013-02-05 19:59:15 -05:00
parent 65b9fdaa9e
commit 64766de6d1

View file

@ -26,7 +26,7 @@
println)))
(defn cli-reporter
"Print a check-map to `*out*`"
"Print a check-map to `*out*` in plain text."
[check-map]
(let [{:keys [file line expr alt]} check-map]
(do
@ -36,3 +36,19 @@
(pprint-code expr)
(newline))))
(defn gfm-reporter
"Print a check-map to `*out*` in github flavored markdown."
[check-map]
(let [{:keys [file line expr alt]} check-map]
(printf "----\n##### `%s:%s`\nConsider using:\n" file line)
(println "```clojure")
(pprint-code alt)
(println "```")
(println "instead of:")
(println "```clojure")
(pprint-code expr)
(println "```")
(newline)))
(def name-to-reporter {"markdown" gfm-reporter
"text" cli-reporter})