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

Add :simplify-guard keyword argument to check-via-reader and check-file.

Browse source
This commit is contained in:
Kevin J. Lynagh 2012-03-22 21:19:22 -07:00
parent 8cd50e5299
commit 568abcc2a2
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -141,13 +141,14 @@
a reader and returns a lazy sequence of the result of unification
(`simplify` function)."
([reader & kw-opts]
(let [{:keys [rules verbose]
:or {rules all-rules,
(let [{:keys [rules simplify-guard verbose]
:or {rules all-rules
simplify-guard unique-alt?
verbose false}} (apply hash-map kw-opts)]
(if verbose
(keep #(simplify-one % rules)
(keep #(simplify-one % rules simplify-guard)
(mapcat expr-seq (read-file (LineNumberingPushbackReader. reader))))
(keep #(simplify % rules) (read-file (LineNumberingPushbackReader. reader)))))))
(keep #(simplify % rules simplify-guard) (read-file (LineNumberingPushbackReader. reader)))))))
;; The results from simplify get passed to a `reporter`.
;; A reporter can be any function that expects a single map.
@ -161,12 +162,13 @@
"Checks every expression (including sub-expressions) in a clojure
source file against the rules and processes them with a reporter"
([source-file & kw-opts]
(let [{:keys [rules verbose reporter]
(let [{:keys [rules simplify-guard verbose reporter]
:or {rules all-rules
simplify-guard unique-alt?
verbose false
reporter reporters/cli-reporter}} (apply hash-map kw-opts)]
(with-open [reader (io/reader source-file)]
(doseq [simplify-map (check-via-reader
reader :rules rules :verbose verbose)]
reader :rules rules :verbose verbose :simplify-guard simplify-guard)]
(reporter simplify-map))))))