Merge pull request #1217 from metosin/clj-kondo-changes

Don't automatically remove files with each `emit!`

Author: opqdonut

CHANGELOG.md

@@ -18,6 +18,7 @@ Malli is in well matured [alpha](README.md#alpha).
 
 * Performance improvements in `malli.transform/transformer` [#1220](https://github.com/metosin/malli/pull/1220)
 * `malli.clj-kondo/emit!` saves to `.clj-kondo/imports` now as recommended by clj-kondo. [#1216](https://github.com/metosin/malli/pull/1216)
+* `malli.clj-kondo/emit!` no longer deletes anything automatically. Use `malli.clj-kondo/clean!` to clean up.
 
 ## 0.19.1 (2025-06-09)
 * Technical release

README.md

@@ -3310,13 +3310,22 @@ Generating `clj-kondo` configuration from current namespace:
 ;                             :ret :int}}}}}}}}
 ```
 
-Emitting confing into `./.clj-kondo/configs/malli/config.edn`:
+Emitting config into `./.clj-kondo/imports/metosin/malli-types-clj/config.edn`:
 
 <!-- :test-doc-blocks/skip -->
 ```clojure
 (mc/emit!)
 ```
 
+Removing the generated configurations. Note that this removes also
+from locations where old versions of malli used to store the
+configuration file:
+
+<!-- :test-doc-blocks/skip -->
+```clojure
+(mc/clean!)
+```
+
 In action:
 
 ![malli](docs/img/clj-kondo.png)

src/malli/clj_kondo.cljc

@@ -145,10 +145,32 @@
 
 (defn -transform [?schema options] (m/walk ?schema -walk options))
 
+#?(:clj
+   (defn -file-in-kondo-dir [options & paths]
+     (apply io/file (into (get options :clj-kondo-dir-path []) paths))))
+
+(defn -types-dir-name
+  "Creates a directory name such as `malli-types-cljs` or `malli-types-clj`."
+  [key]
+  (str "malli-types-" (name key)))
+
+(defn -config-file-path [key options]
+  (-file-in-kondo-dir options ".clj-kondo" "imports" "metosin" (-types-dir-name key) "config.edn"))
+
 ;;
 ;; public api
 ;;
 
+(defn clean!
+  "Cleans existing configurations from .clj-kondo directory"
+  ([options]
+   (clean! :clj options))
+  ([key options]
+   (.delete (-config-file-path key options))
+   ;; These are remnants from old locations where malli used to store the configuration files
+   (.delete (-file-in-kondo-dir options ".clj-kondo" "metosin" (-types-dir-name key) "config.edn"))
+   (.delete (-file-in-kondo-dir options ".clj-kondo" "configs" "malli" "config.edn"))))
+
 (defn transform
   ([?schema]
    (transform ?schema nil))
@@ -164,17 +186,7 @@
      ([config key]
       (save! config key nil))
      ([config key options]
-      (let [cfg-file (apply io/file (conj
-                                     (get options :clj-kondo-dir-path [])
-                                     ;; Creates a file like malli-types-cljs or malli-types-clj.
-                                     ".clj-kondo" "imports" "metosin" (str "malli-types-" (name key)) "config.edn"))]
-        ;; delete the old files if they exist (does not throw)
-        (.delete (apply io/file (conj
-                                 (get options :clj-kondo-dir-path [])
-                                 ".clj-kondo" "metosin" (str "malli-types-" (name key)) "config.edn")))
-        (.delete (apply io/file (conj
-                                 (get options :clj-kondo-dir-path [])
-                                 ".clj-kondo" "configs" "malli" "config.edn")))
+      (let [cfg-file (-config-file-path key options)]
         (io/make-parents cfg-file)
         (spit cfg-file (with-out-str (fipp/pprint config {:width 120})))
         config))))