git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: unistrokes circles matched separately
[sheet.git]
/
unicode.plp
diff --git
a/unicode.plp
b/unicode.plp
index a3273e311a888362c977e3a2f3fa91222755c455..42fcd9450fcd065a9195541b8aaeac804e048d2a 100644
(file)
--- a/
unicode.plp
+++ b/
unicode.plp
@@
-73,7
+73,7
@@
my @config = qw(
control
command
android=0
control
command
android=0
- ps
+ ps
=0
?player
Mathematics
math/size
?player
Mathematics
math/size
@@
-85,11
+85,11
@@
my @config = qw(
double
white
black
double
white
black
+ triangle
+ barb
block
blacktri
whitetri
block
blacktri
whitetri
- ?-large
- ?-heavy
Line_drawing
lines/double
doubleh
Line_drawing
lines/double
doubleh
@@
-107,6
+107,7
@@
my @config = qw(
fill4
fill4i
fill8
fill4
fill4i
fill8
+ colour
IPA
ipa/cons
consco
IPA
ipa/cons
consco
@@
-131,7
+132,7
@@
$_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $Request, $get{q};
my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
$glyphs->print(map {
my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
$glyphs->print(map {
-
my
$_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
+ $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
if (!$_) {
();
}
if (!$_) {
();
}
@@
-144,7
+145,7
@@
$glyphs->print(map {
$group = $1 if s{^([^/]+)/}{};
my @select = s/=(.*)// ? split(/=/, $1) : ();
my $table = $tables->{$group}->{$_}
$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;
if (@select) {
my $rowlen;