Commit | Line | Data |
---|---|---|
5fbd4551 JH |
1 | #!/usr/bin/perl |
2 | ||
3 | if (! @ARGV) { | |
8762c758 | 4 | @ARGV=qw(linus git linux rebase rebased merge merged cherry-pick |
80e2e3ff | 5 | branch branched branches); |
5fbd4551 JH |
6 | } |
7 | ||
80e2e3ff | 8 | my $coolstuff=join("|", map { "\Q$_\E" } reverse sort @ARGV); |
5fbd4551 JH |
9 | |
10 | my $len=0; | |
80e2e3ff JH |
11 | my $indent=""; |
12 | my $indent_printed=0; | |
5fbd4551 | 13 | while (<STDIN>) { |
80e2e3ff JH |
14 | if (/$coolstuff/) { |
15 | if (/^([>|][>|\s]*)/) { | |
16 | if ($indent ne $1) { | |
17 | print "\n" if $len; | |
18 | $len=0; | |
19 | $indent=$1; | |
20 | $indent_printed=0; | |
21 | } | |
22 | } | |
23 | else { | |
24 | if (length $indent && $indent_printed) { | |
25 | print "\n"; | |
26 | $len=0; | |
27 | } | |
28 | $indent=""; | |
29 | $indent_printed=0; | |
30 | } | |
31 | ||
32 | while(/(($coolstuff)[.?!]*)/ig) { | |
33 | $len+=length($1)+1; | |
34 | if ($len > 70) { | |
35 | print "\n"; | |
36 | $len=0; | |
37 | } | |
38 | if (length $indent && ! $indent_printed) { | |
39 | print $indent; | |
40 | $indent_printed=1; | |
41 | } | |
42 | print $1." "; | |
5fbd4551 | 43 | } |
5fbd4551 JH |
44 | } |
45 | } | |
46 | print "\n" if $len; |