X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f2e965b21a4be2aea69d887f619481e04f3ca58a..4cd6a54935c74fa2bd19f2fc98e2dbe6957f5c61:/unicode.plp diff --git a/unicode.plp b/unicode.plp index f0e435f..095b206 100644 --- a/unicode.plp +++ b/unicode.plp @@ -38,6 +38,7 @@ if (exists $get{q}) { } if (exists $get{html}) { $glyphs->{anno} = ['html', 'xml']; + $glyphs->{style} = 'html'; } our $verbose = exists $get{v}; @@ -45,31 +46,34 @@ our $verbose = exists $get{v}; my @config = qw( Popular punctuation/quoting - common + common=-5?common symbols/binary?symbols/binary=-5 latin/sample=-1 - sample=2- + ?sample=2- ?uncommon punctuation/version punctuation/marks spacing Symbols symbols/currency - cards + cards=-3?cards ?chess + harvey signs1 communic=0?communic trinity=0?trinity signs2 Signs solar - zodiac=0?zodiac + zodiac=0-1=3?zodiac Key_commands keys/spacing editing modifier control command + android=0 + ps ?player Mathematics math/size @@ -114,6 +118,12 @@ my @config = qw( ?kataderiv ); +splice @config, 4, 2, qw( + latin/vowels=-5?latin/vowels + westeuro + ?easteuro +) if exists $get{html}; + $_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $ENV{PATH_INFO}, $get{q}; my $tables = do 'unicode-table.inc.pl' or die $@ || $!;