support local config

1 files changed, 29 insertions, 10 deletions

diff --git a/vimulti.clj b/vimulti.clj
index 4775f11..38c87c6 100644
--- a/vimulti.clj
+++ b/vimulti.clj
@@ -5,11 +5,30 @@
          '[clojure.edn :as edn]
          '[clojure.string :as str])
 
-(def default-config
-  {:editor-command "nvim"})
+(def default-config 
+  {:editor-command "nvim"
+   :default-target "nvim:"
+   :aliases []})
 
 ;; configuration helpers
-(defn- config-path []
+(defn- deep-merge [v & vs]
+  (letfn [(rec-merge [v1 v2]
+            (if (and (map? v1) (map? v2))
+              (merge-with deep-merge v1 v2)
+              v2))]
+    (if (some identity vs)
+      (reduce #(rec-merge %1 %2) v vs)
+      (last vs))))
+
+(defn- init-config [path]
+  (when-not (fs/exists? path)
+    (fs/create-dirs (fs/parent path))
+    (fs/create-file path)
+    (spit path default-config))
+  path)
+
+;;; global config
+(defn- global-config-path []
   (let [env-vimnulti-config (System/getenv "VIMULTI_CONFIG")
         env-xdg-config-home (System/getenv "XDG_CONFIG_HOME")
         config-filename "config.edn"]
@@ -18,14 +37,14 @@
           (str env-xdg-config-home "/vimulti/" config-filename)
           config-filename))))
 
-(defn- init-config [path]
-  (when-not (fs/exists? path)
-    (fs/create-dirs (fs/parent path))
-    (fs/create-file path)
-    (spit path default-config))
-  path)
+(def global-config (-> (global-config-path) 
+                       init-config 
+                       slurp 
+                       edn/read-string))
 
-(def config (-> (config-path) init-config slurp edn/read-string))
+;;; load local config 
+(def config (cond-> global-config 
+              (fs/exists? "vimulti.edn") (deep-merge (-> "vimulti.edn" slurp edn/read-string))))
 
 ;; git helpers
 (defn- get-current-branch [dir]