Html({
title => 'unicode glyph cheat sheet',
- version => 'v1.0',
+ version => '1.4',
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'unicode-table.inc.pl unicode-char.inc.pl'],
+ data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
});
:>
<div class="diinfo">
<:
-use 5.010;
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
symbols/currency
cards=-3?cards
?chess
+ harvey
signs1
communic=0?communic
trinity=0?trinity
signs2
Signs
solar
- zodiac=0?zodiac
+ ?minorplanets
+ zodiac=0-1=3?zodiac
Key_commands
keys/spacing
editing
modifier
control
command
- android
- ps
+ android=0
+ ps=0
?player
Mathematics
math/size
double
white
black
+ triangle
+ barb
block
blacktri
whitetri
- ?-large
- ?-heavy
Line_drawing
lines/double
doubleh
fill4
fill4i
fill8
+ colour
IPA
ipa/cons
consco
vowels
+ tones
+ contours
?Japanese
?japanese/hira
?hiraderiv
?easteuro
) if exists $get{html};
-$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $ENV{PATH_INFO}, $get{q};
+$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $Request, $get{q};
-my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
+my $tables = Data('unicode-table');
$glyphs->print(map {
- my $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
+ $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
if (!$_) {
();
}
$group = $1 if s{^([^/]+)/}{};
my @select = s/=(.*)// ? split(/=/, $1) : ();
my $table = $tables->{$group}->{$_}
- or die "Unknown table specified: $group/$_";
+ or Abort("Unknown table specified: $group/$_", 404);
if (@select) {
my $rowlen;
- for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
+ for ($rowlen = 1; $rowlen <= $#$table; $rowlen++) {
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
}
} @config);
-:></div>
+say "</div>\n";
-<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 l1">other unicode
- <td class="X ex">discouraged
- </table>
-</div>
+say for $glyphs->legend;
+:>
<script type="text/javascript" src="/clipboard.js"></script>