Introduce execution (-X)

Author: dpassen

README.md

@@ -10,30 +10,22 @@ Add the following to your `deps.edn`:
 
 ```clj
 :aliases {:check {:extra-deps {athos/clj-check {:git/url "https://github.com/athos/clj-check.git"
-                                                :sha "0ca84df1357d71429243b99908303f45a934654c"}}
-                  :main-opts ["-m" "clj-check.check"]}}
+                                                :sha "518d5a1cbfcd7c952f548e6dbfcb9a4a5faf9062
+                  :exec-fn clj-check.check/check
 ```
 
 If your project has its codebase under some directories other than `src` (say `src/clj` and `src/cljc`), specify them as the command line arguments as follows:
 
 ```clj
 :aliases {:check {...
-                  :main-opts ["-m" "clj-check.check" "src/clj" "src/cljc"]}}
+                  :exec-args {:source-paths ["src/clj" "src/cljc"]}}}
 ```
 
 
 Then, run `clj-check` via the declared alias:
 
-For clj versions 1.10.1.697 and greater:
-
-```
-clj -M:check
-```
-
-For older versions:
-
 ```
-clj -A:check
+clj -X:check
 ```
 
 ## License

src/clj_check/check.clj

@@ -17,17 +17,15 @@
       (doto e .printStackTrace))))
 
 (defn check
-  [source-paths]
+  [{:keys [source-paths]
+    :or   {source-paths ["src"]}}]
   (let [namespaces (bultitude/namespaces-on-classpath
                     :classpath (map io/file source-paths)
                     :ignore-unreadable? false)
-        failures   (count
-                    (sequence
-                     (comp (map check-ns) (remove nil?))
-                     namespaces))]
-    (shutdown-agents)
+        failures   (count (keep check-ns namespaces))]
     (when-not (zero? failures)
       (System/exit failures))))
 
-(defn -main [& source-paths]
-  (check (or (seq source-paths) ["src"])))
+(defn -main
+  [& source-paths]
+  (check {:source-paths source-paths}))