From: Joey Hess <joey@kitenet.net>
Date: Mon, 1 Apr 2013 17:46:04 +0000 (-0400)
Subject: lolcat: New filter.
X-Git-Tag: 2.49~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=0c3e934eb371b7220346e4311843944b8437a656;p=filters.git

lolcat: New filter.
---

diff --git a/debian/changelog b/debian/changelog
index a432820..df19b14 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 filters (2.49) UNRELEASED; urgency=low
 
   * scottish: Fix typo. Closes: #688905
+  * lolcat: New filter.
 
  -- Joey Hess <joeyh@debian.org>  Wed, 26 Sep 2012 15:46:28 -0400
 
diff --git a/filters.6 b/filters.6
index fd860e5..29f9bd9 100644
--- a/filters.6
+++ b/filters.6
@@ -19,6 +19,8 @@ text to stdout. Some filters also support reading from files and
 writing to stdout.
 .IP b1ff
 The B1FF filter
+.IP lolcat
+As seen in internet gifs everywhere.
 .IP cockney
 Cockney English
 .IP chef
diff --git a/lolcat b/lolcat
new file mode 100755
index 0000000..22c4a58
--- /dev/null
+++ b/lolcat
@@ -0,0 +1,86 @@
+#!/usr/bin/perl -p
+# lolcatz filtur
+# Copyright 2013 by Joey Hess under the terms of the GNU GPL.
+
+# an array, not a hash. because order is important
+@trans_table=(
+	'can i' => 'i can',
+	'\bi\'ve' => 'i',
+	'\ba\s+' => '', # nuke 'a'
+	'cheese' => 'cheez',
+	'\brock\b' => 'rawk',
+	'ese\b' => 'ees',
+	's\'s\b' => 's',
+	'\'s\b' => 's',
+	'er\b' => 'r',
+	'ture\b' => 'chur',
+	'day' => 'dai',
+	'\bok\b' => 'k',
+	'\boks\b' => 'ks',
+	'boy' => 'boi',
+	'tion' => 'shun',
+	'ight' => 'ite',
+	'innocent' => 'innozent',
+	'ph' => 'f',
+	'es' => 'ez',
+	'ed\b' => 'd',
+	'ns' => 'nz',
+	'ks' => 'kz',
+	'ds' => 'dz',
+	'se' => 'ze',
+	'zs' => 's',
+	'sz' => 'z',
+	'ss' => 's',
+	'cc' => 'cs',
+	'ck' => 'k',
+	'oa' => 'o',
+	'\bcat' => 'kat',
+	'ive\b' => 'iv',
+	'ake' => 'aek',
+	'ed\b' => 'd',
+	'ing\b' => 'in', 
+	'sion' => 'shun',
+	'\bam\b' => 'iz',
+	'\bhave\b' => 'has',
+	'\bwho' => 'hoo',
+	'\bwake\b' => 'waek',
+	'\bone\b' => '1',
+	'\btwo\b' => '2',
+	'\bto\b' => '2',
+	'\btoo\b' => '2',
+	'\bthree\b' => '3',
+	'\bfour\b' => '4',
+	'\bfor\b' => '4',
+	'\bfore\b' => '4',
+	'\bfive\b' => '5',
+	'\bsix\b' => '6',
+	'\bseven\b' => '7',
+	'\beight\b' => '8',
+	'\bnine\b' => '9',
+	'\bten\b' => '10',
+	'god' => 'ceilin cat',
+	'jezus' => 'jebus',
+	'kitty' => 'kitteh',
+	'saturdai' => 'katurdai',
+	'allah' => 'invisible man',
+	'delicious' => 'delishus',
+	'\bdoctor\b' => 'docta',
+	'\bdr\b' => 'docta',
+	'\bgay\b' => 'ghey',
+	'\bgood\b' => 'gud',
+	'\bever' => 'evr',
+	'\bpage\b' => 'paeg',
+	'cheezburgr' => 'cheezburger', # fix up to canonical form
+);
+
+y/A-Z/a-z/;
+
+while (@trans_table) {
+	$key=shift @trans_table;
+	$value=shift @trans_table;
+	s/$key/$value/g;
+}
+
+s/es/ez/g;
+
+y/a-z/A-Z/;