+};
+
+my %escapes = (
+ '%' => sub { '%' },
+ 'n' => sub { shift->name },
+ 'g' => sub { $abs2rel->(shift->repo, shift->root) },
+ 'G' => sub { shift->repo },
+ 'w' => sub { $abs2rel->(shift->work, shift->root) },
+ 'W' => sub { shift->work },
+ 'b' => sub {
+ my ($self, $conf) = @_;
+ $abs2rel->(
+ $self->bare ? $self->repo : $self->work . '.git',
+ $conf->root
+ );
+ },
+ 'B' => sub { $_[0]->bare ? $_[0]->repo : $_[0]->work . '.git' },
+ 'R' => sub { $_[1]->root },
+);
+my $e = quotemeta join '', keys %escapes;
+$e = "[$e]";