emoji: gmail table (google talk)

diff --git a/emoji-gmail.inc.pl b/emoji-gmail.inc.pl
new file mode 100644 (file)
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 176b339d1c9594b733ae043047c04b7f47070dd8..c090388cea28a32179413c0c378c11ca676271da 100644 (file)
--- a/emoji.plp
+++ b/emoji.plp
@@ -4,12 +4,14 @@ Html({
        title => 'emoji cheat sheet',
        version => 'v1.0',
        description => [
        title => 'emoji cheat sheet',
        version => 'v1.0',
        description => [

-               "MSN emoticons",
+               "Emoticons overview and Unicode equivalents"
+               . " of MSN, Y!M, and Gmail icons.",

        ],
        keywords => [qw'
        ],
        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',
 <:
 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',
        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";
 
 );
 
 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";
        my @info = do "emoji-$system.inc.pl";
        printf '<div class="section"><h3>%s</h3>'."\n\n", $system;
        print '<table><tbody>'."\n";