summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlibexec/filter-github-emails14
1 files changed, 13 insertions, 1 deletions
diff --git a/libexec/filter-github-emails b/libexec/filter-github-emails
index 6f1f3a6..326495d 100755
--- a/libexec/filter-github-emails
+++ b/libexec/filter-github-emails
@@ -119,7 +119,19 @@ sub bye {
119# 119#
120 120
121sub rewrap { 121sub rewrap {
122 my $wrap = sub { /^(?: {4}|\t)/ ? $_ : wrap('', '', $_) }; 122 my $wrap = sub {
123 my $line = shift;
124 my $indent;
125
126 if ($line =~ /^(?: {4}|\t)/) {
127 return $line;
128 } elsif (/^([> ]+)/) {
129 $indent = $1;
130 } else {
131 $indent = '';
132 }
133 return wrap('', $indent, $line);
134 };
123 my @lines = split(/\n/, shift); 135 my @lines = split(/\n/, shift);
124 my @wrapped = map { $wrap->($_) } @lines; 136 my @wrapped = map { $wrap->($_) } @lines;
125 137