wip

cljfmt/src/cljfmt/config.clj

@@ -59,6 +59,46 @@
 (defn- directory? [path]
   (some-> path io/file .getAbsoluteFile .isDirectory))
 
+(defn- -load-config
+  [path]
+  (->> (some-> path read-config)
+       (merge default-config)
+       (convert-legacy-keys)))
+
+(defn- deep-merge
+  "Recursively merges maps together. If all the maps supplied have nested maps
+  under the same keys, these nested maps are merged. Otherwise the value is
+  overwritten, as in `clojure.core/merge`."
+  {:arglists '([& maps])
+   :added    "1.1.0"}
+  ([])
+  ([a] a)
+  ([a b]
+   (when (or a b)
+     (letfn [(merge-entry [m e]
+               (let [k  (key e)
+                     v' (val e)]
+                 (if (contains? m k)
+                   (assoc m k (let [v (get m k)]
+                                (if (and (map? v) (map? v'))
+                                  (deep-merge v v')
+                                  v')))
+                   (assoc m k v'))))]
+       (reduce merge-entry (or a {}) (seq b)))))
+  ([a b & more]
+   (reduce deep-merge (or a {}) (cons b more))))
+
+(defn- load-extra-configs
+  "Load any :extra-configs specified in the base config file.
+  Note: is not recursive."
+  [path]
+  (loop [conf (-load-config path)
+         adtl (:extra-configs conf)]
+    (if (empty? adtl)
+      conf
+      (recur (deep-merge (-> adtl first -load-config) conf)
+             (rest adtl)))))
+
 (defn load-config
   "Load a configuration merged with a map of sensible defaults. May take
   an path to a config file, or to a directory to search. If no argument
@@ -68,6 +108,4 @@
    (let [path (if (directory? path)
                 (find-config-file path)
                 path)]
-     (->> (some-> path read-config)
-          (merge default-config)
-          (convert-legacy-keys)))))
+     (load-extra-configs path))))