git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
style: common setup for floating tables
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index e82c5cc45823fcea40ace71247ddf07ba62f66e1..73f93772f26738c1fbb37304d465841ebbe73388 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-18,7
+18,7
@@
$header{content_type} = 'text/html; charset=utf-8';
<link rel="stylesheet" type="text/css" media="all" href="/base.css">
</head>
<link rel="stylesheet" type="text/css" media="all" href="/base.css">
</head>
-<body>
+<body
id="charset"
>
<h1>Character encoding</h1>
<:
<h1>Character encoding</h1>
<:
@@
-109,11
+109,9
@@
sub quote {
return $_;
}
return $_;
}
-print "<ul>\n";
-
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
- printf '<
li
><table class="glyphs%s">', !$row->{cell} && ' charmap';
+ printf '<
div class="section"
><table class="glyphs%s">', !$row->{cell} && ' charmap';
printf '<caption>%s</caption>', $row->{set};
print '<col>' x 17;
for my $section (qw{thead}) {
printf '<caption>%s</caption>', $row->{set};
print '<col>' x 17;
for my $section (qw{thead}) {
@@
-158,11
+156,9
@@
for my $row (@request) {
}
print "\n";
}
}
print "\n";
}
- print "</table>\n";
+ print "</table>
</div>
\n";
}
}
-print "</ul>\n";
-
:>
<hr>
:>
<hr>