unicode: add specific header and footer

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

index a6a33bdd985215b899f936f20438f7447a5dfb3b..18ed2ce71dcf58a4960c5c95030e79276a4e062f 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -2,6 +2,7 @@
  use utf8;
  use strict;
  use warnings;
+no  warnings 'qw';  # that's not a comment, it's a NUMBER SIGN
  use open IO => ':utf8';
  
  our $VERSION = '1.0';
@@ -31,20 +32,33 @@ tbody {
  h2, h3 {
         clear: both;
  }
+h2 {
+       margin: 0 1ex;
+       font-size: 100%;
+}
  
  th {
         text-align: left;
         font-size: 50%;
         background: #888;
+       background: #778;
+       background: #889;
         color: #FFF;
         padding: 0 0.2em;
  }
+th, td {
+       border-color: #778;
+       border: 1px solid #888;
+}
  thead td {
         border: 0;
+       background: transparent;
+}
+thead th {
+       text-align: center;
  }
  
  td {
-       background: transparent;
         vertical-align: top;
         margin: 0;
         padding: 0;
@@ -57,23 +71,24 @@ small {
  small.digraph {
         background: #888;
         color: #FFF;
+
+       background: #000;
+       color: #FFF;
+       opacity: 0.3;
  }
  small.value {
         background: #CCC;
         color: #666;
-}
  
-td.empty {
-       background: #DDD;
-}
-td.reserved {
-       background: #BBB;
+       background: #800;
+       color: #FFF;
+       opacity: 0.3;
  }
  </style>
  </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>
@@ -108,16 +123,29 @@ sub table {
                         $colspan++;
                         next;
                 }
-               elsif ($cell =~ s/^-//) {
-                       $class = 'empty';
+
+               my $code = join '', map { $di{ord $_} || '' } split //, $cell;
+               my $name = $diinfo->{$code}->[1];
+
+               if ($cell =~ s/^-//) {
+#                      $class = 'Empty';
                 }
                 elsif ($cell eq '=') {
-                       $class = 'reserved';
+                       $class = 'Reserved';
                         $cell = '';
                 }
-
-               my $code = join '', map { $di{ord $_} || '' } split //, $cell;
-               my $name = $diinfo->{$code}->[1];
+               elsif ($cell =~ /[ -~]/) {
+                       $class = 'Ascii';
+               }
+               elsif (not $code) {
+                       $class = 'DiNone';
+               }
+               elsif ($diinfo->{$code}->[2] =~ /\bXz\b/) {
+                       $class = 'DiProp';
+               }
+               else {
+                       $class = 'Di';
+               }
  
                 $rows[-1] .= sprintf('<td%s%s%s>%s%s',
                         defined $name  ? qq{ title="$name"}  : '',
@@ -135,7 +163,7 @@ sub table {
  
         if ($colheads) {
                 unshift @rows, sprintf '<thead><tr><td>%s<tbody>', join '',
-                       map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2) }
+                       map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2), '', '' }
                         @$colheads
         }
  
@@ -303,3 +331,17 @@ print table(@$_) for (
                 [qw{A I U E O}],
         ],
  );
+
+:><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>