Create a github flavored markdown reporter.
This commit is contained in:
parent
65b9fdaa9e
commit
64766de6d1
1 changed files with 17 additions and 1 deletions
|
@ -26,7 +26,7 @@
|
||||||
println)))
|
println)))
|
||||||
|
|
||||||
(defn cli-reporter
|
(defn cli-reporter
|
||||||
"Print a check-map to `*out*`"
|
"Print a check-map to `*out*` in plain text."
|
||||||
[check-map]
|
[check-map]
|
||||||
(let [{:keys [file line expr alt]} check-map]
|
(let [{:keys [file line expr alt]} check-map]
|
||||||
(do
|
(do
|
||||||
|
@ -36,3 +36,19 @@
|
||||||
(pprint-code expr)
|
(pprint-code expr)
|
||||||
(newline))))
|
(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})
|
||||||
|
|
Loading…
Reference in a new issue