]>
Commit | Line | Data |
---|---|---|
5fbd4551 JH |
1 | #!/usr/bin/perl |
2 | ||
94ddd3c0 JH |
3 | my %topics=( |
4 | git => [qw(linus git linux rebase rebased merge merged cherry-pick | |
210a9db0 | 5 | branch branched branches git-* push pull pushed pulled)], |
2dfed46c | 6 | ubuntu => [qw(Mark MOTU PPA ubuntu debian rock rocks rule dapper |
2a4dcd69 JH |
7 | feisty fiesty gutsy hoary hardy edgy |
8 | universe launchpad gnome desktop naked sabdfl community)], | |
52d39806 | 9 | debian => [qw(Debian rules rule ian murdock upstream release |
faf80473 | 10 | stable unstable testing apt apt-get deb developer NM RM |
8416ccca | 11 | NMU FTBFS BTS ITP DFSG non-free free d.o)], |
94ddd3c0 JH |
12 | ); |
13 | ||
5fbd4551 | 14 | if (! @ARGV) { |
94ddd3c0 JH |
15 | @ARGV=@{$topics{git}}; |
16 | } | |
52d39806 JH |
17 | elsif (@ARGV == 1 && exists $topics{lc $ARGV[0]}) { |
18 | @ARGV=@{$topics{lc $ARGV[0]}}; | |
5fbd4551 JH |
19 | } |
20 | ||
94ddd3c0 | 21 | my $total_awesomeness_dude=join("|", |
84cbfd03 JH |
22 | map { |
23 | $_=quotemeta($_); | |
24 | s/\\\*/.*/g; | |
25 | s/\\\?/./g; | |
fd094d7f | 26 | qr/\b$_\b/; |
84cbfd03 | 27 | } reverse sort @ARGV); |
5fbd4551 JH |
28 | |
29 | my $len=0; | |
80e2e3ff JH |
30 | my $indent=""; |
31 | my $indent_printed=0; | |
5fbd4551 | 32 | while (<STDIN>) { |
faf80473 | 33 | if (/$total_awesomeness_dude/i) { |
80e2e3ff JH |
34 | if (/^([>|][>|\s]*)/) { |
35 | if ($indent ne $1) { | |
36 | print "\n" if $len; | |
37 | $len=0; | |
38 | $indent=$1; | |
39 | $indent_printed=0; | |
40 | } | |
41 | } | |
42 | else { | |
43 | if (length $indent && $indent_printed) { | |
44 | print "\n"; | |
45 | $len=0; | |
46 | } | |
47 | $indent=""; | |
48 | $indent_printed=0; | |
49 | } | |
50 | ||
94ddd3c0 | 51 | while(/(($total_awesomeness_dude)[.?!]*)/ig) { |
80e2e3ff JH |
52 | $len+=length($1)+1; |
53 | if ($len > 70) { | |
54 | print "\n"; | |
55 | $len=0; | |
56 | } | |
57 | if (length $indent && ! $indent_printed) { | |
58 | print $indent; | |
59 | $indent_printed=1; | |
60 | } | |
61 | print $1." "; | |
5fbd4551 | 62 | } |
5fbd4551 JH |
63 | } |
64 | } | |
65 | print "\n" if $len; |