Don't overwrite existing configuration

1 files changed, 19 insertions, 6 deletions

diff --git a/pairs.lua b/pairs.lua
index 900ae06..16315e2 100644
--- a/pairs.lua
+++ b/pairs.lua
@@ -187,13 +187,26 @@ vis.events.subscribe(vis.events.INIT, function()
 		inner = new(vis.textobject, vis.textobject_register, M.prefix.inner, inner, "Delimited block (inner variant)"),
 		outer = new(vis.textobject, vis.textobject_register, M.prefix.outer, outer, "Delimited block (outer variant)"),
 	}
+
 	local tag = {"<" * l.Cg(l.C((l.S"_:" + l.R("az", "AZ")) * (l.R("az", "AZ", "09") + l.S"_:.-")^0), "t") * (1 - l.S"><")^0 * (">" - l.B"/"), l.Cmt("</" * l.Cb("t") * l.C((1 - l.P">")^1) * ">", function(_, _, c1, c2) return c1 == c2 end)}
-	M.map.html = {t = tag}
-	M.map.xml = {t = tag}
-	local any_paren = {l.Cg(l.C(l.S"([{"), "s"), l.Cmt(l.Cb("s") * l.C(1), function(_, _, c1, c2) return builtin_textobjects[c1][2] == c2 end)}
-	M.map.scheme = {b = any_paren}
-	M.map.lisp = {b = any_paren}
-	M.map.clojure = {b = any_paren}
+	local any_bracket = {l.Cg(l.C(l.S"([{"), "s"), l.Cmt(l.Cb("s") * l.C(1), function(_, _, c1, c2) return builtin_textobjects[c1][2] == c2 end)}
+	local presets = {
+		html = {t = tag},
+		xml = {t = tag},
+		scheme = {b = any_bracket},
+		lisp = {b = any_bracket},
+		clojure = {b = any_bracket},
+	}
+	for syntax, bindings in pairs(presets) do
+		if not M.map[syntax] then
+			M.map[syntax] = bindings
+		else
+			for key, pattern in pairs(bindings) do
+				if not M.map[syntax][key] then M.map[syntax][key] = pattern end
+			end
+		end
+	end
+
 end)
 
 M = {