git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: single cell for identical i/j columns
[sheet.git]
/
emoji.plp
diff --git
a/emoji.plp
b/emoji.plp
index 00e75066478c640432a6d0bdad741bc11d330806..ac3be58a841a93def0e8c03a1cc70e5ae2f5c79b 100644
(file)
--- a/
emoji.plp
+++ b/
emoji.plp
@@
-2,7
+2,7
@@
Html({
title => 'emoji cheat sheet',
Html({
title => 'emoji cheat sheet',
- version => '
v
1.0',
+ version => '1.0',
description => [
"Emoticons overview and Unicode equivalents"
. " of MSN, Y!M, and Gmail icons.",
description => [
"Emoticons overview and Unicode equivalents"
. " of MSN, Y!M, and Gmail icons.",
@@
-18,7
+18,7
@@
Html({
<h1>IM emoticons</h1>
<:
<h1>IM emoticons</h1>
<:
-
print '<div class="section">'."\n"
;
+
say '<div class="section">'
;
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
@@
-27,16
+27,16
@@
for my $system (qw'gmail msn yahoo') {
my $title = $meta->{name} // $system;
$title = qq{<a href="$_">$title</a>} for $meta->{source} || ();
my $title = $meta->{name} // $system;
$title = qq{<a href="$_">$title</a>} for $meta->{source} || ();
-
printf '<div class="section"><h2>%s</h2>'."\n\n"
, $meta->{name} // $system;
-
print '<table><tbody>'."\n"
;
+
say sprintf '<div class="section"><h2>%s</h2>'
, $meta->{name} // $system;
+
say '<table><tbody>'
;
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
unless (ref $info[$i+1] eq 'ARRAY') {
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
unless (ref $info[$i+1] eq 'ARRAY') {
-
printf '</table><table><tbody>'."\n"
, $name;
+
say sprintf '</table><table><tbody>'
, $name;
next;
}
my ($input, $flags, $char, $desc) = @{ $info[++$i] };
next;
}
my ($input, $flags, $char, $desc) = @{ $info[++$i] };
-
printf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s'."\n"
,
+
say sprintf('<tr><th><img src="%s" alt="%s"><td><kbd>%s</kbd><td>%s%s'
,
sprintf($meta->{ $flags =~ /\bext\b/ ? 'iconext' : 'icon' } // '%s', $name),
EscapeHTML($name),
EscapeHTML($input),
sprintf($meta->{ $flags =~ /\bext\b/ ? 'iconext' : 'icon' } // '%s', $name),
EscapeHTML($name),
EscapeHTML($input),
@@
-44,8
+44,8
@@
for my $system (qw'gmail msn yahoo') {
$char ? '<td>'.chr($char) : '',
);
}
$char ? '<td>'.chr($char) : '',
);
}
-
print "</table></div>\n
\n";
+
say "</table></div>
\n";
}
}
-
print "</div><hr>\n
\n";
+
say "</div><hr>
\n";