Allow both a linter key and a linter name for -l option

totakke · Jan 28, 2025 · 9a24621 · 9a24621
1 parent c8da9d0
commit 9a24621
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/bosslint/main.clj b/src/bosslint/main.clj
@@ -146,8 +146,12 @@
    ["-C" "--directory DIR" "Specify an alternate working directory (default: .)"
     :default "."]
    ["-l" "--linter LINTER" "Select linter"
-    :assoc-fn (fn [m k v] (update m k #(conj (or % []) v)))
-    :validate [(set (map name (list-linters)))]]
+    :assoc-fn (let [name-map (into {} (map (juxt linter/name name)
+                                           (list-linters)))]
+                (fn [m k v]
+                  (update m k #(conj (or % []) (name-map v v)))))
+    :validate [(set (mapcat (juxt name linter/name) (list-linters)))
+               "Unsupported linter"]]
    ["-v" "--verbose" "Make bosslint verbose during the operation"]
    ["-h" "--help" "Print help"]])