mercurial_wrapper_setup_light.patch

diff -r 8faf136ca94f Setup/Automator.pm
--- a/Setup/Automator.pm    Tue Jul 19 21:04:13 2011 +0200
+++ b/Setup/Automator.pm    Wed Jul 20 15:33:21 2011 +0200
@@ -75,8 +75,7 @@
            print STDERR "warning: do not know how to set up the bzr_wrapper hook!\n";
        }
        elsif ($config{rcs} eq 'mercurial') {
-           # TODO
-           print STDERR "warning: do not know how to set up the mercurial_wrapper hook!\n";
+           $config{mercurial_wrapper}=$config{srcdir}."/.hg/ikiwiki-wrapper";
        }
        elsif ($config{rcs} eq 'tla') {
            # TODO
@@ -187,6 +186,22 @@
        die "ikiwiki --wrappers --setup $config{dumpsetup} failed";
    }

+   # Setup initial config file for Mercurial to hook up the wrapper.
+   if ($config{rcs} eq 'mercurial' && exists $config{mercurial_wrapper}
+       && length $config{mercurial_wrapper}) {
+       # Use a relative path to avoid having to manually change the
+       # autogenerated hgrc if the user changes $config{srcdir}.
+       use File::Spec;
+       my $mercurial_wrapper_relpath=File::Spec->abs2rel($config{mercurial_wrapper}, $config{srcdir});
+       open (HGRC, '>', $config{srcdir}.'/.hg/hgrc');
+       print HGRC <<EOF;
+[hooks]
+post-commit.ikiwiki = $mercurial_wrapper_relpath
+incoming.ikiwiki = $mercurial_wrapper_relpath
+EOF
+       close (HGRC);
+   }
+
    # Add it to the wikilist.
    mkpath("$ENV{HOME}/.ikiwiki");
    open (WIKILIST, ">>$ENV{HOME}/.ikiwiki/wikilist") || die "$ENV{HOME}/.ikiwiki/wikilist: $!";