X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/c8048ca84b6f9040ffd2b769269232f603ecbe4d..e4a7c6505a32ed30e872bfab2b8cbf411e7a9b13:/latin.plp?ds=sidebyside diff --git a/latin.plp b/latin.plp index 66ef3ec..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,82 +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'], }); :> @@ -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 { :> - + |