From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 4 Feb 2011 04:58:42 +0000 (+0100)
Subject: fuzzy option to replace typos
X-Git-Url: http://git.shiar.nl/git-grep-footer.git/commitdiff_plain/d98fc39f894e88b4416e899c073480ee90b4b085

fuzzy option to replace typos
---

diff --git a/git-grep-footer b/git-grep-footer
index 53f6f1c..0c26549 100755
--- a/git-grep-footer
+++ b/git-grep-footer
@@ -12,6 +12,7 @@ GetOptions(\my %opt,
 	'count|c!',
 	'simplify|s:s',
 	'ignore-case|i!',
+	'fuzzy!',
 	'min|min-count|unique|u:i',
 	'max|max-count|show|n:i',
 	'version|V'  => sub { Getopt::Long::VersionMessage() },
@@ -62,6 +63,18 @@ while (readline) {
 
 			push @header, $_ if defined $opt{max};
 
+			if ($opt{fuzzy}) {
+				for ($header[0]) {
+					tr/ _/-/;
+
+					state $BY = qr{ (?: -? b[yu] )? \Z }ix;
+					s{^ si (?:ge?n|n?g) (?:e?[dt])? -? (?:of+)? $BY}{Signed-off-by}ix;
+					s{^ ack (?:ed|de)?  $BY}{Acked-by}ix;
+					s{^ review (?:e?d)? $BY}{Reviewed-by}ix;
+					s{^ teste[dt]       $BY}{Tested-by}ix;
+				}
+			}
+
 			given ($opt{simplify} // 'none') {
 				when (['email', 'authors']) {
 					$header[1] =~ s{