Html({
title => 'unicode glyph cheat sheet',
- version => 'v1.0',
+ version => '1.1',
description => [
"Common Unicode characters with digraph or code point, layed out for quick location.",
"Includes general symbols, arrows, drawing characters, and IPA letters.",
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
stylesheet => [qw'light dark mono circus red'],
- data => [qw'digraphs.inc.pl unicode.inc.pl'],
+ data => [qw'unicode-table.inc.pl unicode-char.inc.pl'],
});
:>
<div class="diinfo">
<:
-use 5.010;
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
}
if (exists $get{html}) {
$glyphs->{anno} = ['html', 'xml'];
+ $glyphs->{style} = 'html';
}
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
?kataderiv
);
-$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $ENV{PATH_INFO}, $get{q};
+splice @config, 4, 2, qw(
+ latin/vowels=-5?latin/vowels
+ westeuro
+ ?easteuro
+) if exists $get{html};
-my $tables = do 'unicode.inc.pl' or die $@ || $!;
+$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $Request, $get{q};
+
+my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
$glyphs->print(map {
my $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
<div class="legend">
<table class="glyphs"><tr>
- <td class="X l4">ascii
- <td class="X l3"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
- <td class="X l2"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'BMP' :>
+ <td class="X l5">ascii
+ <td class="X l4"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
+ <td class="X l3"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'HTML4' :>
+ <td class="X l2">unicode ≤6.0
<td class="X l1">other unicode
<td class="X ex">discouraged
</table>