X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/326fbcf9ca9db5fe6c04fe555093ace1076d12ab..4d1fea2512e08b557f4c54801927db41aaff5d1c:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index 7f94ebf..199a49c 100644 --- a/latin.plp +++ b/latin.plp @@ -2,7 +2,7 @@ Html({ title => 'latin alphabet cheat sheet', - version => '1.3', + version => '1.5', description => [ ], keywords => [qw' @@ -17,76 +17,9 @@ Html({ :> @@ -120,26 +57,54 @@ if ($! or $@) { Alert("Table data not found", $@ || $!); } else { + say '\n"; + + my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); say '
# ASCII â 64'; + print ' | ', $_ for 1 .. 26; + say ' |
---|---|
', $title; + my ($id, $info) = @{$row}; + + printf ' | |
26) { + # special character for sample generation + print ' hidden'; # sample only + } + else { + print ' title=', chr($col + ord('A') - $colspan); + } if ($colspan > 1) { print " colspan=$colspan"; $colspan = 1; } - print ' hidden' if $col > 26; # sample only - print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//; + printf ' class="%s"', "@class" if @class; print '>'; say; } @@ -150,5 +115,7 @@ else { :> - + |