git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
emoji: list systems by section divs
[sheet.git]
/
emoji.plp
diff --git
a/emoji.plp
b/emoji.plp
index 60aaf0d7491aea0713fd852b7fa749b28f983f78..68c1ec25df67fdc28b305c22718ca615a8505d91 100644
(file)
--- a/
emoji.plp
+++ b/
emoji.plp
@@
-18,7
+18,7
@@
Html({
<h1>IM emoticons</h1>
<:
<h1>IM emoticons</h1>
<:
-print
"<ul>
\n";
+print
'<div class="section">'."
\n";
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,7
+27,7
@@
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"><h
3>%s</h3
>'."\n\n", $meta->{name} // $system;
+ printf '<div class="section"><h
2>%s</h2
>'."\n\n", $meta->{name} // $system;
print '<table><tbody>'."\n";
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
print '<table><tbody>'."\n";
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
@@
-46,5
+46,5
@@
for my $system (qw'gmail msn yahoo') {
print "</table></div>\n\n";
}
print "</table></div>\n\n";
}
-print "</
ul
><hr>\n\n";
+print "</
div
><hr>\n\n";