From 64766de6d10af2d8fc10dcc370632daa32901883 Mon Sep 17 00:00:00 2001
From: Ryan McGowan <ryan@ryanmcg.com>
Date: Tue, 5 Feb 2013 19:59:15 -0500
Subject: [PATCH] Create a github flavored markdown reporter.

---
 src/kibit/reporters.clj | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/kibit/reporters.clj b/src/kibit/reporters.clj
index 52ac183..05d04b2 100644
--- a/src/kibit/reporters.clj
+++ b/src/kibit/reporters.clj
@@ -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})