git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6087648
)
unicode: fix for non-digraph digraphs
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 2 May 2009 15:53:56 +0000
(15:53 +0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 2 May 2009 15:53:56 +0000
(15:53 +0000)
unicode.plp
patch
|
blob
|
history
diff --git
a/unicode.plp
b/unicode.plp
index e4e45dcfb2906b73f036c3ee06a8093a3fa84df5..bcfebd1adb3cac2d75aadbc12b9e4a93fae06229 100644
(file)
--- a/
unicode.plp
+++ b/
unicode.plp
@@
-81,8
+81,7
@@
sub glyph_table {
next;
}
next;
}
- my $code = join '', map { $di{ord $_} || '' } split //, $cell;
- my $name = $diinfo->{$code}->[1];
+ my ($code, $name);
# determine display class
my @class;
# determine display class
my @class;
@@
-98,11
+97,18
@@
sub glyph_table {
push @class, 'di-rare'; # discouraged
}
push @class, 'di-rare'; # discouraged
}
- if ($code) {
+ $code = join '', map { $di{ord $_} || '' } split //, $cell;
+ $name = $diinfo->{$code}->[1];
+ length $code == 2 or undef $code;
+
+ if (defined $code) {
push @class, 'di-d'; # digraph
push @class, 'di-prop' # unofficial
if $diinfo->{$code}->[2] =~ /\bXz\b/;
}
push @class, 'di-d'; # digraph
push @class, 'di-prop' # unofficial
if $diinfo->{$code}->[2] =~ /\bXz\b/;
}
+ elsif (defined $name) {
+ push @class, 'X';
+ }
if ($cell =~ /[ -~]/) {
push @class, 'di-a'; # ascii
if ($cell =~ /[ -~]/) {
push @class, 'di-a'; # ascii
@@
-118,7
+124,7
@@
sub glyph_table {
@class ? sprintf(' class="%s"', join ' ', @class) : '',
$colspan > 1 && qq{ colspan="$colspan"},
$cell eq '' ? ' ' : quote($cell),
@class ? sprintf(' class="%s"', join ' ', @class) : '',
$colspan > 1 && qq{ colspan="$colspan"},
$cell eq '' ? ' ' : quote($cell),
-
$code ne ''
? sprintf(' <small class="digraph">%s</small>', quote($code))
+
defined $code
? sprintf(' <small class="digraph">%s</small>', quote($code))
: length($cell) == 1 && $cell !~ /[a-z]/
? sprintf(' <small class="%s">%04X</small>', 'value', ord $cell)
: '',
: length($cell) == 1 && $cell !~ /[a-z]/
? sprintf(' <small class="%s">%04X</small>', 'value', ord $cell)
: '',