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

This unifies the the alternative like yuanmai's fork

Browse source
This commit is contained in:
Paul deGrandis 2012-03-06 14:17:44 -05:00
parent 07708136f3
commit d2ead64ecc
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -32,12 +32,16 @@
([expr]
(check-form expr all-rules))
([expr rules]
(for [[rule alt] rules
:let [rule-broke (not (nil?
(for [rule rules
; See if a rule is broken, if it is, show a unified alternative
:let [[_ alt :as unified-rule] (logic/unifier rule [expr '?alt])
rule-broke (not (nil?
(and (sequential? expr)
(logic/unifier expr rule))))]
unified-rule)))]
:when rule-broke]
{:message (str "[Kibit] Consider " alt " instead of " expr " at line " (-> expr meta :line))
{:message (str "[Kibit] Consider " (if (sequential? alt) (seq alt) alt) " instead of " expr " at line " (-> expr meta :line))
:rule rule
:unified-rule unified-rule
:line (-> expr meta :line)})))
(defn check