Html({
title => 'unicode glyph cheat sheet',
- version => '1.1',
+ 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 )],
});
:>
signs2
Signs
solar
+ ?minorplanets
zodiac=0-1=3?zodiac
Key_commands
keys/spacing
control
command
android=0
- ps
+ 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
$_ 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 {