X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/921547406c8cdd5b4cffee21bca0ee56f23251dc..94fea8c0e6ba8cea67d69dd0e49142811bba1611:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index ed6f65b..56f9d03 100644 --- a/latin.plp +++ b/latin.plp @@ -2,7 +2,7 @@ Html({ title => 'latin alphabet cheat sheet', - version => '1.3', + version => '1.4', description => [ ], keywords => [qw' @@ -11,75 +11,15 @@ Html({ secret cursive fraktur blind braille morse deaf asl hand barcode bar color semaphore flag '], - stylesheet => [qw'light dark red'], + stylesheet => [qw( light dark red mono )], data => ['writing-latn.inc.pl'], }); :> @@ -113,23 +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 ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//; + printf ' class="%s"', "@class" if @class; print '>'; say; } @@ -140,5 +115,7 @@ else { :> - + |