unicode: offer an interesting selection of alphabetic digraphs

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 18ed2ce71dcf58a4960c5c95030e79276a4e062f..ca822ac0e40ff6c2bde4f174d61de2081710eafa 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -273,6 +273,17 @@ print table(@$_) for (
        ],
 );
 
        ],
 );
 

+print "<h2>Alphabetics</h2>\n\n";
+print table(1,
+       [ map { ('.', split //, $_->[1]) } @$_ ],
+       [ map {                 $_->[0]  } @$_ ],
+) for [
+       [Latin    => 'aīıęôɳŋṡšđðƷ'],
+       [Cyrillic => 'аійэёнњшщчьЯ'],
+       [Greek    => 'αίϊηϋπψσςθξΩ'],
+       [Hebrew   => 'אײיעונןסשטצץ'],
+];
+

 print "<h2>Japanese</h2>\n\n";
 print table(@$_) for (
        [
 print "<h2>Japanese</h2>\n\n";
 print table(@$_) for (
        [