X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ca728eff3480d351908ce85266da0956e66c1698..33c297e51faa1564de2b8227d72d777278ac9d17:/unicode.plp?ds=inline diff --git a/unicode.plp b/unicode.plp index 29d591a..119d771 100644 --- a/unicode.plp +++ b/unicode.plp @@ -2,7 +2,7 @@ Html({ title => 'unicode glyph cheat sheet', - version => 'v1.0', + version => 'v1.1', description => [ "Common Unicode characters with digraph or code point, layed out for quick location.", "Includes general symbols, arrows, drawing characters, and IPA letters.", @@ -46,32 +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 + android=0 + ps ?player Mathematics math/size @@ -116,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 $@ || $!; @@ -155,9 +163,10 @@ $glyphs->print(map {
ascii - | <:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :> - | <:= $glyphs->{style} eq 'di' ? 'proposed' : 'BMP' :> + | ascii + | <:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :> + | <:= $glyphs->{style} eq 'di' ? 'proposed' : 'HTML4' :> + | unicode â¤6.0 | other unicode | discouraged |