Add a cljfmt check (#243)

Author: shen-tian

.circleci/config.yml

@@ -170,14 +170,14 @@ workflows:
       #     name: Java 11, Clojure master
       #     clojure_version: "master"
       #     jdk_version: openjdk11
-      # - util_job:
-      #     name: Code Linting
-      #     steps:
-      #       - run:
-      #           name: Running Eastwood
-      #           command: |
-      #             make eastwood
-      #       - run:
-      #           name: Running cljfmt
-      #           command: |
-      #             make cljfmt
+      - util_job:
+          name: Code Linting
+          steps:
+            # - run:
+            #     name: Running Eastwood
+            #     command: |
+            #       make eastwood
+            - run:
+                name: Running cljfmt
+                command: |
+                  make cljfmt

Makefile

@@ -11,6 +11,8 @@ source-deps: .source-deps
 test: .source-deps
 	lein with-profile +$(VERSION),+plugin.mranderson/config test
 
+cljfmt:
+	lein with-profile +$(VERSION),+cljfmt cljfmt check
 
 # When releasing, the BUMP variable controls which field in the
 # version string will be incremented in the *next* snapshot

project.clj

@@ -47,5 +47,14 @@
                    :java-source-paths ["test/java"]
                    :resource-paths ["test/resources"
                                     "test/resources/testproject/src"]
-                   :repositories [["snapshots" "https://oss.sonatype.org/content/repositories/snapshots"]]}}
+                   :repositories [["snapshots" "https://oss.sonatype.org/content/repositories/snapshots"]]}
+             :cljfmt [:test
+                      {:plugins [[lein-cljfmt "0.6.4"]]
+                       :cljfmt {:indents {as-> [[:inner 0]]
+                                          as->* [[:inner 0]]
+                                          cond-> [[:inner 0]]
+                                          cond->* [[:inner 0]]
+                                          with-debug-bindings [[:inner 0]]
+                                          merge-meta [[:inner 0]]
+                                          try-if-let [[:block 1]]}}}]}
   :jvm-opts ["-Djava.net.preferIPv4Stack=true"])

src/refactor_nrepl/config.clj

@@ -2,8 +2,7 @@
 
 ;; NOTE: Update the readme whenever this map is changed
 (def ^:dynamic *config*
-  {
-   ;; Verbose setting for debugging.  The biggest effect this has is
+  {;; Verbose setting for debugging.  The biggest effect this has is
    ;; to not catch any exceptions to provide meaningful error
    ;; messages for the client.
 
@@ -23,8 +22,7 @@
    :libspec-whitelist ["^cljsjs"]
 
    ;; Regexes matching paths that are to be ignored
-   :ignore-paths []
-   })
+   :ignore-paths []})
 
 (defn opts-from-msg [msg]
   (into {}

src/refactor_nrepl/find/find_macros.clj

@@ -138,21 +138,21 @@
         macro-suffix (core/suffix macro-name)
         alias? ((get-ns-aliases libspecs) macro-prefix)]
     (when
-        (or
+     (or
          ;; locally defined macro
-         (and (= current-ns macro-prefix)
-              (= sym macro-suffix))
+      (and (= current-ns macro-prefix)
+           (= sym macro-suffix))
          ;; fully qualified
-         (= sym macro-name)
+      (= sym macro-name)
          ;; aliased
-         (when alias? (= sym (str alias? "/" macro-suffix)))
+      (when alias? (= sym (str alias? "/" macro-suffix)))
          ;; referred
-         (when (macro-referred? libspecs macro-name)
-           (= sym macro-suffix))
+      (when (macro-referred? libspecs macro-name)
+        (= sym macro-suffix))
          ;; I used to have a clause here for (:use .. :rename {...})
          ;; but :use is ;; basically deprecated and nobody used :rename to
          ;; begin with so I dropped it when the test failed.
-         )
+      )
       macro-name)))
 
 (defn- active-bindings

src/refactor_nrepl/find/find_symbol.clj

@@ -126,8 +126,8 @@
                         {:file (.getCanonicalPath file)
                          :name fully-qualified-name
                          :match (match file-content
-                                       (:line-beg info)
-                                       (:line-end  info))}))]
+                                  (:line-beg info)
+                                  (:line-end  info))}))]
     (map gather locs)))
 
 (defn- find-global-symbol [file ns var-name ignore-errors]
@@ -214,8 +214,8 @@
                          {:name var-name
                           :file (.getCanonicalPath (java.io.File. file))
                           :match (match file-content
-                                        (:line-beg %)
-                                        (:line-end %))})
+                                   (:line-beg %)
+                                   (:line-end %))})
                  (find-nodes var-name
                              [top-level-form-ast]
                              #(and (#{:local :binding} (:op %))

src/refactor_nrepl/middleware.clj

@@ -11,15 +11,15 @@
 ;; The assumption is that if someone is using old lein repl or boot repl
 ;; they'll end up using the tools.nrepl, otherwise the modern one.
 (when-not (resolve 'set-descriptor!)
-    (if (find-ns 'clojure.tools.nrepl)
-      (require
-       '[clojure.tools.nrepl.middleware :refer [set-descriptor!]]
-       '[clojure.tools.nrepl.misc :refer [response-for]]
-       '[clojure.tools.nrepl.transport :as transport])
-      (require
-       '[nrepl.middleware :refer [set-descriptor!]]
-       '[nrepl.misc :refer [response-for]]
-       '[nrepl.transport :as transport])))
+  (if (find-ns 'clojure.tools.nrepl)
+    (require
+     '[clojure.tools.nrepl.middleware :refer [set-descriptor!]]
+     '[clojure.tools.nrepl.misc :refer [response-for]]
+     '[clojure.tools.nrepl.transport :as transport])
+    (require
+     '[nrepl.middleware :refer [set-descriptor!]]
+     '[nrepl.misc :refer [response-for]]
+     '[nrepl.transport :as transport])))
 
 (defn- require-and-resolve [sym]
   (require (symbol (namespace sym)))
@@ -183,15 +183,14 @@
          :status :done))
 
 (def ^:private find-used-publics
-  (delay (require-and-resolve 'refactor-nrepl.find.find-used-publics/find-used-publics) ))
+  (delay (require-and-resolve 'refactor-nrepl.find.find-used-publics/find-used-publics)))
 
 (defn- find-used-publics-reply [{:keys [transport] :as msg}]
   (reply transport msg
          :used-publics (serialize-response msg (@find-used-publics msg)) :status :done))
 
 (def refactor-nrepl-ops
-  {
-   "artifact-list" artifact-list-reply
+  {"artifact-list" artifact-list-reply
    "artifact-versions" artifact-versions-reply
    "clean-ns" clean-ns-reply
    "extract-definition" extract-definition-reply
@@ -205,8 +204,7 @@
    "find-used-publics" find-used-publics-reply
    "version" version-reply
    "warm-ast-cache" warm-ast-cache-reply
-   "warm-macro-occurrences-cache" warm-macro-occurrences-cache-reply
-   })
+   "warm-macro-occurrences-cache" warm-macro-occurrences-cache-reply})
 
 (defn wrap-refactor
   [handler]

src/refactor_nrepl/ns/prune_dependencies.clj

@@ -119,7 +119,7 @@
   (let [ns-name (str (:ns libspec))]
     (some (fn [^String pattern]
             (re-find (re-pattern pattern) ns-name))
-            (:libspec-whitelist config/*config*))))
+          (:libspec-whitelist config/*config*))))
 
 (defn- prune-libspec [symbols-in-file current-ns libspec]
   (if (libspec-should-never-be-pruned? libspec)

src/refactor_nrepl/ns/resolve_missing.clj

@@ -35,7 +35,6 @@
              {:name candidate :type :class})))
        candidates))
 
-
 (defn- inlined-dependency? [candidate]
   (or (-> candidate str (.startsWith "deps."))
       (-> candidate str (.startsWith "mranderson"))

src/refactor_nrepl/ns/slam/hound/regrow.clj

@@ -60,8 +60,8 @@
 
 (defn- ns->symbols []
   (caching :ns->symbols
-    (let [xs (all-ns)]
-      (zipmap xs (mapv (comp set keys ns-publics) xs)))))
+           (let [xs (all-ns)]
+             (zipmap xs (mapv (comp set keys ns-publics) xs)))))
 
 (defn- symbols->ns-syms*
   ([]
@@ -78,7 +78,6 @@
 (defn- symbols->ns-syms []
   (cache-with-dirty-tracking :symbols->ns-syms symbols->ns-syms*))
 
-
 (defn- walk
   "Adapted from clojure.walk/walk and clojure.walk/prewalk; this version
   preserves metadata on compound forms."
@@ -110,12 +109,12 @@
 
 (def ^:private ns-qualifed-syms
   (memoize
-    (fn [body]
-      (apply merge-with set/union {}
-             (for [ss (symbols-in-body body)
-                   :let [[_ alias var-name] (re-matches #"(.+)/(.+)" (str ss))]
-                   :when alias]
-               {(symbol alias) #{(symbol var-name)}})))))
+   (fn [body]
+     (apply merge-with set/union {}
+            (for [ss (symbols-in-body body)
+                  :let [[_ alias var-name] (re-matches #"(.+)/(.+)" (str ss))]
+                  :when alias]
+              {(symbol alias) #{(symbol var-name)}})))))
 
 (defn- ns-import-candidates
   "Search (all-ns) for imports that match missing-sym, returning a set of
@@ -131,12 +130,12 @@
 
 (defn- alias-candidates [type missing body]
   (set
-    (let [syms-with-alias (get (ns-qualifed-syms body) missing)]
-      (when (seq syms-with-alias)
-        (let [ns->syms (ns->symbols)]
-          (for [ns (all-ns)
-                :when (set/subset? syms-with-alias (ns->syms ns))]
-            (ns-name ns)))))))
+   (let [syms-with-alias (get (ns-qualifed-syms body) missing)]
+     (when (seq syms-with-alias)
+       (let [ns->syms (ns->symbols)]
+         (for [ns (all-ns)
+               :when (set/subset? syms-with-alias (ns->syms ns))]
+           (ns-name ns)))))))
 
 (defn candidates
   "Return a set of class or ns symbols that match the given constraints."
@@ -155,7 +154,7 @@
                    (alias-candidates type missing body')))))
     :refer (get (symbols->ns-syms) missing)
     :rename (reduce-kv
-              (fn [s ns orig->rename]
-                (cond->* s
-                  (some #{missing} (vals orig->rename)) (conj ns)))
-              #{} (:rename old-ns-map))))
+             (fn [s ns orig->rename]
+               (cond->* s
+                 (some #{missing} (vals orig->rename)) (conj ns)))
+             #{} (:rename old-ns-map))))