fanboy

   1 #!/usr/bin/perl
   2
   3 if (! @ARGV) {
   4         @ARGV=qw(linus git linux rebase redbased merge merged cherry-pick
   5                 branch branched branches);
   6 }
   7
   8 my $coolstuff=join("|", map { "\Q$_\E" } reverse sort @ARGV);
   9
  10 my $len=0;
  11 my $indent="";
  12 my $indent_printed=0;
  13 while (<STDIN>) {
  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." ";
  43                 }
  44         }
  45 }
  46 print "\n" if $len;