yogsototh/kibit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reporting refactor as done by jonase

Browse source
This commit is contained in:
Paul deGrandis 2012-03-06 14:37:34 -05:00
parent 33204210d3
commit 831eacb152
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/jonase/kibit/core.clj
View file

@ -39,7 +39,8 @@
(and (sequential? expr)
unified-rule)))]
:when rule-broke]
{:message (str "[Kibit] Consider " (if (sequential? alt) (seq alt) alt) " instead of " expr " at line " (-> expr meta :line))
{:expr expr
:alt alt
:rule rule
:unified-rule unified-rule
:line (-> expr meta :line)})))
@ -50,8 +51,8 @@
([expr]
(check expr all-rules))
([expr rules]
(doseq [broken-rule-map (check-form expr rules)]
(println (:message broken-rule-map)))))
(doseq [{:keys [line alt expr]} (check-form expr rules)]
(printf "[Kibit:%s] Consider %s instead of %s\n" line alt expr))))
(defn expr-seq [expr]
(tree-seq sequential?