X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1d743a55b5335cd7aaa5f9a8f2c782e7a46564b7..8ed454fdd94aae38d04fcd96cab15ef3b86b9cc5:/writing.plp?ds=sidebyside diff --git a/writing.plp b/writing.plp index e57ceec..30080ec 100644 --- a/writing.plp +++ b/writing.plp @@ -26,6 +26,10 @@ and common chars.
<: use Shiar_Sheet::FormatChar; my $glyphs = Shiar_Sheet::FormatChar->new; +unless (exists $get{v}) { + $glyphs->{unicode}--; + $glyphs->{digraph}--; +} print $glyphs->table([qw{ .>Chinese 壹 è²³ å è ä¼ é¸ æ æ ç é¶ @@ -55,17 +59,7 @@ print $glyphs->table([qw{ .>Osmanya ð¡ ð¢ ð£ ð¤ ð¥ ð¦ ð§ ð¨ ð© ð }]); -sub print_glyph_tables { - while (@_) { - printf '