wip attributes, before move .gitattributes back into tree

[topbloke.git] / Topbloke.pm

diff --git a/Topbloke.pm b/Topbloke.pm
index b8f21a026d776e574c2bec2fb899c7b4524d6f48..8979a6ed851d41171acecdc626d5b7577a55a7e2 100644 (file)
--- a/Topbloke.pm
+++ b/Topbloke.pm
@@ -121,4 +121,19 @@ sub parse_branch_spec ($) {
     return $spec;
 }
 
+sub setup_config () {
+    my ($files) = (qw(msg deps included flags gitattributes));
+    my $version = 1;
+    foreach my $file ($files) {
+       my $cfgname = "merge.topbloke-$file.";
+       my $current = run_git_1line(qw(config), "$cfgname.driver");
+       next if $current =~ m/^topbloke-merge-driver --v$version /o;
+       debug("setting merge driver $file");
+       run_git_1line(qw(config), "$cfgname.name",
+                     "topbloke merge driver for $file");
+       run_git_1line(qw(config), "$cfgname.driver",
+                     "topbloke-merge-driver --v$version $file %O %A %B %L");
+    }
+}
+
 1;