charset: describe and link unicode subpage

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 4272b6a4110b2ea309fb0fcecf5df65975f009b7..e9f097d2b1f79c45ed2c9bfb0196bd52fadf181e 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -28,8 +28,15 @@ use List::Util qw( first pairmap pairfirst pairs );
 
 <p>
 <:
+if ($tablist[0] eq 'unicode') {
+       say "Detailed allocation of Unicode blocks.";
+       print "See ", showlink("charsets", '/charset'), " to compare specific encodings";
+}
+else {
+
 if ($tablist[0] eq 'default') {
-       say "Overview of Unicode allocation and common latin code pages.";
+       say "Overview of Unicode ", showlink("allocation", '/charset/unicode');
+       say "and common latin code pages.";
        say "Compare alternate charsets:";
 }
 else {
@@ -60,6 +67,8 @@ print join " •\n", (
                hebrew   => 0,
        ],
 );
+
+}
 :>.
 </p>