unicode: body container

[sheet.git] / unicode.plp
diff --git a/unicode.plp b/unicode.plp

index 2d5b54c8a58812f010a9e30dca9fe820a47b9b11..81e54a3f5593f2b4c57acb924ffa5715a081aea1 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -18,6 +18,10 @@ $header{content_type} = 'text/html; charset=utf-8';
  <meta http-equiv="content-type" content="utf-8">
  <link rel="stylesheet" type="text/css" media="all" href="/digraphs.css">
  <style>
+#list-common {
+       overflow: hidden;
+}
+
  table {
         margin: 1ex 1ex 2ex;
         float: left;
@@ -88,11 +92,13 @@ small.value {
  </head>
  
  <body>
-<h1>Common Digraphs</h1>
+<h1>Common uncommon Unicode</h1>
  
  <p>i^k in <a href="/">Vim</a>.
  Also see the <a href="/digraphs">complete digraphs table</a>.</p>
  
+<div id="list-common">
+
  <:
  my $diinfo = do 'digraphs.inc.pl';
  my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
@@ -273,6 +279,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 (
         [
@@ -331,3 +348,19 @@ print table(@$_) for (
                 [qw{A I U E O}],
         ],
  );
+
+:></div>
+
+<p id="footer">
+       <a href="http://vi.shiar.net/unicode">vi.<strong>shiar.net</strong>/unicode</a>
+       <a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
+       created by Shiar •
+       <a title="Licensed under the GNU Affero General Public License, version 3"
+          href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a> •
+       last update <:
+               use Time::Format qw(time_format);
+               print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]);
+       :>
+</p>
+
+</html>