emoji.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'emoji cheat sheet',
   5         version => '1.1',
   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         data => ['emoji-gmail.inc.pl'],
  16 });
  17
  18 :>
  19 <h1>IM emoticons</h1>
  20
  21 <:
  22 say '<div class="section">';
  23
  24 for my $system (qw'gmail msn yahoo') {
  25         my @info = Data("emoji-$system");
  26         my $meta = shift @info;
  27         ref $meta eq 'HASH' or Abort("Invalid $system definitions", 404);
  28         my $title = $meta->{name} // $system;
  29         $title = showlink($title, $_) for $meta->{source} || ();
  30
  31         say sprintf '<div class="section"><h2>%s</h2>', $meta->{name} // $system;
  32         say '<table><tbody>';
  33         for my $row (@info) {
  34                 unless (ref $row eq 'ARRAY') {
  35                         say '</table><table><tbody>';
  36                         next;
  37                 }
  38                 my ($name, $input, $flags, $char, $desc) = @{$row};
  39                 say sprintf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s',
  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         say "</table></div>\n";
  48 }
  49
  50 say "</div><hr>\n";
  51