From dcb941a70df08f8bb8a18cf0a4c85ce47aaf5cbd Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 7 Jul 2010 00:51:14 +0200
Subject: [PATCH 1/1] emoji: gmail table (google talk)

---
 emoji-gmail.inc.pl | 50 ++++++++++++++++++++++++++++++++++++++++++++++
 emoji.plp          | 12 +++++++----
 2 files changed, 58 insertions(+), 4 deletions(-)
 create mode 100644 emoji-gmail.inc.pl

diff --git a/emoji-gmail.inc.pl b/emoji-gmail.inc.pl
new file mode 100644
index 0000000..94e8e78
--- /dev/null
+++ b/emoji-gmail.inc.pl
@@ -0,0 +1,50 @@
+# http://mail.google.com/support/bin/answer.py?answer=34056
+
+'official',
+
+heart	=> ['<3',	'',	0,	"heart/love"],
+monkey	=> [':(|)',	'',	0,	"it's a monkey!"],
+rockout	=> ['\m/',	'',	0,	"rock out."],
+shocked	=> [':-o',	'',	0,	"shocked"],
+grin	=> [':D',	'',	0,	"grin"],
+frown	=> [':(',	'',	0,	"frown"],
+angry	=> ['x-(',	'',	0,	"angry"],
+cool	=> ['B-)',	'',	0,	"cool"],
+cry	=> [":'(",	'',	0,	"cry"],
+equal_grin	=> ['=D',	'',	0,	"equal grin"],
+wink	=> [';)',	'',	0,	"wink"],
+straightface	=> [':-|',	'',	0,	"straight face"],
+equal_smile	=> ['=)',	'',	0,	"equal smile"],
+nose_grin	=> [':-D',	'',	0,	"nose grin"],
+wink_big_nose	=> [';^)',	'',	0,	"big nose wink"],
+wink_nose	=> [';-)',	'',	0,	"nose wink"],
+nose_smile	=> [':-)',	'',	0,	"nose smile"],
+slant	=> [':-/',	'',	0,	"slant"],
+tongue	=> [':P',	'',	0,	"tongue"],
+
+# http://tkhere.blogspot.com/2007/12/brand-new-google-chat-emoticons-no-one.html
+
+'undocumented',
+
+cowbell	=> ["+/'\\",	'',	0,	"cowbell"],
+crab	=> ['V.v.V',	'',	0,	"crab"],
+devil	=> ['}:-)',	'',	0,	"devil"],
+frown	=> ['=(',	'',	0,	"equal sad"],
+slant	=> ['=/',	'',	0,	"equal slant"],
+tongue	=> ['=P',	'',	0,	"equal tongue"],
+frown	=> [':-(',	'',	0,	"nose sad"],
+smile	=> [':)',	'',	0,	"smile"],
+wince	=> ['>.<',	'',	0,	"wince"],
+tongue	=> [':-P',	'',	0,	"nose tongue"],
+pig	=> [':(:)',	'',	0,	"pig"],
+brokenheart	=> ['</3',	'',	0,	"broken heart"],
+kissx	=> [':-x',	'',	0,	"kiss"],
+kissstar	=> [':*',	'',	0,	"kiss"],
+mustache	=> [':{',	'',	0,	"mustache"],
+
+# http://www.gtricks.com/google-talk-tricks/google-talk-hidden-emoticons/
+
+robot	=> ['[:|]',	'',	0],
+poo	=> ['~@~',	'',	0],
+
+# vi:ts=15
diff --git a/emoji.plp b/emoji.plp
index 176b339..c090388 100644
--- a/emoji.plp
+++ b/emoji.plp
@@ -4,12 +4,14 @@ Html({
 	title => 'emoji cheat sheet',
 	version => 'v1.0',
 	description => [
-		"MSN emoticons",
+		"Emoticons overview and Unicode equivalents"
+		. " of MSN, Y!M, and Gmail icons.",
 	],
 	keywords => [qw'
-		sheet cheat emoticon smiley emoji msn
+		sheet cheat emoticon smiley emoji unicode
+		chat im messenger msn yahoo ym gmail google
 	'],
-	stylesheet => [qw'light dark red'],
+	stylesheet => [qw'light'],
 });
 
 :>
@@ -18,13 +20,15 @@ Html({
 <:
 my %ICONURL = (
 	msn   => 'http://messenger.msn.com/Resource/emoticons/%s.gif',
+#	yahoo => 'http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons6/%s.gif',
 	yahoo => 'http://l.yimg.com/us.yimg.com/i/mesg/emoticons7/%s.gif',
 #	yahoo-web => 'http://l.yimg.com/a/i/us/msg/emoticons/%s.gif',
+	gmail => 'http://mail.google.com/mail/help/images/screenshots/chat/%s.gif',
 );
 
 print "<ul>\n";
 
-for my $system (qw'msn yahoo') {
+for my $system (qw'gmail msn yahoo') {
 	my @info = do "emoji-$system.inc.pl";
 	printf '<div class="section"><h3>%s</h3>'."\n\n", $system;
 	print '<table><tbody>'."\n";
-- 
2.30.0