git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
formatchar: annotation options, print method
[sheet.git]
/
writing.plp
diff --git
a/writing.plp
b/writing.plp
index a3f3b69791769c63b8286ef3bbea38967edfb486..30080ec41c282d4ebdb926f71df544e2fd1d94a9 100644
(file)
--- a/
writing.plp
+++ b/
writing.plp
@@
-26,6
+26,10
@@
and <a href="/unicode">common chars</a>.</p>
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+ $glyphs->{unicode}--;
+ $glyphs->{digraph}--;
+}
print $glyphs->table([qw{
.>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零
print $glyphs->table([qw{
.>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零
@@
-55,17
+59,7
@@
print $glyphs->table([qw{
.>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
}]);
.>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
}]);
-sub print_glyph_tables {
- while (@_) {
- printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
- while (ref $_[0] and $_ = shift) {
- print $glyphs->table($_);
- }
- print '</div>';
- }
-}
-
-print_glyph_tables(
+$glyphs->print(
Western => [qw{
.>Latin A > B C G D > E F Y VU W Z H - I J K L M N > X O P > - Q R > S T
.>Old_Italic 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅𐌚 > > 𐌖 𐌆 𐌇 𐌈 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕
Western => [qw{
.>Latin A > B C G D > E F Y VU W Z H - I J K L M N > X O P > - Q R > S T
.>Old_Italic 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅𐌚 > > 𐌖 𐌆 𐌇 𐌈 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕
@@
-78,6
+72,7
@@
Western => [qw{
.>Hebrew א > ב > ג ד > ה > > ו װ ז ח ט י ײ כ ל מ נ > ס ע פ צ ץ ק ר > ש ת
.>Syriac ܐ > ܒ > ܓ ܕ > ܗ > > > ܘ ܙ ܚ ܛ ܝ ҩ ܟ ܠ ܡ ܢ > ܣ ܥ ܦ > ܨ ܩ ܪ > ܫ ܬ
.>Arabic ﺍ > ﺏ > ﺝ دذ ه ـ > > > ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س عغ ﻑ ص ض ﻕ ﺭ > ش تث
.>Hebrew א > ב > ג ד > ה > > ו װ ז ח ט י ײ כ ל מ נ > ס ע פ צ ץ ק ר > ש ת
.>Syriac ܐ > ܒ > ܓ ܕ > ܗ > > > ܘ ܙ ܚ ܛ ܝ ҩ ܟ ܠ ܡ ܢ > ܣ ܥ ܦ > ܨ ܩ ܪ > ܫ ܬ
.>Arabic ﺍ > ﺏ > ﺝ دذ ه ـ > > > ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س عغ ﻑ ص ض ﻕ ﺭ > ش تث
+ .>Lydian 𐤠 > 𐤡 > 𐤢 𐤣 > 𐤤 𐤥- 𐤧 > 𐤰 - - - > 𐤦 𐤨 𐤩 𐤪 𐤫 > - 𐤬 - > 𐤳 𐤲 𐤭 > 𐤮 𐤯
}],
Brahmic => [qw{
.>ISO k kh g gh ṅ c ch j jh > ñ ṭ ṭh ḍ ḍh ṇ t th d dh n ṉ p ph b bh m y r ṟ l ḷ ḻ v ś ṣ s h
}],
Brahmic => [qw{
.>ISO k kh g gh ṅ c ch j jh > ñ ṭ ṭh ḍ ḍh ṇ t th d dh n ṉ p ph b bh m y r ṟ l ḷ ḻ v ś ṣ s h