git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
escape special html characters in key descriptions
[sheet.git]
/
unicode.plp
diff --git
a/unicode.plp
b/unicode.plp
index e28bb062d610ee747dea6d2296875c9ec1670baf..eeea6757b06f3dbb807e7b6f5cd725d9fc85bb12 100644
(file)
--- a/
unicode.plp
+++ b/
unicode.plp
@@
-36,7
+36,7
@@
Also see the <a href="/digraphs">complete digraphs table</a>.</p>
<:
my $diinfo = do 'digraphs.inc.pl';
my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
<:
my $diinfo = do 'digraphs.inc.pl';
my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
- keys %$diinfo;
+
sort { length $a <=> length $b }
keys %$diinfo;
sub quote {
local $_ = shift;
sub quote {
local $_ = shift;
@@
-147,6
+147,8
@@
sub print_glyph_tables {
}
}
}
}
+our $verbose = exists $get{v};
+
print_glyph_tables(
'Popular',
[qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
print_glyph_tables(
'Popular',
[qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
@@
-154,6
+156,7
@@
print_glyph_tables(
[qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ . ◄ ► }],
[qw{. å ä ö ü ß . Å æ ø ű ſ}],
[qw{. ¿ ç ñ é ê è}],
[qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ . ◄ ► }],
[qw{. å ä ö ü ß . Å æ ø ű ſ}],
[qw{. ¿ ç ñ é ê è}],
+ [qw{. α β}], [qw{. א}],
'Signs',
[qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}],
'Signs',
[qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}],
@@
-169,8
+172,10
@@
print_glyph_tables(
[qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }],
[qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }],
[qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }],
[qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }],
[qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }],
[qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }],
+$verbose ? (
[qw{. . - . }],
[qw{. . - . }],
[qw{. . - . }],
[qw{. . - . }],
+) : (),
'Line drawing',
[qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }],
'Line drawing',
[qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }],
@@
-231,14
+236,7
@@
print_glyph_tables(
.>Open a ɶ - - ɑ ɒ
}],
.>Open a ɶ - - ɑ ɒ
}],
- 'Alphabetics',
- [qw{
- .>Latin a ī ı ę ô ɳ ŋ ṡ š đ ð Ʒ
- .>Cyrillic а і й э ё н њ ш щ ч ь Я
- .>Greek α ί ϊ η ϋ π ψ σ ς θ ξ Ω
- .>Hebrew א ײ י ע ו נ ן ס ש ט צ ץ
- }],
-
+$verbose ? (
'Japanese',
[qw{
- A I U E O _
'Japanese',
[qw{
- A I U E O _
@@
-283,6
+281,7
@@
print_glyph_tables(
.>P パ ピ プ ペ ポ
.>V ヷ ヸ ヴ ヹ ヺ
}],
.>P パ ピ プ ペ ポ
.>V ヷ ヸ ヴ ヹ ヺ
}],
+) : (),
);
:></div>
);
:></div>