Html({
title => 'latin alphabet cheat sheet',
- version => '1.3',
+ version => '1.6',
description => [
],
keywords => [qw'
:>
<style>
- td {
- white-space: nowrap;
- }
- th {
- width: auto !important;
- }
-
td svg {
vertical-align: middle;
}
.sample {
text-align: left;
padding: 1px 0.3em;
- white-space: normal;
+ }
+ td.sample {
+ width: auto;
+ }
+ th {
+ white-space: nowrap; /* prevent resize by sample */
}
</style>
Also see <a href="/writing">related alphabets</a>
and <a href="/chars/abc">font comparison</a>.</p>
-<div>
-
<:
use List::Util qw( pairs );
-my @table = do 'writing-latn.inc.pl';
-if ($! or $@) {
- Alert("Table data not found", $@ || $!);
-}
-else {
+my @table = Data('writing-latn');
+{
+ say '<div>';
say '<style>';
for my $row (pairs @table) {
my ($id, $info) = @{$row};
my ($id, $info) = @{$row};
printf '<tr id="%s">', $id;
- say '<th>', $info->{title} // ucfirst $id;
+ my $th = 'th';
+ $th .= sprintf ' title="%s"', $_ for $info->{title} || ();
+ say "<$th>", $info->{name} // ucfirst $id;
my $colspan = 1;
my $col = 0;
say;
}
}
- say "</table>\n";
+ say "</table></div>";
}
-:></div>
-
+:>
<script type="text/javascript" src="/latinsample.js"></script>
-<script type="text/javascript"> prependinput(document.getElementById('intro')) </script>
+<script type="text/javascript"><!--
+ prependinput(document.getElementById('intro'));
+//--></script>