index: bump version to 1.5
[sheet.git] / emoji.plp
1 <(common.inc.plp)><:
2
3 Html({
4         title => 'emoji cheat sheet',
5         version => 'v1.0',
6         description => [
7                 "Emoticons overview and Unicode equivalents"
8                 . " of MSN, Y!M, and Gmail icons.",
9         ],
10         keywords => [qw'
11                 sheet cheat emoticon smiley emoji unicode
12                 chat im messenger msn yahoo ym gmail google
13         '],
14         stylesheet => [qw'light'],
15 });
16
17 :>
18 <h1>IM emoticons</h1>
19
20 <:
21 print '<div class="section">'."\n";
22
23 for my $system (qw'gmail msn yahoo') {
24         my @info = do "emoji-$system.inc.pl";
25         my $meta = shift @info or die $@;
26         ref $meta eq 'HASH' or die "invalid $system definitions";
27         my $title = $meta->{name} // $system;
28         $title = qq{<a href="$_">$title</a>} for $meta->{source} || ();
29
30         printf '<div class="section"><h2>%s</h2>'."\n\n", $meta->{name} // $system;
31         print '<table><tbody>'."\n";
32         for (my $i = 0; $i <= $#info; $i++) {
33                 my $name = $info[$i];
34                 unless (ref $info[$i+1] eq 'ARRAY') {
35                         printf '</table><table><tbody>'."\n", $name;
36                         next;
37                 }
38                 my ($input, $flags, $char, $desc) = @{ $info[++$i] };
39                 printf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s'."\n",
40                         sprintf($meta->{ $flags =~ /\bext\b/ ? 'iconext' : 'icon' } // '%s', $name),
41                         EscapeHTML($name),
42                         EscapeHTML($input),
43                         $desc // $name,
44                         $char ? '<td>'.chr($char) : '',
45                 );
46         }
47         print "</table></div>\n\n";
48 }
49
50 print "</div><hr>\n\n";
51