From: Joey Hess Date: Sun, 14 Oct 2007 18:22:35 +0000 (-0400) Subject: add folding X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/51d39a2b9b48c1e31f96cc6f629159aaa722fecf?ds=inline add folding --- diff --git a/mr b/mr index 29e5fad..a5ff4de 100755 --- a/mr +++ b/mr @@ -1,5 +1,6 @@ #!/usr/bin/perl +#man{{{ =head1 NAME mr - a Multiple Repository management tool @@ -226,6 +227,7 @@ Licensed under the GNU GPL version 2 or higher. http://kitenet.net/~joey/code/mr/ =cut +#}}} use warnings; use strict; @@ -364,7 +366,7 @@ foreach my $repo (@repos) { action($action, @$repo); } -sub action { +sub action { #{{{ my ($action, $dir, $topdir, $subdir) = @_; my $lib= exists $config{$topdir}{$subdir}{lib} ? @@ -450,9 +452,9 @@ sub action { print "\n"; } -} +} #}}} -sub showstat { +sub showstat { #{{{ my $count=shift; my $singular=shift; my $plural=shift; @@ -460,7 +462,7 @@ sub showstat { return "$count ".($count > 1 ? $plural : $singular); } return; -} +} #}}} if (! @ok && ! @failed && ! @skipped) { die "mr $action: no repositories found to work on\n"; } @@ -478,7 +480,7 @@ elsif (! @ok && @skipped) { exit 0; my %loaded; -sub loadconfig { +sub loadconfig { #{{{ my $f=shift; my @toload; @@ -575,9 +577,9 @@ sub loadconfig { foreach (@toload) { loadconfig($_); } -} +} #}}} -sub modifyconfig { +sub modifyconfig { #{{{ my $f=shift; # the section to modify or add my $targetsection=shift; @@ -672,10 +674,11 @@ sub modifyconfig { open(my $out, ">", $f) || die "mr: write $f: $!\n"; print $out @out; close $out; -} +} #}}} # Finally, some useful actions that mr knows about by default. # These can be overridden in ~/.mrconfig. +#DATA{{{ __DATA__ [ALIAS] co = checkout @@ -801,3 +804,4 @@ config = ed = echo "A horse is a horse, of course, of course.." T = echo "I pity the fool." +#}}}