termcol: include colour names with rgb definition
[sheet.git] / emoji.plp
index 68c1ec25df67fdc28b305c22718ca615a8505d91..f4559cc760ff7b1884dcf715857a2680cbebe1a6 100644 (file)
--- a/emoji.plp
+++ b/emoji.plp
@@ -2,7 +2,7 @@
 
 Html({
        title => 'emoji cheat sheet',
-       version => 'v1.0',
+       version => '1.0',
        description => [
                "Emoticons overview and Unicode equivalents"
                . " of MSN, Y!M, and Gmail icons.",
@@ -37,7 +37,8 @@ for my $system (qw'gmail msn yahoo') {
                }
                my ($input, $flags, $char, $desc) = @{ $info[++$i] };
                printf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s'."\n",
-                       sprintf($meta->{icon} // '%s', $name), EscapeHTML($name),
+                       sprintf($meta->{ $flags =~ /\bext\b/ ? 'iconext' : 'icon' } // '%s', $name),
+                       EscapeHTML($name),
                        EscapeHTML($input),
                        $desc // $name,
                        $char ? '<td>'.chr($char) : '',